Crear Matriz y procedimientos en pascal

[superema]

Hola!!!
Muy bueno el foro, ingrese porque vi muy buenas respuestas sobre programación y rindo este viernes y estoy un poco (*muy*) confundido, en un final aparece un ejercicio como este y no tengo muchas ideas para encararlo...Cualquier comentario o ayuda serán muy bien recibidas.

Escriba un programa en lenguaje Pascal que conste de las siguientes partes:
1. Un procedimiento que genere una matriz de tama~no m £ n, siendo m y n datos ingresados por el
usuario, de manera que los elementos de dicha matriz sean 0 o 1, elegidos aleatoriamente.
2. Un función que decida si hay dos columnas en la matriz que son iguales.
3. Un procedimiento que emita la posición de la columna con mayor cantidad de unos. Si hay más de
una columna con mayor cantidad de unos, emitir la posición de cualquiera de ellas.


Muchas Gracias de antemano!!!

[Taro]

Me gustaría poder ayudarte.

Pero no puedo.

[Lezard]

PASCAL

secundaria


me gustaria poder ayudarte.

pero requiere tiempo y tengo paja

[Poke]

PASCAL

pow pow

[GADORCHA]

jubilacion para ese profe xD

probaste con google chabon??

[coco]

che, pero es simple, hacé lo que te piden y listo, en dónde te trabás? Al menos podrías intentarlo, o pretendés que hagan el programa por vos? En todo caso pedime que vaya al examen por vos.
El concepto es:
El programa pide M y N.
Después reserva espacio en memoria para una matriz de MxN cuyos elementos sean boolean o byte.
Después llenás esa matriz de 1 y 0 al azar.
Fabricás una función que tiene como entrada dos enteros (el número de cada columna) y vas comparando cada ítem de ambas columnas, a la primer diferencia devuelve FALSE y si son todas iguales devuelve TRUE.

Hacés otra función que vaya contando la cantidad de unos en cada columna, comparás contra la anterior y guardás la que tenga la cantidad más grande, lo hago medio a los pedos, puede tener algún error de nomenclatura, hace más de 10 años que no toco pascal, ojo que presupuse que la matriz empieza en [0,0]:

function maxUnosEnColumna( matriz: matrizP, filas, columnas: integer ): integer;
var
  maxUnos, maxCol, i, j, cantUnos : integer;
begin
  maxUnos:= 0;
  maxCol:=0;
  for i:= 0 to columnas do {barrer todas las columnas}
  begin
    cantUnos:=0; {reseteo el contador de unos de la col actual}
    for j:= 0 to filas do {sumo todos los unos que hay en la col}
    begin
      if matriz^[i,j]= 1 then inc( cantUnos);
    end;
    if cantUnos> maxUnos then {guardo el nuevo maximo (valor y posición)}
    begin
      maxUnos:= cantUnos;
      maxCol:=i;
    end;
  end:
  return maxCol; {Devuelvo la posición de la col con más unos}
end;

[Me cago en el editor de egel que no respeta todas las indentaciones que puse.]
edit: arreglado gracias a etc

[etc]

Me cago en el editor de egel que no respeta todas las indentaciones que puse.

tenés que usar [code]

[coco]

tenés que usar [code]

gracias, la verdad es que no me dediqué a investigar las opciones del editor