Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » ejercicio pascal ayuda

Pascal/Turbo Pascal - ejercicio pascal ayuda

Volver
Nuevo Tema
<<>>
 
Vista:

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?

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

ejercicio pascal ayuda

Publicado por ruben (8 intervenciones) el 26/11/2012 20:05:54
para empezar, no se si el código hace lo que estás esperando obtener, pero el error que te aparece se debe a que CUENTA es un PROCEDURE y no una FUNCTION.
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

ejercicio pascal ayuda

Publicado por davo (26 intervenciones) el 27/11/2012 17:26:39
vale gracias, si estaba tratando mal el procedimiento.
creo que la buena es asi.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program  unidad6_1_4;
 
                   Procedure ingreso(VAR 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
(*MÓDULO PRINCIPAL*)
 
(*Saldo de micuenta corriente *)
micuenta:= 600;
(* Hago un ingreso de 500 euros *)
ingreso(micuenta, 500);
(* Imprimo el saldo actualizado *)
writeln('Su saldo es ahora de ', micuenta:0:2, 'euros');
readln;
end.


Gracias por tu ayuda.
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