нужно соединить квадратики по правильному объектно-ориентированные языки программирования 2.декларативные языки программирования 3.функциональные языки программирования 4.процедурные языки программирования 5.машинные языки языки программирования

Uses graphABC;procedure samolet(x:integer);
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.

Тест по теме «Алгоритмы в языке Паскаль»

Вариант 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