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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

BEGIN
assign(f2,'agg.rez'); reset(f2);
read(f2,x,y);
assign(f1,'q'); rewrite(f1);
write(power(x,y):4:1);
close(f1);
END.
Для обращения к функции Power мы просто указали ее в качестве
параметра при выводе данных. Параметры X и Y в момент обращения к
функции – это фактические параметры. Они автоматически заменяют
формальные параметры A и B по порядку следования. Количество и тип
формальных и фактических параметров строго соответствуют друг дру-
гу. Рассмотрим пример на составление процедуры вычисления
y=x+1 .
Пример 3.1.5
PROGRAM Proc;
VAR a, d, x, y:real;
f1, f2:text;
PROCEDURE ff( VAR x,y:real);
BEGIN
y:=x+1;
END;
BEGIN
assign(f2,'agg.rez'); reset(f2);
read(f2,a,d);
assign(f1,'q'); rewrite(f1);
write(f1,a:4:1,d:4:1);
ff(a,d);
write(a,d);
close(f1);
END.
Пример 3.1.6
PROGRAM Proc1;
PROCEDURE sq(a, b, c:real;VAR x1, x2 : real);
VAR d:real;
BEGIN
d:=B*B - 4*A*C;
x1:=(-b+SQRT(D))/(2*a);
41

Страницы