|
На сайте: |
|
|
|
|
Kалькулятор
|
|
|
Написать программу вычисляющую арифметические выражения аналогично калькулятору
var s:string[3];
a,b:real;
c:char;
BEGIN
readln;
repeat
readln(a);
readln(c);
readln(b);
case c of
'+':writeln(a+b:0:3);
'-':writeln(a-b:0:3);
'*':writeln(a*b:0:3);
'/':writeln(a/b:0:3);
end;
writeln('on/off');
readln(s);
until s='off';
readln;
END.
<< Назад
|
|
|
|
Добавленно:
30.08.04 Автор: Аня
| | |