Из файла прочитать текст, найти самое длинное слово и вывести на экран сроки, в которых оно находится - Turbo Pascal

Узнай цену своей работы

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

Привет всем, нужна помощь с написанием программы. Задание: Из файла прочитать текст, найти самое длинное слово и вывести на экран сроки, в которых оно находится (знаю, формулировка не оч, но так в учебнике написано). Обязательно использовать Function, учитель обьяснил, что нужно даже две: первая находит самое длинное слово (с этой еще справлюсь), вторая - выводит на экран строки с ним (тут сложно мне). Большое спасибо! PS: тут на форуме не смогла найти помощь в существующих темах

Решение задачи: «Из файла прочитать текст, найти самое длинное слово и вывести на экран сроки, в которых оно находится»

textual
Листинг программы
program FileAndWords;
 
  function LongestWord(const s: string): string;
  begin
    LongestWord := 'word';
  end;
 
var
  s: string;
  CurrentWord: string;
  VeryLongestWord: string;
  f: Text;
begin
  Assign(f, 'poem.txt');
  reset(f);
  VeryLongestWord := '';
  while not EOF(f) do
  begin
    readln(f, s);
    CurrentWord := LongestWord(s);
    if length(VeryLongestWord) < length(CurrentWord) then
      VeryLongestWord := CurrentWord;
    writeln(s);
  end;
  Close(f);
  writeln(VeryLongestWord);
end.

Объяснение кода листинга программы

  1. В программе объявляются переменные: s (строка), CurrentWord (текущее слово), VeryLongestWord (очень длинное слово), f (текстовый файл).
  2. Задается значение переменной VeryLongestWord, которое изначально пустое.
  3. Открывается файл 'poem.txt' с помощью функции Assign и оператора reset.
  4. Запускается цикл while, который будет выполняться до тех пор, пока не достигнут конец файла.
  5. Внутри цикла считывается строка из файла с помощью функции readln.
  6. Вызывается функция LongestWord, которая принимает строку s и возвращает самое длинное слово в ней.
  7. Если длина текущего слова меньше длины очень длинного слова, то очень длинное слово заменяется на текущее слово.
  8. Строка записывается на экран.
  9. После завершения цикла файл закрывается с помощью функции Close.
  10. На экран выводится самое длинное слово.

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы