Калькулятор на Borland Pascal (lol)

[TheJahte]

Можете помочь калькулятор написать на borland pascal ?:D не как не допру.... думаю чтото типа того :

uses crt;
var a,b,c,x: real;
begin
clrscr;

writeln('1 Число'); readln(a);
writeln('Действие'); readln(b);
writeln('2 Число'); readln(c);

x:=('x=',a b c');
readln;
end.

ну никак не могу допереть как сделать чтобы он брал знак (+-*/) из переменной b...


Парюсь после первого же урока :D

буд очень благодарен )))

[nilux]

выведи список действий и считай номер нужного

[Dober'man]

....
var
z: char;
a, b: real;
begin
write('vvedite znak');
readln(z)
case я of
1: if z = '*' then write(a*b)
2: if я = '/' then ...
3: '+'
4: '-'
end;
......

[gisTy]

uses crt;
var
z: char;
a, b: real;
label 1;
begin
clrscr;
write('enter FIRST digit: '); readln(a);
write('enter SECOND digit: '); readln(b);
1:write('enter operation: '); readln(z);
if (z <> '*') OR (z <> '/') OR (z <> '+') OR (z <> '-') then goto 1;
write('result: ');
if z = '*' then write(a*b);
if z = '/' then write(a/b);
if z = '+' then write(a+b);
if z = '-' then write(a-b);
readln;
end.
ну как-то так.. давно не писал на паскале

[TheJahte]

Простота - залог успеха )))))))0


uses crt;
var a,c,d,x: real;
var b:char;
begin
clrscr;
writeln('1 chislo'); readln(a);
writeln('Dejstvie'); readln(b);
writeln('2 chislo'); readln(c);
if b=('+') then writeln ('Otvet: ',a+c:4:2) else
if b=('*') then writeln ('Otvet: ',a*c:4:2) else
if b=('-') then writeln ('Otvet: ',a-c:4:2) else
if b=('/') then writeln ('Otvet: ',a/c:4:2);
readln;
end.