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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

END;
writeln(’S=’,S:12)
END.
Пример 2.6.6
PROGRAM Xmimax;
VAR x:ARRAY [1..10] of real;
i, n:integer;
xmax, xmin:real;
BEGIN
write('укажите число элементов '); readln(n);
i:=1; xmax:=10.e-37;xmin:=10.e37;
WHILE i<=n DO
BEGIN
write('введи ',i, 'значение'); readln(x[i]);
IF x[i] <= xmin THEN xmin:=x[i];
IF x[i] >= xmax THEN xmax:=x[i];i:=i+1;
END;
writeln('значение xmin',xmin,'xmax',xmax) ;
END.
Пример 2.6.7
PROGRAM Xsum;
VAR x:ARRAY [1..100] of real;
i, n:integer;
s:real;
BEGIN
write('укажите число элементов '); readln(n);
i:=1;s:=0;
WHILE i<=n DO
BEGIN
write('введи ',i, 'значение'); readln(x[i]);
s:=s+x[i]; i:=i+1;
END;
writeln('значение суммы ',s) ;
END.
31

Страницы