Wayground logo

Free Printable Worksheets

Font size

S
M
L
XL
Worksheets

Циклы в Pascal

Total questions: 14

Worksheet time: 10mins

Name
Class
Date
1.

Сколько существует операторов цикла в Pascal ?

a)

1

b)

2

c)

3

d)

4

2.

Как называется алгоритмическая структура, которая представляет собой последовательность действий, повторяющихся многократно?

a)

Ветвление

b)

Рекурсия

c)

Цикл

d)

Следование

3.

Чему будет равна переменная sum после выполнения фрагмента программы:
sum:=0; 

for i:=7 to 9 do 

sum:=sum+i;

(a)  

4.

Укажите процесс, который демонстрирует работу циклического алгоритма:

a)

Движение часовой стрелки

b)

Движение поезда от начальной до конечной остановки

c)

Гулять по городу

d)

Каждый день ходить в школу (исключая выходные)

e)

Поход в магазин

5.

Чему будет равна переменная s после выполнения фрагмента программы:

s:=0; 

n:=1; 

whlle n<=5 do begin 

s:=s+n; 

n:=n+1; 

end; 

writeln (‘s=’, s);

(a)  

6.

Какому оператору цикла соответствует данная блок-схема?

a)

For

b)

While .. do

c)

Repeat .. until

7.

 Сколько раз исполнится следующий цикл:
i:=15;
Repeat
i:=i – 4
Until i<4;

(a)  

8.

Как называется последовательность действий, содержащаяся в цикле?

a)

Операторный блок цикла

b)

Заголовок цикла

c)

Условие цикла

d)

Тело цикла

9.

Чему будет равна переменная s после выполнения фрагмента программы:

s:=0; 

n:=1; 

whlle n<=5 do begin 

s:=s+n; 

n:=n+1; 

end; 

writeln (‘s=’, s);

(a)  

10.

В каком из операторов допущена синтаксическая ошибка:

a)

For I:=10 downto 5 do p:=p+1.

b)

While s<3 do s:=s-3;

c)

 For i=1 to 20 do p:=p+1;

d)

Repeat k:=k+1 until k<7;

11.

Сколько раз исполнится следующий цикл:

For i:=14 downto 8 do

(a)  

12.

Определите значение переменной S после выполнения опера-торов:
i:=0; S:=0
While i<3 do
Begin
i:=i+1;
S:=S+i*i
End;

a)

12

b)

13

c)

14

d)

15

e)

16

13.

Сколько раз исполнится следующий цикл:

i:=4; 

while i<10 do 

i:=i+3; 

(a)  

14.

Отметьте, что определяется во фрагменте программы:

 readln (а, b); 

for i:=1 to n do begin 

write (‘Enter х’); 

readln (х); 

if х>b then b:=х 

else 

if х<а then а:=х; 

end; 

writeln (b-а);

a)

разность минимального и максимального элементов

b)

минимальный и максимальный элементы

c)

произведение максимального и минимального элементов

d)

разность максимального и минимального элементов