задача на строки найти самое короткое слово - Turbo Pascal

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

Подскажите как решить эту задачу на паскале с помощью строк. 1.Дан текст, слова в котором разделены хотя бы одним пробелом. Найти самое короткое слово в тексте.

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

textual
program z10_4;
uses crt;
var x,z,z1,z2,y:real;
i,n:integer;
begin
clrscr;
x:=-2;n:=1;
while x<=3.5 do
begin
y:=x/(2*n);
z:=x/2;
for n:=2 to 8 do
z1:=z+y*x;
z1:=z1*(x/2);
n:=1;
y:=sqr(x)/(4*n);
z2:=0;
for n:=1 to 6 do
z2:=z2+y*sqr(x);
z2:=z2*(sqr(x)+1)/3;
z:=z1+z2;
writeln('z(',x:2:2,')=',z:2:2);
x:=x+0.5;
end;
end.

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


СОХРАНИТЬ ССЫЛКУ