ejercicio pascal ayuda
Publicado por Davo (26 intervenciones) el 26/11/2012 19:54:42
Hola a todos, podria alguien decirme que es lo que estoy hacien mal en este codigo?
Al compilar me da este error pero no consigo subsanarle:
19 / 9 614~1.pas
Fatal: Syntax error, ; expected but identifier CUENTA found
Muchas gracias por la ayuda.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program unidad6_1_4;
Procedure cuenta(saldo: real; ingreso: real);
Begin
if (ingreso >0) then
saldo := saldo + ingreso
else (* Se resta comision por numeros rojos *)
saldo := (saldo + ingreso) - 3 ;
End;
var
micuenta:real;begin
(*Saldo de micuenta corriente *)
micuenta:= 600;
(* Hago un ingreso de 500 euros *)
writeln cuenta(saldo,500);
(* Imprimo el saldo actualizado *)
writeln('Su saldo es ahora de ', micuenta:0:2, 'euros');
end.Al compilar me da este error pero no consigo subsanarle:
19 / 9 614~1.pas
Fatal: Syntax error, ; expected but identifier CUENTA found
Muchas gracias por la ayuda.
Valora esta pregunta
0