Результат работы программы
Программа для добавления записей в файл данных о дневной температуре воздуха
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