Проблемно-ориентированная информатика химико-технологических процессов. Кравцов А.В - 35 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

FOR i:=1 TO 6 DO
BEGIN
P[i]:=a
∗С[i]+b+S/e;
writeln(F,’P[’,i,’]=’,P[i]:10)
END;
Close(F)
END.
Считывание массива из файла
1. Считывание массива из файла. Количество элементов известно.
Assign (F , ’data.txt’);
Reset (F);
FOR i:=1 TO N DO readln(F, x[i]);
Close (F);
Примечание. Данные в файле data.txt записаны в столбик. Например,
1.00
2.47
...
4.89
2.
Считывание массива из файла. Количество элементов неизвестно.
Assign (F, ’data.txt’);
Reset (F);
N:=0;
WHILE NOT (seekeof (F)) do
BEGIN
N:=N+1;
readln (F, x[N] , y[N]);
END;
Close (F);
3.
Запись массива в файл.
Assign (F , ’data.res’);
Rewrite (F);
FOR i:=1 TO N DO
writeln(F, ’X[’ , i , ’]=’ , x[i]:5:2);
Close (F);
4. Считывание матрицы из файла.
Assign (F , ’data.txt’);
Reset (F);
35

Страницы