Calculadora con case free pascal
Publicado por cesar (1 intervención) el 08/01/2013 17:41:08
Bueno pues el caso es que tengo que hacer una calculadora con el case y cuando corro el programa, introduzco los numero y la operacion a realizar, el resultado siempre es 0 xD. Haber si me podeis ayudar, Aki dejo el codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
a,b,c:real;
d:char;Begin
Writeln('Introduce el primer numero');
Readln(a);
Writeln('Introduce el segundo numero');
Readln(b);
Writeln('Introduce la operacion que quieres realizar');
Readln(d);
Case d of
'+': c:=a+b;
'-': c:=a-b;
'*': c:=a*b;
'/': c:=a/b;
end
end.Valora esta pregunta
0