close

Вход

Забыли?

вход по аккаунту

?

подпрограммы, контроль

код для вставки
программирование паскаль
Подпрограммы
Что такое подпрограмма и для чего она используется.
В какой раздел программы помещается описание процедуры (функции)?
Объясните назначение локальных и глобальных переменных.
Что такое формальные и фактические параметры?
К чему относится описание типа в конце заголовка подпрограммыфункции?
6. Чем отличается вызов функции от вызова процедуры?
7. В заданном фрагменте программы укажите глобальные переменные.
8. В заданном фрагменте программы укажите локальные переменные.
1.
2.
3.
4.
5.
Var b,p:real;k:integer;
procedure power(a:real;n:integer);
var i: byte;
begin
P:=1;
for i:=1 to n do
P:=P*a;
end;
begin
readln(b,k);
power(b,k);
writeln(b:4:2,'v ctep ',k,' ravno ',p:4:2);
end.
var n:longint;
k:integer;
function num(n:longint):integer;
var s:integer;
begin
s:=0;
repeat
s:=s+n mod 10;
n:= n div 10;
until n=0;
num:=s;end;
begin
write('n');
readln(n);
k:=num(n);
writeln('suma cifr=',k);
readln end.
Подпрограммы
1. Как записать заголовок процедуры?
2. В какой раздел программы помещается описание процедуры
(функции)?
3. Объясните назначение локальных и глобальных переменных.
4. Что такое формальные и фактические параметры?
5. К чему относится описание типа в конце заголовка подпрограммыфункции?
6. Чем отличается вызов функции от вызова процедуры?
7. В заданном фрагменте программы укажите глобальные переменные.
8. В заданном фрагменте программы укажите локальные переменные.
program min8;
var a,b,c,d:real;
Function Min2(x,y:real):real;
begin
if x<y then Min2:=x else Min2:=y;
end;
Begin {progr}
write('a,b,c,d');
readln(a,b,c,d);
writeln('big from
',a:10:5,b:10:5,c:10:5,d:10:5,'=',Min2(Min2(a,b),Min2(c,d)):10:5
);
end.
program f2;
const n=12;
type
mas=array[1..n] of integer;
var a,b:mas; n2,n1,s,ma,mb:integer;
procedure init(x,y:integer;var m:mas);
var k:byte;
begin
for k:=1 to n do
m[k]:=random(y-x)+x;end;
Подпрограммы
1. Как записать заголовок процедуры?
2. В какой раздел программы помещается описание процедуры
(функции)?
3. Объясните назначение локальных и глобальных переменных.
4. Что такое формальные и фактические параметры?
5. К чему относится описание типа в конце заголовка подпрограммыфункции?
6. Чем отличается вызов функции от вызова процедуры?
7. В заданном фрагменте программы укажите глобальные переменные.
8. В заданном фрагменте программы укажите локальные переменные.
program f2;
const n=12;
type mas=array[1..n] of integer;
var a,b:mas; n2,n1,s,ma,mb:integer;
procedure maxsimum(m:mas;var max:integer);
var k:byte;
begin
max:=m[1];
for k:=1 to n do
if m[k]>max then max:=m[k]; writeln('max=',max);
end;
begin randomize;
write('n1,n2 '); readln(n1,n2);
init(n1,n2,a); init(n1,n2,b);
print(a);
maxsimum(a,ma); print(b);
maxsimum(b,mb); s:=ma+mb;
write('s=',s);readln; end.
Program minimum;
var f,l:integer;
function min(i,j:integer):integer;
begin
if i<j then min:=i else min:=j end;
begin
writeln('f,l');
readln(f,l);
writeln('min=',min(f,l));end.
Автор
ovsianik
Документ
Категория
Без категории
Просмотров
3
Размер файла
34 Кб
Теги
подпрограммы, контроль, программирование
1/--страниц
Пожаловаться на содержимое документа