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]

Eso se debe a que se esta superando la capacidad de la pila del sistema operativo. La forma de solucionarlo es reducir la cantidad limite de numero ingresables. En MaxCol, en lugar de 7, ponele 5 y vas a ver como podes darle una vuelta más de rosca....