Pascal/Turbo Pascal - problemas con arrays

   
Vista:

problemas con arrays

Publicado por alexsan623 (3 intervenciones) el 04/02/2011 14:08:01
hola q tal estoy empezando a trabajar con arreglos en pascal y realmente el ejercicio q estoy haciendo es simple solo debo: leer una lista de 10 valores enteros. listarlos por partala en sentido inverso al q ingresaron, eso es todo creo tenerlo listo pero el dev-pascal me dice q hay un ILLEGAL QUALIFER porfa si podeis ayudarme se los agradezco.

program taller1;
uses crt;
const
m=10;
n=1;
type
lista=array[1..10]of integer;

procedure inicializar;
var
i:integer;
begin
for i:=1 to m do
lista[i]:=0; {este es un error q me muestra el pascal}
end;

procedure carga;
var
i:integer;
begin
for i:=1 to m do
writeln('ingrese el valor',i);
read(lista[i]); {este es un error q me muestra el pascal}
end;

procedure mostrar;
var
i:integer;
begin
for i:=10 downto n do
writeln(lista[i]); {este es un error q me muestra el pascal}
end;

begin
inicializar;
carga;
mostrar;
readln;
end.
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

RE:problemas con arrays

Publicado por Armando Fuenmayor (22 intervenciones) el 05/02/2011 14:42:00
program arreglo(input,output);
uses crt;
const
max = 10;

type
arregloentero = array[1..max] of Integer;

var
a : arregloentero ;
i : integer ;
car : char;

procedure cargar;
begin
clrscr;
for i := 1 to max do
begin
gotoxy(10,2);
write('Ingrese numero ', i, ' del Arreglo ');
clreol;
readln(a[i]);
end;
end;
procedure mostrar;
begin
writeln;
writeln('Los numeros ingresaron de la siguiente manera: ');
for i := 1 to max do
begin
write(a[i]:5);
end;
end;

procedure alrrevez;
begin
writeln;
writeln('Los numeros de atraz palante son: ');
for i := max downto 1 do

begin
write(a[i]:5);
end;
end;

begin
(* Programa principal *)
cargar;
mostrar;
alrrevez;

car := 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
0
Comentar

RE:problemas con arrays

Publicado por ramon (2072 intervenciones) el 14/02/2011 12:37:03
crea una variable lis : lista;
y pon lis[i] := 0;

program taller1;
uses crt;
const
m=10;
n=1;
type
lista=array[1..10]of integer;
var
lis : lista;
procedure inicializar;
var
i:integer;
begin
for i:=1 to m do
lis[i]:=0; {este es un error q me muestra el pascal}
end;

procedure carga;
var
i:integer;
begin
for i:=1 to m do
writeln('ingrese el valor',i);
read(lis[i]); {este es un error q me muestra el pascal}
end;

procedure mostrar;
var
i:integer;
begin
for i:=10 downto n do
writeln(lis[i]); {este es un error q me muestra el pascal}
end;

begin
inicializar;
carga;
mostrar;
readln;
end.

{los typo no se trabajan directamente son para definir tipos personales}
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