Калькулятор на Паскале

Народ, и так трудное время... надо 4 по информатике... вы можите мне написать код для калькулятора(должен только скадовать) паскаля... самое элементарное(9класс) и с описанием в калькуляторе... типа сюда число и сюда... ответ такой-то

 

здесь посмотри
http://pascal.sources.ru/math/index.htm

 

Program Calc;
var
a, c: real;
Begin;
WriteLn('Enter first num');
ReadLn(a);
WriteLn('Enter second num');
ReadLn(c);
WriteLn(a + c);
End.

 

Слабо верится, что на столько простой нужен

вот

http://pascal.sources.ru/parsing/calc_s.htm

 

у меня 9 класс... мы еще только начали

 

ДА мне кажется этот еод подойдёт по параметрам только не учтено ещё одно пожелание Стобы при ответе писало ответ и цифру но это легко исправить отредактировав строчку WriteLn(a + c);
и изменив её на WriteLn('Ответ',a + c); если я конечно не ошибаюсь

 

а что надо на 5 ?

 

Program Calc;
uses crt;
var
a, c: real;
Begin
clrscr;
Write('Enter first num: ');
ReadLn(a);
Write('Enter second num: ');
ReadLn(c);
WriteLn(a + c);
readkey;
End.

Очистка экрана перед работой проги + ожидание нажатия клавишы после ) Пусть твоя училка кончит =)))

 

program calc;
var
operation:byte;
a,b:integer;
begin
writeln('a');
readln(a);
writeln('b');
readln(b);
writeln('1 - sum');
writeln('2 - sub');
writeln('3 - div');
writeln('4 - mul');
readln(operation);
case operation of:
1: writeln(a+b);
2: writeln(a-b);
3: writeln(trunc(a/b));
4: writeln(a*b);
end;
end.

//много недочетов, но для начала сойдет...

 

uses crt;
var
a,b,c: integer;
Begin
clrscr;
Write('Enter first num: ');
ReadLn(a);
Write('Enter second num: ');
ReadLn(b);
c:=a+b;
WriteLn(a,'+',b,'=',c);
readkey;
End.

Так красивше