Pascal/Turbo Pascal - Ayuda con valores de funciones y procedimientos

   
Vista:
Imágen de perfil de Pablo

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:

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con valores de funciones y procedimientos

Publicado por ramon (2072 intervenciones) el 09/11/2014 01:49:54
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{Las tienes establecidas como locales ponlas como glovales y las podras manejar con todo el programa}
 
var
producto,a,b,c,d,e:Integer;
 
Function Movimiento_entrada (opcion:char):Integer; {devuelve la cantidad de mov de entrada}
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;
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
Imágen de perfil de Pablo

Ayuda con valores de funciones y procedimientos

Publicado por Pablo (2 intervenciones) el 09/11/2014 02:03:40
Puse las variables como globales, el tema es q las ingreso en la funcion.. pero cuando quiero hacer q las lea otro procedimiento me las toma vacias.. no guarda los valores q les asigno en la funcion..
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