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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

x2:=(-b-SQRT(D))/(2*a);
END;
VAR y1,y2:real;
BEGIN
sq (5.7,-1.2,-8.3,y1,y2);
write(y1,y2);
END.
Пример 3.1.7
PROGRAM maxmin;
TYPE b1=ARRAY[1..4,1..3] OF real;
VAR i, j:integer;
ymax, ymin:real;
y:b1;
r1, r2:text;
PROCEDURE mm(VAR x: b1; VAR xmax, xmin:real);
VAR n, k:integer;
BEGIN
xmax:=x[1,1]; xmin:=x[1,1];
FOR n:=1 TO 4 DO
FOR k:=1 TO 3 DO
BEGIN
if
x[n,k] <= xmin then xmin:=x[n,k];
if x[n,k] >= xmax then xmax:=x[n,k]
END;
END;
BEGIN
assign(r1,'a.dat'); reset(r1);
FOR i:=1 TO 4 DO
FOR j:=1 TO 3 DO
read(r1,y[i,j]);
assign(r2,'b.res'); rewrite(r2);
mm(y,ymax,ymin);
write(r2,ymax,ymin);
close(r2);
END.
42

Страницы