Developing.ru

точно, извиняюсь, не учел.
[b]Хыиуду[/b], спасибо за поправку!

Ну, еще перед этим не мешало бы вставить:
While s[i]=' ' Do
Inc(i);
поскольку если предложение начинается с красной строки, вполне возможно, что первые несколько символов будут пробелами или табуляцией (соответственно, ввести такую же проверку для табуляции, не помню, какой у нее код

Хотя, [b]kyart[/b], я написал это не подумав. модно сделать так:

найди длину первого слова

While s[i]<>' ' Do
Begin
Inc(i);
inc(Num);
End;

после этого в переменной Num у тебя будет длина первого слова, а дальше все просто: организуешь цикл просмотра стоки начиная с i такого-то

if s[i]=' ' Then If Num<Min Then Num:=Min;

Должна сработать, но если чо, господа прграммисты подправте меня...

пасиба большое

самое короткое слово найти мона так:
Var
S, a: string;
q: array [1..100] of Integer;
i, c: integer;
Flag: Boolean;
Start, Finish: Integer;
Readln(s); {Входной текст}
Start:=1;
For i:=1 To Length(s) Do
If *(S[i]=' ') And Flag Then {Если слово закончилось}
Begin
a:=a+copy(s, Start, i);
Start:=i;
End;
Start:=1;
While i<=Length(a) Do {Создаем массив длин слов}
Begin
If *a[i]=' ' Then
Begin
Start:=i;
q[c]:=Start;
inc(c);
Start:=0;
End;
Inc(i);
End;
_________________________
*S[i]=' ' - Здесь в кавычках у меня "пробел"
*a[i]=' ' см. выше.

после всего этого устроишь цикл поиска минимального.

а насчет остального не знаю, уж прости меня. :) ))

Помогите прогу написать на паскале.Очень срочно.
Создать текст типа string. Определить самое короткое слово в каждом
предложении. Собрать их в новый текст, затем удлинить до средней длины
слова дублированием последней буквы.
Зарание спасибо!!!

организуешт двойной цикл For .. To, где сравниваешь длины строк(Lenght).


как разбить текст на слова, смотри мой ответ *Лео*.

Помогите написать программу, которая выводит самое короткое слово из строки.