Pascal/Turbo Pascal - Calculadora con case free pascal

   
Vista:

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Calculadora con case free pascal

Publicado por ramon (2072 intervenciones) el 08/01/2013 18:29:34
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
{Mira las correcciones}
 
uses
   crt;
var
  a, b, c : real;
  d : char;
 
Begin
clrscr;
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
'+': begin c:=a+b; writeln(c:8:2); end;
'-': begin c:=a-b; writeln(c:8:2); end;
'*': begin c:=a*b; writeln(c:8:2); end;
'/': begin c:=a/b; writeln(c:8:2); end;
end;
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar