Pascal/Turbo Pascal - duda programa 1

   
Vista:

duda programa 1

Publicado por Erik Napster_EPD88@hotmail.com (73 intervenciones) el 14/03/2014 18:07:41
hola tengo una duda en un programa;

en el siguiente ejercicio Sobra el var en la definición del procedimiento.

No debe producirse la modificación del saldo

como lo hago.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program cuenta;
 uses
    crt;
 
  var
    micuenta, ingre : real;
 
 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;
 begin
    (*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');
    writeln('Pulse Una Tecla');
    readkey;
  end.

gracias de antemano
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

duda programa 1

Publicado por ramon (2072 intervenciones) el 15/03/2014 00:33:50
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
program cuenta;
 uses
    crt;
 
  var
    micuenta, ingre : real;
 
 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;
 begin
    (*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');
    writeln('Pulse Una Tecla');
    readkey;
  end.
 
{Modifica lo para una funcion asi}
 
 function ingreso(saldo : real; ingres : real) : real;
 Begin
   if (ingres > 0) then
   ingreso := saldo + ingres
 else (* Se resta comision por numeros rojos *)
   ingreso := (saldo + ingres) - 3 ;
 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