Программа, в зависимости от выбора пользователя, производит над двумя числами одну из четырех арифметических операций: сложение, вычитание, умножение или деление.
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
program choise_7;
uses crt; var a, b: real; c: integer; begin clrscr; write(‘a > ‘); read(a); write(‘b > ‘); read(b); writeln(‘1 — сложение’); writeln(‘2 — вычитание’); writeln(‘3 — умножение’); writeln(‘4 — деление’); write(‘Номер операции > ‘); read(c); case c of 1: write(a:3:1,‘+’,b:3:1,‘=’, a+b:3:1); 2: write(a:3:1,‘-‘,b:3:1,‘=’, a—b:3:1); 3: write(a:3:1,‘*’,b:3:1,‘=’, a*b:3:1); 4: write(a:3:1,‘/’,b:3:1,‘=’, a/b:3:1); else write(‘Error’) end; readkey; end. |