Pascal/Turbo Pascal - alguien me puede ayudar con matriz

   
Vista:

alguien me puede ayudar con matriz

Publicado por eduardo (13 intervenciones) el 07/07/2013 02:05:20
alguien me podria ayudar a realizar este programa de matriz por favor :S

aka esta el problema:

Hacer un algoritmo que llene una matriz de 6 * 8 y que almacene toda la matriz 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
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Signos del zodiaco
- Palíndromos
- Bingo

alguien me puede ayudar con matriz

Publicado por ramon (2072 intervenciones) el 07/07/2013 19:28:32
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
{Algo Así}
 
program vector12;
 uses
    crt;
 const
    m1 = 6;
    m2 = 8;
    v1 = m1 * m2;
 
  type
    matric1 = array[1..m1,1..m2] of integer;
    vector1 = array[1..v1] of integer;
 
  var
    matric : matric1;
    vector : vector1;
    k, i : integer;
 
 
   procedure llenamatric;
   var
     valor : integer;
    begin
     randomize;
     for k := 1 to m1 do
       for i := 1 to m2 do
        matric[k,i] := random(110) + 1;
     end;
 
   procedure paramatricavector;
   var
      d : integer;
   begin
       d := 1;
       for k := 1 to m1 do
         for i := 1 to m2 do
         begin
          vector[d] := matric[k,i];
         d := d + 1;
        end;
   end;
 
   begin
       clrscr;
       llenamatric;
       paramatricavector;
       for i := 1 to v1 do
       write('  ',vector[i]);
        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