Pascal/Turbo Pascal - ayuda con una matriz

   
Vista:

ayuda con una matriz

Publicado por fernando (5 intervenciones) el 16/07/2013 15:15:20
Hacer un algoritmo que llene una matriz de 5 * 5 y que almacene la diagonal principal en un vector. Imprimir el vector resultante.
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

ayuda con una matriz

Publicado por ramon (2072 intervenciones) el 16/07/2013 21:36:49
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
{Mira esto}
 
program diagonal;
 uses
    crt;
  const
      num = 5;
  type
  matriz = array[1..num,1..num] of integer;
 
  var
     matri : matriz;
     vector : array[1..num] of integer;
     t, h, v : integer;
 
  procedure rellenamatriz;
  var
     numeros : array[1..25] of integer;
     si : boolean;
  begin
      randomize;
      for t := 1 to 25 do
      begin
         si := true;
         h := 1;
         repeat
           si := true;
           v := random(27) + 1;
           for h := 1 to t do
           begin
           if numeros[h] = v then
           si := false
           end;
         until si = true;
         numeros[t] := v;
        end;
        v := 1;
        for h := 1 to num do
         for t := 1 to num do
         begin
          matri[t,h] := numeros[v];
          v := v + 1;
         end;
         writeln('          La Matriz Es ');
         writeln;
         for h := 1 to num do
         begin
           write('      ');
           for t := 1 to num do
           begin
              write('  ',matri[t,h]);
           end;
             writeln;
         end;
         t := 1;
         h := 1;
         repeat
             vector[t] := matri[t,h];
             t := t + 1;
             h := h + 1;
         until t > num;
         writeln;
         writeln('         La Diagonal Es ');
         writeln;
         write('      ');
         for t := 1 to num do
         write('  ',vector[t]);
         writeln;
         writeln;
         writeln('         Pulse Una Tecla ');
        readkey;
    end;
 
 
 
 
   begin
       clrscr;
       rellenamatriz;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

ayuda con una matriz

Publicado por fernando (5 intervenciones) el 17/07/2013 15:18:09
gracias, de verdad muchas gracias
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

ayuda con una matriz

Publicado por andres (1 intervención) el 09/05/2016 19:46:58
Hacer un algoritmo que llene una matriz de 5 * 5 y que almacene la diagonal principal en un vector. Imprimir el vector resultante. en visual basic for application. ayuda por fa no he podido imprimir el vector
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