Язык программирования Паскаль. Условный оператор
Список вопросов теста
Вопрос 1
Как называется алгоритм, который помимо следования содержит конструкцию ветвления?
Варианты ответов
- Линейный
- Вспомогательный
- Разветвляющийся
- Циклический
Вопрос 2
Какие существуют формы записи условного оператора в языке Pascal?
Варианты ответов
- Развёрнутая
- Полная
- Дополненная
- Сокращённая
Вопрос 3
Выберите условные операторы, записанные в сокращённой форме.
Варианты ответов
- if a>b then begin p:=a; a:=b; end;
- if a>b then max:=a else max:=b;
- if a<>b then write ('не равны') else write ('равны');
- if a<>b then a:=b;
Вопрос 4
Какую форму имеет блок "принятия решения" условного оператора на блок-схеме?
Варианты ответов
- Ромб
- Прямоугольник
- Треугольник
- Параллелограмм
Вопрос 5
Из указанных фрагментов программ выберите тот, который дает ответ на вопрос, является ли целое число a чётным или нечётным?
Варианты ответов
- if a mod 2=1 then write ('Нет') else write ('Да');
- if a mod 2=1 then write ('Да');
- if a mod 10=2 then write ('Да') else write ('Нет');
Вопрос 6
Из указанных фрагментов программ выберите тот, который дает ответ на вопрос, является ли целое число a положительным?
Варианты ответов
- if a mod 2=1 then write ('Нет') else write ('Да');
- if a >0 then write ('Да');
- if a mod 10=2 then write ('Да') else write ('Нет');
Вопрос 7
Из указанных фрагментов программ выберите тот, который дает ответ на вопрос, является ли целое число a трехзначным?
Варианты ответов
- if a mod 2=1 then write ('Нет') else write ('Да');
- if (a >9) and (a<100) then write ('Да');
- if a mod 10=2 then write ('Да') else write ('Нет');
Вопрос 8
Чему будет равно а после выполнения фрагмента программы?
a:=0;
if a<>0 then a:=2
else a:=3;
Вопрос 9
Какое значение примет переменная B при значении А:= - 20, после выполнения фрагмента программы:
if A>=15
then B:=A*2
else B:= A - 10
Варианты ответов
- - 40
- 30
- 20
- - 30
Вопрос 10
Что будет напечатано в результате выполнения следующей программы,
если значение R равно -10?
if R=0 then Y:=R*10;
if R>0 then Y:=R+10;
if R<0 then Y:=R*R/2;
writeln ('Y=', Y)
Варианты ответов
- 0
- 100
- -10
- 50