elrata

Si, lo ideal es no un vector, sino una matriz... de registros... Es decir, vas a tener que declarar un TYPE RECORD... type alumnos=record of... nombre:String; Etc, etc, Luego, vas a tener que definir un tipo de datos que sea matriz de alumnos...

Si no entendí mal, serial algo así... Const TOPE=49; Var n1, n2, n3, n4, n5, n6:Integer; Begin for n1:=1 to tope-5 Do for n2:=n1+1 to tope-4 Do for n3:=n2+1 to tope-3 Do for n4:=n3+1 to tope-2 Do for n5:=n4+1 to tope-1 Do for n6:=n5+1 to tope Do...

A ver.. esto es un poco amplio... A ver si te sirve esto... Var a,b:Integer; Begin a:=1; b:=5; if (a b) Then WriteLn('b es mayor que a') Else WriteLn('a y b son iguales'); End.

No dispongo de mucho tiempo, así que me ayudarías si me pasas la carga de la matriz, impresión y demás cosas que ya lograste, así veo como adaptar la identificación de las 4 en linea.

Me podes pasar el archivo de texto al que accedes, ¿así lo pruebo?

Es simple, deberías recorrer la matriz una a una las celdas y revisar hacria los 4 sentidos si aparecen las palabras que te den. Es simple, pero hay que escribir bastante, si quieres, armate todo y yo te hago el sistema de búsqueda, o dame un tiempo,...

Para usar assembler en pascal, se hace así... Uses Crt, Dos; function Min(X, Y: Integer): Integer; near; assembler; asm MOV AX,X CMP AX,Y JLE @@1 MOV AX,Y @@1: end; Begin WriteLn(Min(1, 2)); End. Esto te devuelve el numero más chico de dos parámetros...

Para eso, hacete un While Do por cada corte de control y uno general por el tema del EOF guardando los datos anteriores en aun variable auxiliar. Por ejemplo art_ant <- '' While no fin_de_archivo DO While art = ant_art y no fin_de_archivo DO Begin...

¿Te especificaron alguna forma en especial? ¿O método de ordenamiento en especial? Ya te lo estoy armando [email protected]

Espero te sirva {$M 65520,0,0} PROGRAM CELULAR; USES CRT, PRINTER; CONST MaxCol=7; A1='ABC'; A2='DEF'; A3='GHI'; A4='JKL'; A5='MNO'; A6='PQRS'; A7='TUV'; A8='WXYZ'; Type Reg=Record Posi:Byte; Cadena:String[4]; End; Matriz=Array [1..MaxCol] of Reg;...