duda programa 1
Publicado por Erik (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.
gracias de antemano
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
0