Ayuda con valores de funciones y procedimientos
Publicado por Pablo (2 intervenciones) el 09/11/2014 00:55:23
Hola tengo el siguiente problema...
yo tengo creada una funcion:
ahora lo q necesito saber es como puedo hacer para guardar las variables a,b,c,d,e
para que me las lea otro procedimiento q mas tarde lo tengo q usar en el programa principal para q me muestra el numero de 1,2,3,4 y 5 q se realizaron..
el procedimiento seria algo asi:
no se como guardar las variables de la funcion para q me las lea el procedimiento.. probe poniendo "Unidades_Ingresadas (a,b,c,d,e) en la funcion.. pero me escribe las unidades ingresadas con el numero y todo perfecto pero en esa parte no necesito q las escriba y cuando lo tengo q usar en el programa principal en la parte q necesito q me escriba pongo Unidades_Ingresadas (a,b,c,d,e) me sale siempre 0..
yo tengo creada una funcion:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Movimiento_entrada (opcion:char):Integer; {devuelve la cantidad de mov de entrada}
var
producto,a,b,c,d,e:Integer;
begin
producto:=0;
writeln ('Ingrese la cantidad de productos entrantes de 1');
readln (a);
writeln ('Ingrese la cantidad de productos entrantes de 2');
readln (b);
writeln ('Ingrese la cantidad de productos entrantes de 3');
readln (c);
writeln ('Ingrese la cantidad de productos entrantes de 4');
readln (d);
writeln ('Ingrese la cantidad de productos entrantes de 5');
readln (e);
producto:=a+b+c+d+e;
Movimiento_entrada:= producto;
end;
ahora lo q necesito saber es como puedo hacer para guardar las variables a,b,c,d,e
para que me las lea otro procedimiento q mas tarde lo tengo q usar en el programa principal para q me muestra el numero de 1,2,3,4 y 5 q se realizaron..
el procedimiento seria algo asi:
1
2
3
4
5
6
7
8
9
Procedure Unidades_Ingresadas (a,b,c,d,e:Integer);
begin
writeln ('se ingresaron ' , a , 'unidades del producto 1.');
writeln ('se ingresaron ' , b , 'unidades del producto 2.');
writeln ('se ingresaron ' , c , 'unidades del producto 3.');
writeln ('se ingresaron ' , d , 'unidades del producto 4.');
writeln ('se ingresaron ' , e , 'unidades del producto 5.');
end;
no se como guardar las variables de la funcion para q me las lea el procedimiento.. probe poniendo "Unidades_Ingresadas (a,b,c,d,e) en la funcion.. pero me escribe las unidades ingresadas con el numero y todo perfecto pero en esa parte no necesito q las escriba y cuando lo tengo q usar en el programa principal en la parte q necesito q me escriba pongo Unidades_Ingresadas (a,b,c,d,e) me sale siempre 0..
Valora esta pregunta
0