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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

Nmax:=1;
FOR
i:=1 TO 7 DO
IF
S[Nmax]<S[i] THEN Nmax:=i;
{Вывод результатов}
writeln(’Максимальная сумма строки =’, MAX:10:6);
END.
2.8. Файлы
Пример 2.8.1 Рассчитать массив Р(6) по формуле:
PaCb
e
d
ii
j
=⋅ ++⋅
=
∑
1
2
1
3
j
.
Исходные данные ввести из файла ’data.txt’, который представляет
собой следующее (буквы рядом с числами указывают, какие числа ка-
ким переменным соответствуют). Результаты записать в файл ’data.res’.
2.73E-4
A
0.83
B
1 5 -6 4 5 -1
C(6)
7.43
3.51
D(3)
-0.14
1.23
E
VAR p:ARRAY [1..6] OF real;
c:
ARRAY [1..6] OF integer;
d:
ARRAY [1..3] OF real;
i, j:integer;
a, b, e, s:real;
f:text;
BEGIN
Assign(F,’data.txt’);
Reset(F);
readln(F,a,b);
FOR j:=1 TO 6 DO read(F,c[j]);
readln(F);
FOR i:=1 TO 3 DO readln(F,d[i]);
readln(F,e);
Close(F);
S:=0;
FOR j:=1 TO 3 DO S:=S+sqr(d[j]);
Assign(F,’data.res’);
Rewrite(F);
34

Страницы