Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 66 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

65
– WRITE (<F>,<список ввода>) – процедура записи информации в файл.
То же, что и процедура WRITE для текстовых файлов, но список вывода пред-
ставляет собой переменные того же типа, что и компоненты файла.
–
FILE POS (<F>) – функция номера текущей компоненты файла. Возвра-
щает номер текущей компоненты файла, с которым связана файловая перемен-
ная F. Нумерация компонент начинается с нуля.
– FILE SIZE (<F>) – функция текущего размера файла. Возвращает теку-
щий размер файла, с которым связана файловая переменная F, в компонентах
этого файла.
Пример 9.3. Вычислить сумму двух матриц из целых чисел размером (2 · 3) и
записать результат в файл MATR.DAT на диске В.
PROGRAM SUMMATR;
USES CRT;
VAR A,B,C: ARRAY [1..2,1..3] OF INTEGER;
I,J: INTEGER;
SUM: FILE OF INTEGER;
BEGIN
CLRSCR;
FOR I:=1 TO 2 DO
FOR J:=1 TO 3 DO
BEGIN
WRITE(’ВВЕДИТЕ А[‘,I,J,’]-’);
READLN(A[I,J])
END;
FOR I:=1 TO 2 DO
FOR J:=1 TO 3 DO
BEGIN
WRITE(’ВВЕДИТЕ B[‘,I,J,’]-’);
READLN(B[I,J])
END;
WRITELN;
ASSIGN(SUM, ‘B:\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)

Страницы