![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
![]() Задан исходный текст на английском языке. Длина текста не более 30 символов. Составить программу, которая определяет количество слов заданной длины. Вывести на экран дисплея исходный текст и сообщение о количестве найденных слов.
![]() |
#2
|
|||
|
|||
![]() Ну так и счтай.
тебе надо "нарезать" текст на слова, деля его по пробелам. Нужны функции 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; |
#3
|
||||
|
||||
![]() а где текст вводить ? и где размер слова писать ?
|
#4
|
|||
|
|||
![]() А самому подумать слабо? Возьми учебник и прочитай про функции, их параметры и возвращаемое значение. А интерфейс сам нарисуешь.
|
#5
|
||||
|
||||
![]() разберёмся хоть чтонибуть я знаю спасибо и на этом
|
#6
|
|||
|
|||
![]() Пожалуйста.
ЗЫ. Люди, ну почему, прося ПОМОЩИ, все ожидают, что ЗА НИХ ВСЕ СДЕЛАЮТ??? |