Створи програму-калькулятор у Pascal. Ввести два числа (a i b), і код операції (kod). Використовуємо команду розгалуження:
якщо kod =1 - рахуємо суму a+b
якщо kod =2 - рахуємо різницю a - b
якщо kod =3 - рахуємо a * b
якщо kod =4 - рахуємо a/b.
Результат виводимо на екран.
Сразу два решения.
Объяснение:
Так как тут можно использовать и case и if, вот вам на выбор.
if then elseprogram 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.