Работа в среде Турбо Паскаль. Составление программ с использованием процедур.

и функции>;
Begin
<тело программы>;
End.

Структура процедуры
Procedure <имя процедуры> (<параметры>);
Label <метки>;
Const <константы>;
Type <типы данных>;
Var <переменные>;
<процедуры и функции>;
Begin
<тело процедуры>;
End;

процедуре при обращении к ней
(a,b,c).
Передача параметров в процедуру
Параметры-значения. Передача
параметров по значению (x, y -- фор-
мальные параметры-значения).
Параметры-переменные. Переда-
ется не значение фактического пара-
метра, а его адрес.

вычисления.

Sum(a,b,c);
S:=K+L+c;
writeln ('Sum=',c:4);
writeln ('S=',S:4)
end.

Program PR_14_1;
const K=1; L=4;
var S,a,b,c:integer;
Procedure Sum (x,y:integer; var z:integer);
begin
z:=x+y;
end;
begin
writeln ('vvedite a,b,c');
read(a,b,c);

Запишите соответствующее математическое выражение.
2) Что делает и как описывается процедура?
3) Как в программе вызывается
процедура?
4) Запишите формальные и фак-тические параметры процеду-ры Sum(a,b,c).

5) Объяснить работу програм- мы.
6) Провести вычисления по про-грамме для следующих пара-метров:
a) K=1, L=4, a=2, b=3;
b) K=4, L=1, a=3, b=2.
7) Как задать параметр c ?
8) Как можно проследить по программе передачу управле-ния на процедуру ?

PR_14_2;
var S,a,b,c,d,e:integer;
Procedure Sum(x,y:integer; var z:integer);
begin
z:=x+y;
end;
begin
writeln ('vvedite a,b,c,d,e');
read(a,b,c,d,e);

Sum(a,b,c);
S:=c+d+e;
writeln('Sum=',c:4);
writeln('S=',S:4)
end.

Запишите соответствующее математическое выражение.
2) Что делает и как описывается процедура?
3) Как в программе вызывается
процедура?
4) Запишите формальные и фак-тические параметры процеду-ры Sum(a,b,c).

5) Объяснить работу програм- мы.
6) Провести вычисления по про-грамме для следующих пара-метров:
a) d=1, e=4, a=2, b=3;
b) d=4, e=1, a=3, b=2.
7) Как задать параметр c ?
8) В чем схожесть и отличие программ в примерах 14.1 и 14.2 ?

y:real );
var i:integer;
begin
y:=1;
for i:=1 to n do
y:=y*x;
end;

begin
n_stepen_x(2,3,b);
P:=a*b;
writeln('P=',P:5:2);
writeln('b=',b:5:2)
end.

программе вызывается
процедура?
3) Запишите формальные и фак-тические параметры процеду-ры.
4) Объяснить работу програм- мы.

5) Провести вычисления по про-грамме для следующих пара-метров:
a) a=3, x=2, n=3;
b) a=4, x=4, n=3.
6) Как задать параметр b ?

программе вызывается
процедура?
3) Запишите формальные и фак-тические параметры процеду-ры.
4) Объяснить работу програм- мы.

5) Провести вычисления по про-грамме для следующих пара-метров:
a) a=3, x=8, n=3;
b) a=4, x=27, n=3.
6) Как задать параметр b ?

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.