Pascal/Turbo Pascal - ejercicio 2

 
Vista:
sin imagen de perfil

ejercicio 2

Publicado por Erik (73 intervenciones) el 11/03/2014 11:50:20
hola tengo que hacer lo siguiente, cambiar la definición del procedimiento a:

Procedure ingreso(VAR saldo: real; ingreso: real);

que Indique el resultado obtenido y la diferencia que se observa en la ejecución de cada uno. Justifique razonadamente esa diferencia.

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

ejercicio 2

Publicado por ramon (2158 intervenciones) el 12/03/2014 11:23:32
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
{En este caso no entiendo lo que pides pero te dejo lo tuyo si no es esto dame mas detalles }
 
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;
     writeln('  Mi Cuenta Es = ',micuenta:0:2);
    (* Hago un ingreso de 500 euros *)
     ingreso(micuenta, 500);
     writeln('  Mi Ingreso es = ',500);
    (* Imprimo el saldo actualizado *)
    writeln('Su saldo es ahora de ', micuenta:0:2, 'euros');
    writeln('Pulse Una Tecla');
    readkey;
  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