Типизированные файлы в Паскале - Pascal

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

Дано имя файла и вещественные числа A и D. Создать файл вещественных чисел с данным именем и записать в него 10 первых членов арифметической прогрессии с начальным членом A и разностью D: A, A + D, A + 2*D, A + 3*D, … .

Решение задачи: «Типизированные файлы в Паскале»

Листинг программы

uses crt;
const n=10;
var f:file of real;
    a,d,s:real;
    i:byte;
    fname:string;
begin
clrscr;
write('Введите имя файла:  ');
readln(fname);
assign(f,fname);
rewrite(f);
writeln('Введите вещественные числа A, D');
readln(a,d);
for i:=1 to n do
 begin
  s:=a+(i-1)*d;
  write(f,s);
 end;
writeln('Содержание файла');
seek(f,0);
while not eof(f) do
 begin
  read(f,s);
  write(s:0:2,' ')
 end;
close(f);
readln
end.

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

Установка начального значения переменной n равным 10.
Объявление переменной f как файл типа real.
Объявление переменных a, d и s как вещественные числа.
Объявление переменной i как byte.
Объявление переменной fname как строка для хранения имени файла.
Очистка экрана с помощью функции clrscr.
Запрос на ввод имени файла с помощью функции write и readln.
Присваивание имени файла переменной f.
Открытие файла с помощью функции assign и rewrite.
Запрос на ввод двух вещественных чисел a и d с помощью функции readln.
Цикл for для выполнения n операций.
Вычисление значения переменной s как суммы a и ((i-1) * d).
Запись значения переменной s в файл с помощью функции write.
Запрос на вывод содержимого файла с помощью функции writeln.
Перемещение позиции чтения файла в начало с помощью функции seek.
Проверка на достижение конца файла с помощью функции eof.
Чтение значения из файла и запись его в переменную s с помощью функции read.
Вывод значения переменной s с помощью функции write.
Закрытие файла с помощью функции close.
Ожидание ввода с помощью функции readln.