ABCdatos

hola amigos

en dias pasados he buscado info. en internet a cerca de como declarar matrices en PASCAL y no he encontrado un buen ejempo del todo.

alguien de ustedes tendra algun codigo ó pseudocodigo (de pascal)
para poder ver como se declara una matriz ó matrices?



****************************
saludos. atte. CrAzY-VaG!!!!!!!!!!!!!!!!!

ó un ejemplo con algun codigo de VISUAL BASIC
ó C++........
por si no hubiera de pascal...
****************************************

saludOsSsS

Oye pero si es de Visual te sirve?
esk io se visual pero pascal no. aparte el codigo es diferente en uno y en otro.
si te interesa un ejemplillo simple igual mañana te lo coloko o si tengo tiempo mas al rato, pero primero dime si te sirve, igual y lo tuyo es pascal y como mencione anteriormente son codigos diferentes.

NO, si si me sirve de hecho tambien lo necesito en Visual B.
pasamelo porfavor
*******************
muchas gracias saludos!!!

sale, mañana pongo un ejemplillo. si esque no lo pone alguien antes.

Ok. michisimas gracias!!!

saludos.

pues me has dicho que de visual tambien , entonces -->aqui<-- te puse una pequeña introduccion a las matrices o arreglos (arrays)

epica muchisimas gracias!!!

me fue muy util!!

saludos

las matrices que son las que tienen dimensiones de M,N y los vectores que son de 1 dimension M, bueno en la mayoria de los casos se definen asi.

{programa que BUSCA UN DATO SECUENCIAL EN UN VECTOR }
program vec_secuencial(i,o);
uses
crt,DOS;
tYPE
vector=array[1..5]of integer; * definicion del vector o matriz
VAR
XVEC :vector;
I,X,Y,C,F :INTEGER;

PROCEDURE busca(VEC:VECTOR);
VAR
I,K,AUX,ITEM :INTEGER;

BEGIN
gotoxy(10,15);writeln('INGRESE ITEM A BUSCAR');
GOTOXY(35,15);READLN(ITEM);
FOR I:=1 TO 5 DO
BEGIN
IF (ITEM=I THEN
GOTOXY(15,20);WRITELN('ITEM ENCONTRADO');
ELSE
GOTOXY(15,20);WRITELN('ITEM NO ENCONTRADO');
END;
END;
END;


{PROGRAMA PRINCIPAL}
BEGIN
CLRSCR;
C:=10;F:=15;
GOTOXY(5,5);WRITELN('LARGO VECTOR 5');
GOTOXY(5,9);WRITELN('INGRESE VALOR ');
FOR I:=1 TO 5 DO
BEGIN
GOTOXY(20,9);READLN(XVEC);
END;

busca(XVEC);
READLN;
END.

ESPERO HAYA SERVIDO.