UNIDAD 3: PASCAL ARREGLOS

TEMA 4: TURBO PASCAL LISTAS (2)

Prog7.PAS

program prog7;

USES crt;

VAR

edad : ARRAY[1..3] of integer;

nombre : ARRAY[1..3] of string[20];

ren:integer;

begin

clrscr;

(* captura de arreglos *)

for ren := 1 to 3 do

begin

gotoxy(10,ren*2+2);write('edad ',ren,':'); readln(edad[ren]);

gotoxy(10,ren*2+3);write('nombre',ren,':');read(nombre[ren]);

end;

(* despliegue de arreglos *)

for ren := 1 to 3 do

begin

gotoxy(10,ren*2+10);write('edad= ',edad[ren]);

gotoxy(10,ren*2+11);write('nombre= ',nombre[ren]);

end;

readln;readln;

end.

corrida:

Captura este procedimiento es similar para despliegue.

Se debera usar siempre un ciclo for con una variable de control llamada renglon, misma que tambien se usa como indice del arreglo.

Siempre que se use un elemento de una lista en pascal con cualquier proceso (captura, despliegue, operaciones)debera acompanarse de su indice respectivo.

Para procesar (hacer operaciones con ellos, o comparaciones, etc) los elementos de la lista se debera usar un ciclo for con una variable de control llamda renglon, misma que se usara tambien como indice de la lista.

Para desplegar los elementos de la lista, tambien se usa un ciclo for con su variable de control renglon, tal como se muestra en el ejemplo.

El mismo ciclo de proceso o despliegue se puede utilizar para procesar o desplegar los elementos de mas de una lista, siempre y cuando las listas sean del mismo tamano.

PROGRAMACION PASCAL

1.- Capturar y desplegar 5 precios de productos cualesquiera.

2.- Capturar 4 sueldos y desplegarlos aumentados en un 25%