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.