Versiunea in limba romana Версия на русском языке
...:::   Главная страница · О Паскале · Download · О сайте:::...
 
На сайте:  
Реклама  

 

HotLog online dating service
HotLog
HotLog доставка цветов

 

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    Автор: Аня

Copyright © Rocko, 2004. Last Updated : 1 september 2004

Hosted by uCoz