Контрольная работа «Разработка алгоритмов и программ»

Контрольная работа «Разработка алгоритмов и программ»

Вариант 1

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

a := 3

b := 7

b := 9+a*b

a := b/5*a

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

var n, s: integer;

begin

s := 0;

for n := 3 to 7 do

s := s + 2 * n;

write(s);

end.

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

Var k, m, day: integer;

Dat: array[1...10] of integer;

Begin

Dat[1]:= 2; Dat[2]:= 2; Dat[3]:= 3; Dat[4]:= 3; Dat[5]:= 2; Dat[6]:= 2;

Dat[7]:= 5; Dat[8]:= 5; Dat[9]:= 6; Dat[10]:= 6;

day:=1; m := Dat[1];

for k := 2 to 10 do

if Dat[k] then

begin

m:= Dat[k];

day := k;

end;

write(day);

End.

4. Сформулируйте условие задачи (что делает программа?)

var a, s: integer;

begin

s:= 0;

readln(a);

while a0 do begin

if (a mod 6= 0) and (a mod 10 = 4) then

s := s + a;

readln(a);

end;

writeln(s)

end.

5.Напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет сумму чисел, крат­ных 3. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в последовательности, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, крат­ное 3. Ко­ли­че­ство чисел не пре­вы­ша­ет 100. Введённые числа не пре­вы­ша­ют 300. Про­грам­ма долж­на вы­ве­сти одно число — сумму чисел, крат­ных 3.

Вариант 2

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

а := 0

b := 2

b := 2 + a + 4*b

a := b/2*a

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

Var s,k: integer;

Begin

s := 0;

for k := 6 to 12 do

s := s+10;

writeln(s);

End.

1. Школьница де­ла­ла ла­бо­ра­тор­ную ра­бо­ту по физике, в ходе ко­то­рой из­ме­ри­ла 10 раз силу тока и за­пи­са­ла по­ка­за­ния ам­пер­мет­ра в таб­ли­цу Tok (Tok[1] — ре­зуль­тат пер­во­го измерения, Tok[2] — вто­ро­го и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. 

Var k, m: integer;

Tok: array[1..10] of integer;

Begin

Tok[1] := 10; Tok[2] := 14; Tok[3] := 15; Tok[4] := 4; Tok[5] := 12;

Tok[6] := 6; Tok[7] := 3; Tok[8] := 5; Tok[9] := 5; Tok[10] := 10;

m := 0;

For k := 1 to 10 Do

If Tok[k] 6 Then

Begin

m := m + 2;

End;

Writeln(m);

End.

1. Сформулируйте условие задачи (что делает программа?)

var a, answer: integer;

begin

answer:=0;

readln(a);

while a0 do begin

if (a mod 4 = 0) and (a

answer := answer + 1;

readln(a); end;

writeln(answer)

end.

1. Напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет ко­ли­че­ство чисел, крат­ных 6. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в последовательности, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, крат­ное 6.