Pascal/Turbo Pascal - Procedimiento que lea un dato y, se lo pase a otro procedimiento

 
Vista:
sin imagen de perfil
Val: 8
Ha disminuido su posición en 6 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Procedimiento que lea un dato y, se lo pase a otro procedimiento

Publicado por facu (4 intervenciones) el 11/06/2018 15:32:27
como se podria hacer que un Procedimiento lea un dato ingresado por teclado, y que luego se lo pase a un procedimienmto?
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

Procedimiento que lea un dato y, se lo pase a otro procedimiento

Publicado por David (203 intervenciones) el 11/06/2018 17:56:00
Lo único que tendrías que hacer es pasar el dato al procedimiento como parámentro de E/S. Por ejemplo:

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
Uses CRT;
 
var
  base, altura, area : real;
 
Procedure LeerDatos(var b : real; var a: real);
 
begin
  Writeln('Introduzca la base: ');
  readln(base);
  Writeln('Introduzca la altura: ');
  readln(altura);
end;
 
Procedure CalculaArea(var a : real; var b : real; var ar : real);
 
begin
  ar:=a*b;
  Writeln('El  rea del rect ngulo es: ',b*a:2:2);
 
end;
 
begin
  LeerDatos(base,altura);
  calculaArea(base,altura,area);
  readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 8
Ha disminuido su posición en 6 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Procedimiento que lea un dato y, se lo pase a otro procedimiento

Publicado por facu (4 intervenciones) el 11/06/2018 20:32:56
muchas 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