como declarar Matices EN PASCAL... -ayuda-
Moderador: Moderadores
- CRAZY-VAG
- Preferencial
- Mensajes: 478
- Registrado: Dom Jun 11, 2006 5:54 am
- Ubicación: Veracruz, México
como declarar Matices EN PASCAL... -ayuda-
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!!!!!!!!!!!!!!!!!
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!!!!!!!!!!!!!!!!!
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.
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.
pues me has dicho que de visual tambien , entonces -->aqui<-- te puse una pequeña introduccion a las matrices o arreglos (arrays)
- Carola77
- Senior
- Mensajes: 111
- Registrado: Mié Abr 04, 2007 3:13 am
- Ubicación: CHILE - El país mas hermoso del Mundo
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.
{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.
Carola77 - Lista para la Primavera y el año mas triste de mi vida
" El conocimiento no se Gasta ni se Vende, Compartirlo es lo mejor para enrriquecernos y asi seremos cada dia mejor"
" El conocimiento no se Gasta ni se Vende, Compartirlo es lo mejor para enrriquecernos y asi seremos cada dia mejor"