Тест по теме «Алгоритмы в языке Паскаль»
Вариант 1
1. Алгоритм, в котором команда или серия команд повторяется, называется
А) циклическим;
2. Укажите процесс, который демонстрирует работу циклического алгоритма:
A) движение часовой стрелки;
3. Какой цикл называют циклом с предусловием?
B) While;
5. Требуется подсчитать сумму натуральных чисел от 5 до 125. Какое условие нужно использовать в цикле While?
C) i<=125.
6. Сколько раз будет выполняться цикл For i:=7 to 12 do…;
B) 6 раз;
7. Сколько раз исполнится цикл:
i:=4;
while i<10 do i:=i+3;
A) 2 раза;
8. Сколько раз исполнится следующий цикл:
i:=21;
Repeat
i:=i-5
Until i<21;
A) 1
9. Чему будет равна переменная sum после выполнения фрагмента программы:
sum:=0;
for i:=7 to 9 do
sum:=sum+i;
B) 24;.
10 . Чему равна переменная с после выполнения алгоритма:
а:=2
b:=3
а:=а*b=6
b:=a+b=9
c:=3-2*a+b=0
c:=c-b=-9
C) -9
Тест по теме «Алгоритмы в языке Паскаль»
Вариант 2
1.Алгоритм, в котором команда или серия команд повторяется называется
A) циклическим;
2.Укажите процесс, который демонстрирует работу циклического алгоритма:
C) движение Земли вокруг своей оси.
3.Какой цикл называют циклом с постусловием?
A) Repeat;
5.Требуется подсчитать сумму натуральных чисел от 2 до 22. Какое условие нужно использовать в цикле While?
A) i<23;
6.Сколько раз будет выполняться цикл For i:=4 to 8 do…;
A)5 раз;
7.Сколько раз исполнится цикл:
i:=6;
while i<18 do i:=i+3;
C)4 раза.
8. Сколько раз исполнится следующий цикл:
i:=12;
Repeat
i:=i-2
Until i<4;
B)5;
9.Чему будет равна переменная sum после выполнения фрагмента программы:
sum:=0;
for i:=5 to 8 do
sum:=sum+i;
C)26.
10. Чему равна переменная с после выполнения алгоритма:
а:=4
b:=1
b:=b-a=-3
b:=b*a=-12
a:=a-2*b=28
c:=a+b=16
B) 16
begin
setpencolor(clblack);
line(3+x,160,3+x,200); // зад
line(3+x,160,30+x,180);
line(3+x,200,88+x,205);
line(30+x,180,100+x,175);
line(125+x,176,170+x,200);
line(170+x,200,172+x,202);
line(172+x,202,170+x,204);
line(170+x,204,115+x,205);
line(120+x,195,85+x,255); //крыло
2line(85+x,255,75+x,258);
line(75+x,258,90+x,195);
line(95+x,175,105+x,125); // крыло
line(105+x,125,116+x,128);
line(125+x,175,116+x,128);
setpencolor(clblue); //пилот
floodfill(135+x,190,clred);
line(135+x,182,135+x,192);
line(135+x,192,158+x,194);
end;
var x:integer;
begin
lockdrawing;
for x:=1 to 640 do //движения
begin
clearwindow;
samolet(x);
sleep(10);
redraw end;end.