Система задач и упражнений по языку программирования Pascal. Часть 1 - 44 стр.

UptoLike

ВУЗ: 

ЯГПУ им. Ушинского | Ярославль

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

Рубрика: 

44
15.Для чего используются параметры-переменные?
16.Найдите синтаксические ошибки в следующих командах:
(1). Procedure (var a:real, b,s:char; var d:real);
(2). Procedure(b[1]+b[2],b[2]+b[3],b[3]+b[1],b[
2]);
(3). Procedure str(a;b;c:integer; var s:real);
(4). ...
a. str(k[1],k[2],k[3],k[4]);
(5). 4.procedure prim(k:real; var p,integer)
...
a. prim(a+b,a-b);
(6). 5.function r(a:real;var
b;t:real);
(7). ...
a. k:=r(A[3],A,r);
(8). 6.function g(var
a,b:integer):integer;
...
a:=g(a[i],g);
17. Перечислите, какие переменные в следующей процедуре являются локальными,
глобальными, аргументами, результатами.
(1). procedure multiply(d:stroka;var P:real);
var i:integer;
begin
P:=1;
For i:=1 to n do
if d[i]<>0
then P:=P*d[i];
end;
(2). procedure quantity(n:integer;var
k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do if d[i]<0 then k:=k+1;
end;
(3). procedure poisk(n:integer;var k:char);
var i:integer;
begin
k:='н';
for i:=1 to n do if d[i]=13 then k:='д';
end;
(4). procedure summa(n:integer;var s:real);
var i:integer;
begin
s:=0;
for i:=1 to n do s:=s+d[i];
end;
(5). procedure maximum(d:stroka;var
max:real);
var i:integer;
begin
max:=d[1];
for i:=2 to n do
if d[i]>max then max:=d[i];
end;
(6). procedure maxmod(d:vector);
var i:integer;
begin
max:=abs(d[1]);
for i:=2 to n do
if abs(d[i])>max then max:=d[i];
end;
18. Написать заголовок следующих процедур и функций:
delete, insert, chr, ord, val, str, copy, length, concat, pos.
19. Перепишите процедуры из пункта 17 в виде функций.
20. Изучите программу PR1 и ответьте на следующие вопросы:
1) назовите переменные, локальные для процедуры pr3 и недоступные для
процедуры pr2 и основной программы;
2) назовите переменные, являющиеся глобальными для процедуры pr3,
недоступные в основной программе, но локальные для процедуры pr2;
3) назовите переменные, являющиеся глобальными как для процедуры pr2, так и

Страницы