Тема «Файловый тип данных» (урок 9 класс, информатика)

Program in_out; {Для ввода и вывода данных из файлов  введены  переменные file_in и file_out типа text} var file_in, file_out: text; yl,y2,y,file1, file2: string; xl,x2,x3: integer; d:real; begin file1:= 'input.txt'; file2:= 'output.txt’; {Файловым  переменным file_in и file_out ставятся в  соответствие обозначения входного и  выходного файлов из переменных file1  и file2} assign(file_in, file1); assign(file_out, file2); {Существующий входной файл  открывается. Указатель строк ставится на  первую строку} Program in_out; {Для ввода и вывода данных из файлов  введены  переменные file_in и file_out типа text} var file_in, file_out: text; yl,y2,y,file1, file2: string; xl,x2,x3: integer; d:real; begin file1:= 'input.txt'; file2:= 'output.txt’; {Файловым  переменным file_in и file_out ставятся в  соответствие обозначения входного и  выходного файлов из переменных file1  и file2} assign(file_in, file1); assign(file_out, file2); {Существующий входной файл  открывается. Указатель строк ставится на  первую строку} reset(file_in); {Ввод текстовых строк из входного  файла file__in} readln(file_in,xl,x2,x3); readln(file_in,yl); readln(file_in,y2); {Входной файл закрывается} close(file_in); {Открывается файл, соответствующий  переменной file_out типа text} rewrite(file_out); d:=(xl+x2+x3)/3; y:=yl+y2; {запись значений переменных d,y в  файл file_out} Writeln(file_out, d); writeln(file_out, y); {Закрытие выходного файла} close(file_out); end. reset(file_in); {Ввод текстовых строк из входного  файла file__in} readln(file_in,xl,x2,x3); readln(file_in,yl); readln(file_in,y2); {Входной файл закрывается} close(file_in); {Открывается файл, соответствующий  переменной file_out типа text} rewrite(file_out); d:=(xl+x2+x3)/3; y:=yl+y2; {запись значений переменных d,y в  файл file_out} Writeln(file_out, d); writeln(file_out, y); {Закрытие выходного файла} close(file_out); end.