ВУЗ:
Составители:
Рубрика:
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.
Страницы
- « первая
- ‹ предыдущая
- …
- 84
- 85
- 86
- 87
- 88
- …
- следующая ›
- последняя »
