• Viernes 8 de Noviembre de 2024, 19:07

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - super_eman

Páginas: [1]
1
Pascal / procedimientos y funciones sobre una matriz
« en: Miércoles 15 de Diciembre de 2010, 21:08 »
Hola, excelente foro...
Sigo practicando con mis finales, me apareció el siguiente ejercicio:

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.

Mis intentos de respuestas son:
1) Este procedimiento es sencillo, lo realice de esta manera:
Código: Pascal
  1. procedure matrizmxn(m:integer;n:integer);
  2. begin
  3. (*genera la matriz de 0 y 1*)
  4.  randomize;
  5.  for i:=1 to m do begin
  6.  for j:=1 to n do begin
  7.  a[i,j]:= random(2)
  8.   end
  9.  end
  10. end;
  11.  

Con los otros dos incisos estoy confundido ya que no se como comparar columna a columna no me sale el lazo (me hago nudos  :brickwall: ). Si saben de algún apunte donde hablen de esto o me dan una mano  :beer: , sino seguiré  :comp:  probando.
Gracias y saludos.

2
Pascal / Re: duda en una función
« en: Miércoles 15 de Diciembre de 2010, 12:33 »
Excelente!!!!
ahora anda muy bien, lastima que no te conocí antes pero bueno...el viernes rindo y tengo demasiadas dudas.
Saludos, gracias por tu amabilidad y claridad.

3
Pascal / Re: duda en una función
« en: Miércoles 15 de Diciembre de 2010, 10:56 »
Muchas Gracias!!!!
Me diste una Gran Mano. Ya lo estoy probando.
Código: Pascal
  1.  
  2. function potenciade2(n:integer):boolean;
  3. begin
  4.    if (n=1) then potenciade2:=true;
  5.    if (n mod 2 = 0) then potenciade2:=potenciade2(n/2)
  6.    else potenciade2:= false
  7. end;
  8.  

Siempre sale False?? :hitcomp:
Saludos.

4
Pascal / duda en una función
« en: Miércoles 15 de Diciembre de 2010, 04:22 »
Hola, este es mi primer mensaje, ante todo quiero agradecer a todos los participantes y presentarme, soy profesor de matemáticas y estoy realizando una Licenciatura donde tengo esta materia que se llama programación...
La venía estudiando bien hasta que me pegue un virus y se me paralizo la mitad de la cara, por ello no podía estudiar (ni trabajar) ya que no podía centrar la vista....
Rindo este viernes y tengo muchas dudas, las voy a ir publicando y si me ayudan estaré muy agradecido, sino también.
 El ejercicio dice así: "Una función booleana bien que verifique si q (entero positivo) es una potencia de 2".

se que debo crear una función con argumento entero y que sea booleana, es decir, que sea de esta forma
 
Código: Pascal
  1. function bien(q:integer):boolean;
  2.  
pero no se que ponerle como sentencias para que me diga true o false, estaba pensando en hacer la división de q / 2 y que pare cuando llegue a 1 y que diga que es true (en el caso de que sea potencia de dos) o que...no se me ocurre como hacerlo.
Muchas Gracias.

Páginas: [1]