• Lunes 22 de Julio de 2019, 07:31

Autor Tema:  1.2 tema 7  (Leído 815 veces)

Napster_EPD

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
1.2 tema 7
« en: Lunes 14 de Abril de 2014, 17:53 »
0
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.