Pascal/Turbo Pascal - Procedure

   
Vista:

Procedure

Publicado por oscar (64 intervenciones) el 03/11/2012 14:31:48
Hola amigos, de nuevo por aqui pidiendo ayuda, esto se me complica mas y aqui no se como empezar
me dice q haga un programa con esto

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;

y usando esto como modulo 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’);

pero como lo hago?
gracias anticipadas
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

Procedure

Publicado por ramon (2072 intervenciones) el 03/11/2012 18:07:12
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
{Tu programa seria así}
 
program cuenta;
uses
  crt;
 const
    micuenta : real = 600;
  var
    ingres : real;
    saldo  : real;
 
 
  Procedure ingreso(var saldo : real; ingreso : real);
  Begin
    if (ingreso > 0) then
     saldo := micuenta + ingreso
   else (* Se resta comision por numeros rojos *)
     saldo := (micuenta + ingreso) - 3 ;
   End;
 
  begin
     clrscr;
     ingres := 500;
     ingreso(saldo,ingres);
     writeln('Su saldo es ahora de  ', saldo:0:2, ' euros');
     readln;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Procedure variante

Publicado por oscar (64 intervenciones) el 04/11/2012 11:34:23
Entiendo, tengo q poner como constante lo que tengo en cuenta y partir de ahi, y ahora solo se pide que salga en pantalla el resultado, ok entiendo. pero tu ya me lo has presentado como var....y eso tendria q hacerlo ahora...pq pusiste esto Procedure ingreso(var saldo : real; ingreso : real); ese var ahi? es q es lo q me dice que haga ahora e indique la diferencia de tal manera...


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

que diferencia hay¿como quedaria? entonces el anterior no se hace asi?
pq son dos puntos diferentes y creo q tu me has dicho este que te pregunto ahora
Procedure ingreso(VAR saldo: real; ingreso: real);
pero el anterior no lleva ese var y tu lo pusiste....
gracias
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

Procedure variable 2

Publicado por oscar (64 intervenciones) el 04/11/2012 12:11:19
Hola de nuevo, lo q te comentaba antes, podria quedar asi?o no tiene nada que ver?gracias


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program intercambio;
var
saldo:real;
ingreso:real;
Procedure swap(var x,y:real);
var
aux: real;
begin
aux:=y;
y:=x;
x:=aux;
end;
begin
	saldo := 600;					(* Valores iniciales: se pueden pedir al usuario *)
	ingreso := 500;
 
	writeln('Antes de intercambio: saldo= ', saldo:0:2, ' ingreso= ', ingreso:0:2);
 
	Swap(saldo, ingreso);
 
	writeln('Despues de intercambio: saldo= ', saldo:0:2, ' ingreso= ', ingreso:0:2);
	readln;
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

Procedure variable 2

Publicado por oscar (64 intervenciones) el 04/11/2012 13:05:00
Consegui hace lo de Procedure ingreso(VAR saldo: real; ingreso: real); ya ya hice el swap de las variables y me va bien, entonces entiendo q ramon lo que me pusiste arriba no es lo que yo te pedia?pq incluyes ese var tb? esa parte es la que no tengo, la segunda parte del ejercicio si, gracias
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

Procedure variable 2

Publicado por oscar (64 intervenciones) el 04/11/2012 13:31:41
Doy por resueltos estos ejercicios, por fin, perdon por tanto posteo, pero creo q ya lo entendí, mil gracias, voy a por el siguiente!
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