Самостоятельная работа "Паскаль. Повторение"

1. Определите значение переменной «a» после выполнения фрагмента программы:

a := 10;
if a else a := a - 7;
if a else a := a - 7;

Вариант 1

2. Определите значение переменной «a» после выполнения фрагмента программы:

a := 10; b := 3;
if a b then b := b + 12
else a := a - 7;
if a b then a := a + 12
else a := a - 7;

4. Определите значение переменной «a» после выполнения фрагмента программы:

a := 10; b := 5;
if (a 1) or (a a := a - 5;
if (a 1) and (a = b) then
a := a - 5;

5. Определите, что будет напечатано в результате работы следующей программы:

var b,c: integer;

begin

b:=16;

c:=1;

while (b6) do

begin

  c:=c+b;

  b:=b-2;

end;

write(c);

end.

1. За­пи­ши­те зна­че­ние пе­ре­мен­ной , по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы.

Var s,k: integer;

Begin

s := 0;

for k := 6 to 9 do

s := s + 12;

writeln(s);

End.

7. За­пи­ши­те зна­че­ние пе­ре­мен­ной , по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы.

s:=0;

i:=30;

repeat

s:=s+i;

i:=i-5;

until i

writeln (s-i);

8. В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] – количество голосов, поданных за первого исполнителя; Dat[2] – за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. 

Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 16; Dat[2] := 20;
Dat[3] := 20; Dat[4] := 41;
Dat[5] := 14; Dat[6] := 21;
Dat[7] := 28; Dat[8] := 12;
Dat[9] := 55; Dat[10] := 35;
m := 0;
for k := 1 to 10 do
if Dat[k]m then begin
m := Dat[k]
end;
writeln(m);
End.

9. В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] – количество учеников в первом классе, Dat[2] – во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 17; Dat[2] := 19;
Dat[3] := 20; Dat[4] := 15;
Dat[5] := 16; Dat[6] := 17;
Dat[7] := 19; Dat[8] := 18;
Dat[9] := 16; Dat[10] := 17;
m := 0;
for k := 1 to 10 do
if Dat[k] m := m + 1
end;
writeln(m)
End.

10. Известная авиакомпания заносила данные о количестве утерянного багажа за год в таблицу Lose. Всего были занесены данные за последние 10 лет работы компании (Lose[1] – количество утерянного багажа за первый год работы, Lose[2] – за второй год и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Var t, m: integer;
Lose: array[1..10] of integer;
Begin
Lose[1] := 11; Lose[2] := 15;
Lose[3] := 13; Lose[4] := 16;
Lose[5] := 17; Lose[6] := 12;
Lose[7] := 11; Lose[8] := 13;
Lose[9] := 1; Lose[10] :=11;
m := 0;
For t := 1 to 10 Do
If Lose[t] m := m + Lose[t];
End;
Writeln(m);
End.

4. Определите значение переменной «a» после выполнения фрагмента программы:

a := 10; b := 5;
if (a 1) and (a a := a - 5;
if (a 1) and (a = b) then
a := a - 5;

5.Определите, что будет напечатано в результате работы следующей программы:

var x,y:integer;

begin

x:=20;

y:=1;

while (x8) do

begin

  y:=y+x;

  x:=x-3;

end;

writeln(y);

end.

6.За­пи­ши­те зна­че­ние пе­ре­мен­ной, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы

s:=0;

i:=15;

repeat

s:=s+i;

i:=i-3;

until i

writeln (s+2*i);

7.За­пи­ши­те зна­че­ние пе­ре­мен­ной, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы

Var s, k: integer;

Begin

s := 1;

for k := 0 to 4 do

s := s*2;

write (s);

End.

8.В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] – количество учеников в первом классе, Dat[2] – во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Var k, m: integer;
Dat: array[1..11] of integer;
Begin
Dat[1] := 20; Dat[2] := 25;
Dat[3] := 29; Dat[4] := 35;
Dat[5] := 26; Dat[6] := 12;
Dat[7] := 24; Dat[8] := 28;
Dat[9] := 26; Dat[10] := 21;
Dat[11] := 27;
m := 0;
for k := 1 to 11 do
if Dat[k] m := m + 1
end;
writeln(m)
End.

9. В таблице А хранятся данные о количестве призеров олимпиады по программированию по 9-ти округам Москвы. Определите, что будет напечатано в результате выполнения следующего алгоритма.

var k, score: integer;
A: array[1..9] of integer;
begin
A[1] := 9 ; A[2] :=11;
A[3] := 7; A[4] :=12;
A[5]:=3; A[6]:=5;
A [7] := 9 ; A[8] :=3;
A[9] :=4 ;
score:= 0;
for k:=1 to 9 do begin
if A[k] score:=score+A[k];
end;
write(score);
end.

10. В таблице Work хранятся данные о количестве заказов, принятых фирмой "Алоэ" с первого по 15 ноября. (Work[l] - число заказов, принятых 1 ноября, Work[2] - 2 ноября и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. 

Var k, m: integer;
Work: array[1..15] of integer;
Begin
Work[1] := 5; Work [2] := 4;
Work[3] := 5; Work [4] := 17;
Work[5] := 26; Work [6] := 12;
Work[7] := 7; Work [8] :=33;
Work[9] := 19; Work [10] := 7;
Work[11] :=20; Work [12] := 9;
Work[13] := 1; Work [14] := 0;
Work[15] := 18;
m := 0;
For k:=1 to 15 Do
If Work [k] m Then Begin
m := Work [k];
End;
Writeln(m) ;
End.