Сборник заданий для практических занятий по информатике. Крупенников О.Г - 86 стр.

UptoLike

85
END;
WRITELN;
ASSIGN(SUM, ‘С:\MATR.DAT’);
REWRITE(SUM);
WRITELN (’РЕЗУЛЬТИРУЮЩАЯ МАТРИЦА С’);
FOR I:=1 TO 2 DO
BEGIN
FOR J:=1 TO 3 DO
BEGIN
C[I,J]:=A[I,J]+B[I,J];
WRITE(SUM,C[I,J]:3)
WRITE(C[I,J]:3,’ ’);
END;
WRITELN(SUM);
WRITELN
END;
CLOSE (SUM);
WRITELN;
READKEY
END.
9.3. Задания к практическому занятию
Реализовать запись в файл и чтение из файла исходной информации и
результатов расчета в соответствии с заданием к практическому занятию
5.