Пример 14.3 (Продолжение)

Что делает и как описывается процедура?

Как в программе вызывается

процедура?

Запишите формальные и фак-тические параметры процеду-ры.

Объяснить работу програм- мы.

Провести вычисления по про-грамме для следующих пара-метров:

a=3, x=2, n=3;

a=4, x=4, n=3.

Как задать параметр b?

Пример 14.4 Вычислить

Program PR_14_4;

const a=3;

var b,P:real;

Procedure n_koren_x(x:real; n:integer; var y:real);

Begin

y:=exp((1/n)*ln(x));

end;

Begin

n_koren_x(8,3,b);

P:=a*b;

writeln('P=',P:5:2);

writeln('b=',b:5:2)

End.

Пример 14.4 (Продолжение).

Что делает и как описывается процедура?

Как в программе вызывается

процедура?

Запишите формальные и фак-тические параметры процеду-ры.

Объяснить работу програм- мы.

Провести вычисления по про-грамме для следующих пара-метров:

a=3, x=8, n=3;

a=4, x=27, n=3.

Как задать параметр b?

Пример 14.5 Определить решаемую по программе задачу и провести
вычисление.

Program PR_14_5;

var a,b,d,P:real;

c:integer;

Procedure n_koren_x(x:real; n:integer; var y:real);

Begin

y:=exp((1/n)*ln(x));

end;

Begin

writeln('vvedite parametri');

read(a,b,c,d);

n_koren_x(b,c,d);

P:=a*d;

writeln('P=',P:5:2);

writeln('d=',d:5:2)

End.