Вот программу еще нашел, считает самое длинное и самое короткое СЛОВО
Цитата:
Unit Z24;
Interface
Implementation
Begin
writeln('Определить самое короткое и самое длинное слово в строке введённой с клавиатуры');
End.
Program z24;
Uses z24.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
i : longint;
l : longint;
min : longint;
max : longint;
p1 : longint;
p2 : longint;
j : longint;
a : String;
b : String;
t1 : Array[1..60] Of String;
t2 : Array[1..60] Of longint;
Begin
clrscr; {* Стираем всё с экрана *}
textcolor(11); {* Светло-сине-зеленый текст *}
write('введите текст: ');
readln(a);
l := length(a) + 1;
a[l] := ' ';
For i := 1 To l Do {* Увеличиваем i от 1 до l с шагом 1 *}
If a[i] = ' ' Then
Begin
inc(j); {* Увеличиваем j на 1 *}
t1[j] := b;
t2[j] := length(b);
b := '';
End;
Else b := b + a[i];
max := t2[1];
min := t2[1];
p1 := 1;
p2 := 1;
For i := 1 To j Do {* Переменная i увеличивается с 1 до j *}
Begin
If maxt2[i] Then
Begin
min := t2[i];
p2 := i;
End;
End;
writeln('самое длинное слово: ', t1[p1]);
writeln('самое короткое слово: ', t1[p2]);
textcolor(13); {* Розовый текст *}
write('P.S.');
writeln(' Если слово не выведено на печать, то вы ');
write(' поставили несколько подряд идущих пробелов!');
readln; {* Ждем нажатия Enter *}
End.
|