Тест на тему "Программирование линейных и разветвляющихся алгоритмов на языке Pascal"

Вот тест по программированию для школьников 8 класса на тему "Программирование линейных и разветвляющихся алгоритмов на языке Pascal". В конце теста приведены правильные ответы.

Тест по программированию

Тема: Программирование линейных и разветвляющихся алгоритмов на языке Pascal
Класс: 8

---

1. Какой из следующих операторов используется для ввода данных в Pascal?
a) print
b) input
c) read
d) scan

---

2. Какой из следующих вариантов является правильным объявлением переменной в Pascal?
a) int a;
b) var a: integer;
c) a : integer;
d) variable a : int;

---

3. Какой оператор используется для ветвления в алгоритме на языке Pascal?
a) for
b) while
c) if
d) do

---

4. Какой из следующих фрагментов кода является примером линейного алгоритма в Pascal?
a)

if a > b then
   c := a
else 
   c := b;

b)

read(a);
b := a + 5;

c)

for i := 1 to 10 do
   sum := sum + i;

d)

while a < 10 do
   a := a + 1;

---

5. Какой из следующих операторов завершает выполнение блока if?
a) end if
b) else
c) end
d) endif

---

6. Какой тип данных используется для хранения чисел с плавающей точкой в Pascal?
a) integer
b) real
c) char
d) boolean

---

7. Какой из следующих операторов в Pascal используется для выбора одного из нескольких вариантов?
a) if
b) case
c) switch
d) select

---

8. Что выведет следующий код?

var
   a: integer;
begin
   a := 5;
   if a < 10 then
      writeln('Меньше 10')
   else
      writeln('10 или больше');
end.

a) 10 или больше
b) Ошибка компиляции
c) Меньше 10
d) 5

---

9. Как можно закончить выполнение цикла while в Pascal?
a) end
b) exit
c) break
d) С помощью условия в самом цикле

---

10. Какой из следующих фрагментов продемонстрирует работу оператора if с несколько ветвлений?
a)

if x < 0 then
   y := -x
else
   y := x;

b)

if x < 0 then
   y := -x
else if x = 0 then
   y := 0
else
   y := x;

c)

if x < 0 then
   y := -x;

d)

if x > 0 then
   begin
      y := x;
   end;

---

Ответы:

1. c) read
2. b) var a: integer;
3. c) if
4. b)

read(a);
b := a + 5;

5. c) end
6. b) real
7. b) case
8. c) Меньше 10
9. d) С помощью условия в самом цикле
10. b)

if x < 0 then
   y := -x
else if x = 0 then
   y := 0
else
   y := x;

---

Надеюсь, этот тест будет полезен для подготовки к экзаменам!