error empezando con tablas/arrays
Publicado por Rojasu (2 intervenciones) el 18/11/2014 01:04:30
bueno estoi empezando con el tema de tablas en un cursillo , pero no consigo enterarme bien como iria:
Escriba un procedimiento que reciba como parámetro, una tabla de enteros y devuelva una cadena con los caracteres correspondientes. Incluya el procedimiento en un pequeño programa de prueba para depurarlo y verificar que es correcto.
Hago esta funcion :
Type
lecturas = array[1..24] of integer;
Function Media(medidas: lecturas): Real;
Var
i: integer;
suma: integer;
Begin
suma := 0;
for i:= 1 to 24 do
suma:= suma + medidas[i];
Media := suma/24.0
End;
Pero no se bien como invocarla al usar la tabla.
Escriba un procedimiento que reciba como parámetro, una tabla de enteros y devuelva una cadena con los caracteres correspondientes. Incluya el procedimiento en un pequeño programa de prueba para depurarlo y verificar que es correcto.
Hago esta funcion :
Type
lecturas = array[1..24] of integer;
Function Media(medidas: lecturas): Real;
Var
i: integer;
suma: integer;
Begin
suma := 0;
for i:= 1 to 24 do
suma:= suma + medidas[i];
Media := suma/24.0
End;
Pero no se bien como invocarla al usar la tabla.
Valora esta pregunta


0