[Alex266]

Задан исходный текст на английском языке. Длина текста не более 30 символов. Составить программу, которая определяет количество слов заданной длины. Вывести на экран дисплея исходный текст и сообщение о количестве найденных слов.

[lmikle]

Ну так и счтай.
тебе надо "нарезать" текст на слова, деля его по пробелам. Нужны функции Pos и Copy.

Код:

function GetWordCount(AText : String; ALen : Integer) : Integer;
var
  Buf : String;
begin
  Result := 0;
  While Pos(' ',AText) > 0 Do
    Begin
       Buf := Copy(AText,1,Pos(' ',AText)-1);
       AText := Copy(AText,Pos(' ',AText)+1,Length(AText)-Pos(' ',AText)+1);
       If Length(Buf) = ALen Then Inc(Result); 
    End;
  If Length(Buf) = ALen Then Inc(Result); 
end;

[Alex266]

а где текст вводить ? и где размер слова писать ?

[lmikle]

А самому подумать слабо? Возьми учебник и прочитай про функции, их параметры и возвращаемое значение. А интерфейс сам нарисуешь.

[Alex266]

разберёмся хоть чтонибуть я знаю спасибо и на этом

[lmikle]

Пожалуйста.

ЗЫ. Люди, ну почему, прося ПОМОЩИ, все ожидают, что ЗА НИХ ВСЕ СДЕЛАЮТ???

[maddamo4ka]

потому что есть люди, например такие как я, которые плохо соображают в программировании или вообще не соображают, а делать надо потому что задали

[lmikle]

А сесть и разобраться. Ведь, по большому счету, ничего сложного тут нет. Ладно, про тебя отдельный разговор. У тебя такая задача, что мне пришлось сначала залезть в инет, что бы понять что же надо делать. А тут просто элементарщина.
Проблема даже не в этом, а в том, что хотять решение "под ключ", что бы сама вообще ничего не делать. Типа "передасты" такие. Работают транслятором с потерями (бо как понимания кода нету и не будет, ибо в лом). Вот потом такие приходят после института устраиваться на работу и незнаешь что же с ними делать - сразу убить, что бы не мучились, или послать куда подальше.

ЗЫ. Сорри, просто наболело.