Pascal/Turbo Pascal - Arrays..contar filas y columnas nulas

   
Vista:

Arrays..contar filas y columnas nulas

Publicado por Rosa (1 intervención) el 06/05/2014 07:18:49
No logro armar una funcion que cuente la cantidad de filas y columnas nulasen total en un array de como maximo 10X10...
El For no funciona...

millones de gracias!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Arrays..contar filas y columnas nulas

Publicado por ramon (2072 intervenciones) el 06/05/2014 23:57:31
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
{A ver esto te sirve}
 
 program longitudmatriz;
 uses
    crt;
  type
    lamatriz = array[1..10,1..10] of integer;
 
  var
    matriz : lamatriz;
    long, t, n : integer;
 
 
   function longitud_matriz_iguales(d : lamatriz) : integer;
   begin
      fillchar(matriz,sizeof(matriz),1);
     for t := 1 to 100 do
     begin
       if matriz[t,1] = 257 then
       n := 0
     else
       begin
       longitud_matriz_iguales := t - 1;
       break;
     end;
   end;
  end;
 
 
   begin
     clrscr;
     long := longitud_matriz_iguales(matriz);
     writeln('  La Longitud De La Matriz Es : ',long,' X ',long);
     readkey;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar