Структура процедуры
Procedure <имя процедуры> (<параметры>);
Label <метки>;
Const <константы>;
Type <типы данных>;
Var <переменные>;
<процедуры и функции>;
Begin
<тело процедуры>;
End;
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);
5) Объяснить работу програм- мы.
6) Провести вычисления по про-грамме для следующих пара-метров:
a) K=1, L=4, a=2, b=3;
b) K=4, L=1, a=3, b=2.
7) Как задать параметр c ?
8) Как можно проследить по программе передачу управле-ния на процедуру ?
Program 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.
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 ?
begin
n_stepen_x(2,3,b);
P:=a*b;
writeln('P=',P:5:2);
writeln('b=',b:5:2)
end.
5) Провести вычисления по про-грамме для следующих пара-метров:
a) a=3, x=2, n=3;
b) a=4, x=4, n=3.
6) Как задать параметр b ?
5) Провести вычисления по про-грамме для следующих пара-метров:
a) a=3, x=8, n=3;
b) a=4, x=27, n=3.
6) Как задать параметр b ?
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.
5) Объяснить работу програм- мы.
6) Провести вычисления по про-грамме для следующих пара-метров:
a) a=3, b=8, c=3;
b) a=4, b=27, c=3.
7) Как задать параметр d ?
8) В чем схожесть и отличие программ в примерах 14.4 и 14.5 ?
Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть