Question

Створи програму-калькулятор у Pascal. Ввести два числа (a i b), і код операції (kod). Використовуємо команду розгалуження: якщо kod =1 - рахуємо суму a+b якщо kod =2 - рахуємо різницю a - b якщо kod =3 - рахуємо a * b якщо kod =4 - рахуємо a/b. Результат виводимо на екран.

Answer 1

Ответ:

Сразу два решения.

Объяснение:

Так как тут можно использовать и case и if, вот вам на выбор.

if then else

program zadacha;

var a,b,kod:real;

begin

 write('Введите значение a: ');readln(a);

 write('Введите значение b: ');readln(b);

 write('Введите код операции (от 1 до 4): ');readln(kod);

 

 if kod=1 then

   kod:=a+b

 else

   if kod=2 then

     kod:=a-b

   else

     if kod=3 then

       kod:=a*b

   else

     kod:=a/b;

 writeln('Ответ: ',kod);

end.

case:

program zadacha;

var a,b,kod:integer;

begin

 write('Введите значение a: ');readln(a);

 write('Введите значение b: ');readln(b);

 write('Введите код операции (от 1 до 4): ');readln(kod);

 

 case kod of

   1:kod:=a+b;

   2:kod:=a-b;

   3:kod:=a*b;

   4:kod:=a div b;

 end;

 writeln('Ответ: ',kod);

end.

Answer 2

Ось програма-калькулятор на мові Pascal, яка виконує введені операції відповідно до вказаного коду:

pascalCopy code
program Calculator;
var
  a, b, result: real;
  kod: integer;
begin
  writeln('Введіть число a:');
  readln(a);
  
  writeln('Введіть число b:');
  readln(b);
  
  writeln('Виберіть операцію:');
  writeln('1 - Додавання');
  writeln('2 - Віднімання');
  writeln('3 - Множення');
  writeln('4 - Ділення');
  readln(kod);
  
  case kod of
    1: result := a + b;
    2: result := a - b;
    3: result := a * b;
    4: 
      begin
        if b = 0 then
          writeln('Помилка: Ділення на нуль неможливе')
        else
          result := a / b;
      end;
    else
      writeln('Невірний код операції');
  end;
  
  writeln('Результат: ', result);
  
  readln;
end.

Ця програма спочатку запитує користувача ввести числа a і b, а потім запитує код операції kod. Після чого вона виконує вибрану операцію та виводить результат на екран. Важливо враховувати можливість ділення на нуль при обранні операції ділення.