Pascal/Turbo Pascal - ejercicio 1

   
Vista:

ejercicio 1

Publicado por Erik Napster_EPD88@hotmail.com (73 intervenciones) el 09/03/2014 20:41:30
Hola, tengo que hacer lo siguiente:

Codifique un programa que incluya este procedimiento y este módulo principal, compile y ejecute:

PROCEDIMIENTO

Procedure ingreso(saldo: real; ingreso: real);
Begin
if (ingreso >0) then
saldo := saldo + ingreso
else (* Se resta comision por numeros rojos *)
saldo := (saldo + ingreso) – 3 ;
End;

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’);

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 1

Publicado por ramon (2072 intervenciones) el 10/03/2014 11:35:39
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
{algo asi}
 
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.
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