Question

Составить программу в Паскаль для синей/красной кнопки. Условие: Красная кнопка увеличивает число в 2 раза, синяя кнопка уменьшает число в 2 раза. Пусть дано некоторое целое число а. Написать программу с символьным типом данных для переменной выбора кнопки. (Нужно написать программу в Паскале) ​(Помогите, пожалуйста)

Answer 1

Решение представлено во вложении.

Язык: Pascal

Answer 2

Конечно, вот пример программы на Паскале, которая выполняет указанные действия в зависимости от выбора кнопки:

pascalCopy code
program ButtonProgram;

var
  a: integer; // Целое число
  button: char; // Символьный тип данных для переменной выбора кнопки

begin
  // Ввод целого числа
  write('Введите целое число a: ');
  readln(a);

  // Ввод символа для выбора кнопки (R - красная, B - синяя)
  write('Выберите кнопку (R - красная, B - синяя): ');
  readln(button);

  // Проверка выбора кнопки и выполнение соответствующего действия
  case button of
    'R':
      a := a * 2; // Увеличить число в 2 раза при выборе красной кнопки
    'B':
      a := a div 2; // Уменьшить число в 2 раза при выборе синей кнопки
    else
      writeln('Неправильный выбор кнопки');
  end;

  // Вывод результата
  writeln('Результат: ', a);

  // Ждем нажатия клавиши Enter перед завершением программы
  readln;
end.

Эта программа сначала запрашивает у пользователя целое число a и символ кнопки (R для красной, B для синей), затем в зависимости от выбора выполняет соответствующее действие и выводит результат.