Решаем задачи Абрамян на Паскале. File3

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

Решение:

program File3;

var

S:String;

F: File of Real;

i:integer;

A,D,Num:Real;

begin

Write('S: ');

Readln(S);

Write('A: ');

Readln(A);

Write('D: ');

Readln(D);

Assign(F,S);

ReWrite(F);

For i:=0 to 9 do

begin

Num:=A+i*D;

Write(F, Num);

end;

Close(F);

end.

Другие задачи из раздела File можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. File3

Комментарии:

Добавить комментарий Отменить ответ