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

UptoLike

ВУЗ: 

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

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

Рубрика: 

38
Type Color = (black, white, yellow, green, blue);
Mark = array [1..5] of integer;
Name = (Alex, Fred, Ann, Mery, Peter);
var A: array [1..12] of Color;
B: array ['A'..'C'] of array [Color] of integer;
C: array [true..false] of array [1..15] of Name;
D: array [Mark] of boolean;
(1) A[green]; (11) D(5);
(2) A[13]; (12) D[4, false];
(3) A[2]; (13) D[true];
(4) B('C', red); (14) C[true, Mery];
(5) B[black, 'B']; (15) C[Ann, false];
(6) C[15, false]; (16) C[false, Fred];
(7) B['B', blue]; (17) C[true, 2];
(8) C[false, Alex]; (18) D[16];
(9) C[true, 16]; (19) A[9, yellow];
(10) D[1, true]; (20) B['A', 'C'];
23. Что делает фрагмент программы?
(1). s:=0;
for i:=1 to n do
if a[i]>0 then s:=s+1;
(2). for i:=1 to n do
if a[i]>0 then a[i]:=-a[i];
(3). f:=0;
for i:=1 to n do
if a[i]>10 then f:= 1
(4). s:=0;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
(5). k:=0;
for i:=1 to n do
if a[i]<0 then k:=i;
(6). for i:=1 to n do
if a[i]>0 then a[i]:=2*a[i]
(7). for i:=1 to n do
if a[i]<0 then a[i]:=0;
(8). f:=1;
for i:=1 to n do
if a[i]<>0 then f:=f*a[i];
(9). s:=0;
for i:=1 to n do
if a[i]<0 then s:=s+a[i];
(10). p:=0;i:=1;
repeat if a[i]<a[i+1] then
p:=p+1;i:=i+1;
until i>9;
if i-1=p then write(‘да’)
else write(‘нет’);
(11). i:=0;s:=0;
while (a[i+1] >=0) and
(i<n) do begin
s:=s+a[i];i:=i+1;end;
writeln(i,s);
(12). i:=n;s:=1;
while (a[i] >0) and (i>0) do
begin s:=s*a[i];i:=i-1;end;
writeln(i,s);
24. Найдите значение последнего элемента массива после исполнения серии команд:
for i:=2 to 4 do
a[i]:=i+2;
for i:=5 downto 1 do
a[i]:=i+1;
a[1]:=1; i:=2;
repeat a[i]:=a[i-1]+i;
i:=i+1 until i>=5;
25. Укажите значения аргументов, при которых после исполнения указанного
фрагмента алгоритма получается данный ответ.
s:=0;k:=0;
for i:=1 to n do s:=s+a[i];
s:=s/n;
for i:=1 to n do if a[i]>s then k:=k+1;
ОТВЕТ:
1. k=1
2. k=n-1
3. k=0
k:=1; m:=a[1];
for i:=1 to n do if a[i]>m
then begin m:=a[i]; k:=1 end
ОТВЕТ:
1. k=1
2. k=3

Страницы