Получить слово, образованное заданными буквами - Pascal ABC

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

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

Имеется файл, элементами которого являются отдельные буквы. Получить слово, образованное этими буквами.

Решение задачи: «Получить слово, образованное заданными буквами»

textual
Листинг программы
Var
  f: File of Char;
  i,n: Integer;
  ch: Char;
BEGIN
Assign(f,'1.dat');
{Rewrite(f);
Writeln('Сколько элементов записать в файл? ');
Readln(n);
For i:=1 to n do
Write(f,Chr(Ord(Random(25)+97)));}
Reset(f);
While not Eof(f) do
begin
  Read(f,ch);
  Write(ch);
end;
Close(f);
END.

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

  1. Объявлены переменные:
    • f: File of Char; - файл для записи и чтения символов
    • i,n: Integer; - целочисленные переменные для подсчета количества элементов и цикла
    • ch: Char; - символ, считываемый из файла
  2. Задано имя файла для записи и чтения '1.dat'
  3. Выполняется очистка файла (если он существует) с помощью функции Rewrite(f)
  4. Пользователю предлагается ввести количество элементов для записи в файл
  5. Считывается количество элементов с помощью функции Readln(n)
  6. В цикле от 1 до n с помощью функции Write(f,Chr(Ord(Random(25)+97))) в файл записываются случайно выбранные символы из диапазона от 'a' до 'z'
  7. Файл открывается для чтения с помощью функции Reset(f)
  8. В цикле пока не достигнут конец файла с помощью функции Eof(f) выполняется чтение символа из файла в переменную ch и его вывод на экран с помощью функции Write(ch)
  9. Файл закрывается с помощью функции Close(f)

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

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