Найти самое короткое и самое длинное слово в строке и их позиции - Turbo Pascal

Формулировка задачи:

Тема: Разработка алгоритмов и программ обработки строк. Использование множеств с целью решения задач. В заданном предложении найти самое короткое и самое длинное слова и указать позиции, с которых они начинаются.


textual

Код к задаче: «Найти самое короткое и самое длинное слово в строке и их позиции - Turbo Pascal»

var a,s,min,max:string;
    i,j,pos1,pos2:integer;
begin
readln(a);
i:=0; j:=1; min:=a; max:='';
s:='';
while i<ord(a[0]) do
begin
while (a[j]<>' ') and (j<=ord(a[0])) do
begin
s:=s+a[j];
inc(j);
end;
if s<>'' then
begin
if ord(s[0])<ord(min[0]) then begin min:=s; pos1:=i+1; end;
if ord(s[0])>ord(max[0]) then begin max:=s; pos2:=i+1; end;
end;
if a[j]=' ' then begin inc(j); inc(i); end;
i:=i+ord(s[0]);
s:='';
end;
writeln(min+'-',pos1);
writeln(max+'-',pos2);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 4.000 из 5

Источник