Основы применения вычислительной техники и программирование. Беспалов В.В. - 59 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8
0.1 -0.1 0.5 1.1 2.1 3 4 10
Сохраним этот файл и перейдём в файл основной программы.
Пусть эти массивы и файловая переменная описаны в разделе
описаний так:
var x,y:array [0..7] of real;
fl:text;
Кусочек программы, который будет осуществлять ввод, может
выглядеть так:
assign(fl,'dat.pas'); {имя файла данных на диске}
reset(fl); {открыть файл для ввода}
for i:=0 to 7 do read(fl,x[i]); {ввод 1 строки}
readln(fl); {перевод строки}
for i:=0 to 7 do read(fl,у[i]); {ввод 2 строки}
close(fl); {закрыть файл}
Пример 7.2.
Сделать то же самое другим способом.
Создадим на диске текстовый файл с именем dat.pas и запишем
в него следующие два столбца:
X Y
0.1 0.1
0.2 -0.1
0.3 0.5
0.4 1.1
0.5 2.1
0.6 3
0.7 4
0.8 10
Сохраним этот файл и перейдём в файл основной программы.
Пусть эти массивы и файловая переменная описаны в разделе
описаний также, как и в предыдущем примере.
Кусочек программы, который будет осуществлять ввод, может
выглядеть так:
assign(fl,'dat.pas'); {имя файла данных на диске}
reset(fl); {открыть файл для ввода}
readln(fl); {пропуск первой строки}
for i:=0 to 7 do
readln(fl,x[i],y[i]);
close(fl); {закрыть файл}
Этот вариант короче. Здесь одним оператором ввода считываются
очередные значения массивов
x и y, и указатель переводится на новую
строку.
60

Страницы