Написать программу, которая создает типизированный файл и записывает в него MxN значений - Pascal ABC
Формулировка задачи:
Написать программу, которая создает типизированный
файл и записывает в него MxN значений. Имя для файла создает-
ся по маске <login2>.dan.
M-14
N-12
Type-Char
Решение задачи: «Написать программу, которая создает типизированный файл и записывает в него MxN значений»
textual
Листинг программы
const
N = 12;
M = 14;
var
f: File Of Char;
i: Byte;
fName: String;
begin
Write('Input filename: '); ReadLn(fName);
Assign(f, fName); ReWrite(f);
for i := 1 to M * N do
Write(f, Chr(Random(255)));
Close(f);
end.
Объяснение кода листинга программы
- В начале объявляются две константы N и M, которые задают количество строк и столбцов в создаваемом файле соответственно.
- Затем объявляется переменная f типа File Of Char, которая будет использоваться для записи данных в файл.
- Далее объявляется переменная i типа Byte, которая будет использоваться для итерации по строкам и столбцам.
- После этого объявляется переменная fName типа String, в которую будет записываться имя файла, введенное пользователем.
- Затем происходит чтение имени файла из ввода пользователя с помощью функции ReadLn.
- Используя функцию Assign, имя файла присваивается переменной f.
- Функцией ReWrite вызывается метод записи в файл для перезаписи содержимого файла.
- Затем идет цикл for, который выполняется M * N раз (где M - количество строк, N - количество столбцов).
- Внутри цикла вызывается функция Write, которая записывает в файл символ, выбранный случайным образом с помощью функции Random.
- После завершения цикла файл закрывается с помощью функции Close.