Результат работы программы

Программа для добавления записей в файл данных о дневной температуре воздуха

Program aprec;

uses CRT;

var

DayTemp:record { дневная температура }

day:integer; { число }

month:integer; { месяц }

temper:integer; { температура }

end;

f:text; { файл с записями о дневной температуре }

begin

clrscr;

assign(f,'a:\temper.txt');

append(f); { открываем файл для добавления записи }

write('Введите в одной строке, разделяя пробелами');

writeln(' число, номер месяца и температуру');

write('->');

with DayTemp do

begin

readln(day,month,temper);

writeln(f,day,' ',month,' ',temper);

end;

close(f);

writeln('Данные добавлены');

readln;

end.

Содержание файла a:\temper.txt после выполнения программы

12 3 45

14 10 -3