Разработать фрагмент урока и программу.

Необходимо при чтении файла в Memo1 после всех слов вывести строку с сообщением о количестве прочитанных слов, например:

"Прочитано 10 слов".

При поиске в Memo2 тоже вывести сообщение:

"Найдено 5 слов"

Для вывода этих сообщений необходимо воспользоваться командами перевода целых чисел в символьный вид:

Sk:=inttostr (k) ; - sk - строка, k - целое число.

Кроме того нужно для получения результата сложить отдельные части

результирующей строки, например: s:=s+s1+s2;

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

Question

Информатика

Нона

18 декабря, 01:35

Разработать фрагмент урока и программу.

Необходимо при чтении файла в Memo1 после всех слов вывести строку с сообщением о количестве прочитанных слов, например:

"Прочитано 10 слов".

При поиске в Memo2 тоже вывести сообщение:

"Найдено 5 слов"

Для вывода этих сообщений необходимо воспользоваться командами перевода целых чисел в символьный вид:

Sk:=inttostr (k) ; - sk - строка, k - целое число.

Кроме того нужно для получения результата сложить отдельные части

результирующей строки, например: s:=s+s1+s2;

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

+4

Ответы (1)

Знаете ответ на вопрос?

Добромысл · Answer 1

Можно попробовать через функцию Pos (Что ищем (Char), где ищем (строка)). Возвращает позицию символа (больше 0).

Итак примерный код такой:

//циклом проверяем наличие пробелов в строке и записываем позицию в переменную.

var words, position:integer;

while Pos (" ", text) 0 do

begin

position:=Pos (" ", text) ;

Delete (text, position, 1) ; / / удаляем символы из строки с Позиции, в кол-ве 1 штука

Words:=words+1;

end;

как то так.