hola tengo que corregir un codigo, aqui dejo lo que tengo que corregir:
Mira como has definido la constante
Const
TAMCOLECCION = 4;
Ahora cuando declaras el array debes escribir la costante también con mayísculas
Type coleccion = array[1..tamcoleccion] of real;
coleccion = array[1..TAMCOLECCION] of real;
Aunque funciona correctamente con el while, lo habitual y más eficiente es utilizar un for para el recorrido de un array.
ahora dejo el codigo en cuestion que hay que corregir
Program
Galeria;
uses
crt;
(*-- Constantes globales al programa -- *)
Const
TAMCOLECCION = 4;
(*-- Tipos globales al programa -- *)
Type coleccion = array[1..tamcoleccion] of real;
(*-- Variables del módulo principal -- *)
Var
precios : Coleccion;
(*-- Funciones y procedimientos -- *
procedure lee_tabla(var t : coleccion; n : integer);
var
i : integer; begin i := 1;
writeln(' Entre Precio Cuadro ');
while i < n + 1 do
begin
write(' Numero ',i,' : ');
readln(t
);
i := i + 1;
end;
end;
procedure imprime_tabla(t : coleccion; n : integer);
var
i : integer;
begin i := 1;
writeln(' Los Resultados Son ');
writeln;
while i < n + 1 do
begin
writeln(' Num. : ',i,' Precio : ',t:0:2);
i := i + 1;
end;
end;
(*-- Programa Principal -- *)
Begin
clrscr;
lee_tabla(precios, TAMCOLECCION);
clrscr;
imprime_tabla(precios, TAMCOLECCION);
readln;
End.
QUIERO QUE ME LO CORRIJAN EN CODIGO PASCAL POR FAVOR.
