Question

1. Базовая алгоритмическая структура разветвления в языке Паскаль — … Вставьте пропущенные слова. 2. Какие операторы записаны без ошибок? А) If a> 0 Then x := a Else y: = b; Б) If a> 0 Then x = a; Else y = b; В) If a> 0 Then x = a; Writeln (x) else y = b; Writeln (y) 3. Какое значение будет предоставлено переменной x в результате выполнения оператора If a> 0 Then x: = a + 1 Else x: = 2 * a; Если значение переменной a равнo 5; A) -15; B) 6; D) 10? 4. Составьте программу, которая спрашивает пользователя, который час, и выводит на экран соответствующее пожелание — «Доброе утро!», «Здравствуйте!», «Добрый вечер!» или «Доброй ночи!». Для каждого пожелания .выберите соответствующий цвет. 5 Компьютер должен перемножить два числа - 167 и 121. Если их произведение превышает 2000, то компьютер должен напечатать текст ПРОИЗВЕДЕНИЕ БОЛЬШОЕ, иначе текст ПРОИЗВЕДЕНИЕ МАЛЕНЬКОЕ. После этого компьютер в любом случае должен напечатать само произведение.

Answer 1

Ответ:

1. if

2. A

3. B

4.

var a : integer;

begin

writeln('Который час?');

readln(a);

if (a > 4) and (a < 12) then writeln('Доброе утро')

else if (a >= 12) and (a < 17) then writeln('Добрый день')

else if (a>=17) and (a < 21) then writeln('Добрый вечер')

else if (a >= 21) and (a <= 4) then writeln('Доброй ночи');

end.

5.

var

a : integer := 167;

b : integer := 121;

c : integer;

begin

c := a*b;

if c > 2000 then writeln('Произведение большое')

else writeln('Произведение маленькое');

writeln(c);

end.

Answer 2

1. Базовая алгоритмическая структура разветвления в языке Паскаль — If-Then-Else.

2. Правильные операторы:

   A) If a > 0 Then x := a Else y := b;

   В) If a > 0 Then x := a; Writeln(x) else y := b; Writeln(y);

3. Значение переменной x будет равно 6, если значение переменной a равно 5.

4. Пример программы на Паскале:

pascalCopy code
program Greeting;
var
  hour: integer;
begin
  Write('Который час? ');
  Readln(hour);
  
  if (hour >= 6) and (hour < 12) then
  begin
    TextColor(10); // Зеленый цвет
    Writeln('Доброе утро!');
  end
  else if (hour >= 12) and (hour < 18) then
  begin
    TextColor(14); // Желтый цвет
    Writeln('Здравствуйте!');
  end
  else if (hour >= 18) and (hour < 24) then
  begin
    TextColor(12); // Красный цвет
    Writeln('Добрый вечер!');
  end
  else
  begin
    TextColor(7); // Белый цвет
    Writeln('Доброй ночи!');
  end;
end.

Обратите внимание, что вам может потребоваться подключить библиотеку crt для использования TextColor в Pascal.

5. Пример программы на Паскале для перемножения чисел и вывода сообщения в зависимости от результата:

pascalCopy code
program Multiplication;
var
  a, b, product: integer;
begin
  a := 167;
  b := 121;
  
  product := a * b;
  
  if product > 2000 then
    Writeln('ПРОИЗВЕДЕНИЕ БОЛЬШОЕ')
  else
    Writeln('ПРОИЗВЕДЕНИЕ МАЛЕНЬКОЕ');
  
  Writeln('Произведение: ', product);
end.

Эта программа умножает числа a и b и выводит соответствующее сообщение в зависимости от результата, а затем выводит само произведение.