Ayuda con error "Not enough actual parameters"

[irurueta]

Empezado por AgustinOrtu

Bienvenido

No se ve nada en las imágenes, sería mejor que nos copies el código y nos digas cual es el error

Código Delphi [-]
procedure calc_desc(contE_1,contE_2,contE_3,contE_4,contE_5:integer;var desc_1,desc_2,desc_3,desc_4,desc_5:real;
                             var aux_1,aux_2,aux_3,aux_4,aux_5:real;var porc1,porc2,porc3,porc4,porc5:real;var tot1,tot2,tot3,tot4,tot5:real);
//Calcular descuento.
begin
 aux_1:=130*contE_1;
 if aux_1>1000 then
  begin
  porc1:=aux_1*0.1;
  desc_1:=porc1-aux_1;
  tot1:=aux1-porc1

Código Delphi [-]
calc_desc(cont1,cont2,cont3,cont4,cont5,desc1,desc2,desc3,desc4,desc5,aux1,aux2,
 aux3,aux4,aux5,tot1,tot2,tot3,tot4,tot5); //aca me tira error :

[Error] Project2.dpr(224): Not enough actual parameters

Código Delphi [-]
 if aux1>1000 then
  begin
  writeln('El producto 1 tiene un descuento del 10%, debe pagar $',tot1:8:2);
  end;

[dec]

Hola,

He cambiado el título de este hilo y he formateado tu último mensaje, irurueta. Por favor, revisa la guía de estilo de los foros.

[dec]

Hola,

El mismo mensaje de error te está diciendo el problema: "No se han proporcionado los argumentos necesarios". Contando los argumentos de la declarada función (una verdadera barbaridad, por cierto) estos no coinciden con los que usas al llamar a dicha función y de ahí el problema.

[irurueta]

Gracias bro, no tenia ni idea como hacer eso jaja!

[(MAJ)]

mira, como tenes veinticinco parametros y a la vez esos estan divididos en cinco grupos de cinco, estoy segudo de que mas de una vez te va a causar problemas el pasar tantos parametros, lo mejor seria pasar un array de dos dimensiones 5x5, o sino 5 arrays independientes

[irurueta]

Empezado por (MAJ)

mira, como tenes veinticinco parámetros y a la vez esos están divididos en cinco grupos de cinco, estoy segudo de que mas de una vez te va a causar problemas el pasar tantos parámetros, lo mejor seria pasar un array de dos dimensiones 5x5, o sino 5 arrays independientes

Holaaa, tiene muchos parámetros, porque debía hacer un sistema para un deposito de elementos de soldadura (Trabajo practico de la facu), en el cual tenían 5 productos y de allí tenia que sacar si se compraban mas de 1000 artículos el 10% y descontarlo, o sea hacer el 10% de descuento!

Ya pude solucionarlo, el problema era que cuando llamaba al procedure, no declaraba las variables.

Gracias...

[ecfisa]

Hola irurueta.

Tal vez te resulte mas simple organizarlo de forma similar a esta:

Código Delphi [-]
type
  TProducto = record
    ContE : Integer;
    Desc  : Real;
    Aux   : Real;
    Porc  : Real;
    Tot   : Real;
  end;

procedure calc_desc(p1, p2, p3, p4, p5: TProducto);
begin
  p1.Aux := 130 * p1.ContE;
  if p1.Aux > 1300 then
  begin
    p1.Porc := p1.Aux * 0.1;
    p1.Desc := p1.Porc - p1.Aux;
    p1.Tot  := p1.Aux -p1.Porc;
    ...

Saludos