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