Case5. Арифметические действия над числами пронумерованы следующим образом: 1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление. Дан номер действия $$N$$ (целое число в диапазоне 1–4) и вещественные числа $$A$$ и $$B$$ ($$B$$ не равно 0). Выполнить над числами указанное действие и вывести результат.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
program Case5; var N,A,B:Integer; begin Write('Введите номер действия: '); Readln(N); Write('Введите число A: '); Readln(A); Write('Введите число B: '); Readln(B); Case N of 1: Writeln(A+B); 2: Writeln(A-B); 3: Writeln(A*B); 4: Writeln(A/B); end; end. |
Другие задачи из раздела Case можно посмотреть здесь.
var
N:integer;
A,B:real;
begin
writeln(‘Введите данные: ‘);
readln(N);
writeln(‘Введите данные: ‘);
readln(A);
writeln(‘Введите данные: ‘);
readln(B);
case N of
1:writeln(A+B);
2:writeln(A-B);
3:writeln(A*B);
4:writeln(A/B);
end;
end.