Информатика. Часть 1. Мойзес О.Е - 89 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

89
часто используется) для хранения численных значений. При считывании
или записи значений в файл происходит автоматическое преобразование
из числового формата в символьный и наоборот.
Продемонстрируем работу с файлами на примере.
Пример. Составить программу пересчета концентраций
химических веществ, заданных в мольных долях , в весовые :
∑
⋅
⋅
=
ii
ii
i
MBMD
MBMD
BD
; i = 1,...,5,
где
ВD
i
– концентрация в весовых долях;
MD
i
– концентрация в мольных долях;
MB
i
– молекулярный вес веществ.
Исходные данные ввести из файла, результат вычислений
поместить в файл.
Программный файл.
Program Conz;
type mas=array[1..10]of real;
var BD,MD,MB:mas;
s:real;
i:integer;
f1,f2:text; {объявление файлов}
Begin
Assign(f1,’dat’); Assign(f2,’rez’);
Reset(f1); Rewrite(f2);
{ввод данных из файла dat}
for i:=1 to 5 do
read(f1,MD[i]);
readln(f1);
for i:=1 to 5 do
read(f1,MB[i]);
s:=0.0;
for i:=1 to 5 do
s:=s+MD[i]
∗MB[i];
for i:=1 to 5 do
BD[i]:=MD[i]∗MD[i]/s;
{вывод результатов в файл rez}
for i:=1 to 5 do
write(f2,BD[i]:6:2,’ ’);
close(f1); close(f2);
End.
После написания и сохранения программного файла в новый файл
согласно последовательности ввода данных в программе (1–я строка –

Страницы