Вопрос задан 14.09.2026 в 18:17. Предмет Информатика. Спрашивает Жайлыбеков Асет.

Тест: ветвление в Pascal. 1. Из предложенных вариантов определения разветвляющейся алгоритмической структуры выберите правильный: А. Это такая организация данных, при которой одни и те же действия выполняются многократно. В. Это такая организация данных, при которой действия выполняются в зависимости от какого-либо условия. Б. Это такая организация данных, при которой все действия выполняются последовательно друг за другом. Г. Нет правильного ответа. 3. Укажите идентификатор языка программирования Pascal, записанный с ошибкой. А. if A>B then M:=A+B else M:=A-B; В. if B>A then alfa:=A+B else alfa:=A-B; Б. if A>B then program:=1 else var:=2; Г. if B>A then trio:=A+B else trio:=A-B; 4. Как на языке программирования Pascal будет записана следующая команда: при условии М>N вывести на экран значение M-N, иначе вывести на экран значение N-M? А. If М>N then writeln('M-N=') else writeln('N-M=') В. If М>N then M-N else N-M; Б. If М>N then writeln(M-N) else writeln(N-M); Г. Подойдёт любой вариант. 5. Среди приведённых ниже задач выберите одну, которая соответствовала бы полному ветвлению: А. Если атмосферное давление понизится, то пойдёт дождь. В. При условии, что если меня устроит фасон платья, то закажу в ателье его пошив. Б. Если на вступительных экзаменах я наберу 20 баллов, то буду учиться в ВУЗе, в противном случае поступлю в техникум. Г. Если на экзамене по физике попадётся «лёгкий» билет, то я получу «четыре» или «пять». 6. Определите правильный порядок действий при входе в метро (запишите в нужном порядке): А. Прохожу через турникет Г. Иду к кассе Б. Дожидаюсь разрешённого сигнала Д. Вставляю магнитную карту в автомат В. Покупаю магнитную карту Е. Есть ли магнитная карта? 7. Какое значение будет принимать переменная Х после выполнения следующей последовательности операторов: f:=5; d:=7; if f>=d then x:=f else x:=d; А. 5 В. 12 Б. 7 Г. 2 8. Дана блок-схема. Какая из предложенных задач может быть реализована с помощью данной блок-схемы? А. Даны два действительных числа. Найти их разность, сумму и произведение. В. Вычислить значение функции y=3x³+3x²+15 для значений x, изменяющихся от –1 до 2 с шагом 0,2. Б. Даны действительные числа. Возвести в квадрат те из них, значения которых неотрицательны. Г. Определить, является ли данное целое число чётным. 9. Какой из условных операторов недопустим? А. If x+yz then z:=0 else y:=0; В. If x-yx then else z:=0 else z:=1 else z:=3; Б. If x+yz else z:=0 else y:=0; Г. Нет правильного ответа. 10. Составьте блок-схему и программу, которая позволяет возвести данное число в куб, если оно отрицательное, и увеличить его в 3 раза, если оно положительное.

Перейти к ответам

Ответы на вопрос

Отвечает Марцевич Артём.

1. Правильный ответ: В. Разветвление — это когда действия выполняются в зависимости от условия.

3. Правильный ответ: Б. В Pascal слова program и var являются служебными, их нельзя использовать как имена переменных.

4. Правильный ответ: Б: If M>N then writeln(M-N) else writeln(N-M);

5. Правильный ответ: Б. Это полное ветвление: есть действие при выполнении условия и действие «в противном случае».

6. Порядок действий: Е — есть ли магнитная карта? Если нет: Г — иду к кассе, В — покупаю карту. Затем: Д — вставляю карту, Б — дожидаюсь разрешённого сигнала, А — прохожу через турникет.

7. Правильный ответ: Б, 7. Условие \( f \ge d \) ложно, потому что \( 5 \ge 7 \) неверно, значит выполняется ветка else: \( x:=d \).

8. Ответ определить нельзя, потому что сама блок-схема в вопросе не приложена.

9. В приведённом виде корректного единственного ответа нет: операторы А, Б и В записаны с ошибками. В Pascal после if должно быть логическое условие, затем then, а else не может повторяться несколько раз в одном простом условном операторе.

10. Логика блок-схемы: начало — ввод \( x \) — проверка \( x<0 \). Если да, то \( y:=x \cdot x \cdot x \). Если нет, проверяем \( x>0 \). Если да, то \( y:=3 \cdot x \). Если \( x=0 \), то \( y:=0 \). Затем вывод \( y \) и конец.

Программа на Pascal:

program Zadacha;
var x, y: real;
begin
  readln(x);
  if x < 0 then
    y := x * x * x
  else
    if x > 0 then
      y := 3 * x
    else
      y := 0;
  writeln(y);
end.

Похожие вопросы

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос