1.2 tema 7
Publicado por Erik (73 intervenciones) el 09/04/2014 15:31:43
hola tengo que corregir un codigo, aqui dejo lo que tengo que corregir:
Mira como has definido la constante
Ahora cuando declaras el array debes escribir la costante también con mayísculas
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
gracias de antemano.
Mira como has definido la constante
1
2
Const
TAMCOLECCION = 4;Ahora cuando declaras el array debes escribir la costante también con mayísculas
1
2
3
4
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
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
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 := 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[i]:0:2);
i := i + 1;
end;
end;
(*-- Programa Principal -- *)
Begin
clrscr;
lee_tabla(precios, TAMCOLECCION);
clrscr;
imprime_tabla(precios, TAMCOLECCION);
readln;
End.gracias de antemano.
Valora esta pregunta
0