Добавить строки, которые позволяют выполнить чтение исходных данных из файла и запись результатов в файл - Turbo Pascal
Формулировка задачи:
добавить в листинг програми
строки которые позволяют выполнить чтение исходных данных из файла и осущиствить запись результата работи програмы в файл.
Решение задачи: «Добавить строки, которые позволяют выполнить чтение исходных данных из файла и запись результатов в файл»
textual
Листинг программы
Program aa1; var x : array [1..10,1..10] of integer; i,j,n : integer; s:real; f:text; begin assign(f,'input.txt');{файл в папке с программой} reset(f); read(f,n);{первое число в файле-размер матрицы} for i := 1 to n do begin for j := 1 to n do begin read(f,x[i,j]); write(x[i,j]:3) end; writeln end; close(f); append(f);{допишем масив в то же файл} writeln('Srednee v strokah'); writeln(f); writeln(f,'Srednee v strokah'); for i := 1 to n do begin s := 0; for j := 1 to n do s := s + x[i,j]; s:=s/n; write(s:5:2); write(f,s:5:2) end; close(f); readln; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д