Cita:
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);
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);
Código:
[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;