Programación General > Pascal

 Matrices

<< < (2/2)

blannasa:
holap andaba por aqui y me econtre con esta cosilla asi que vi he intente ver que pasaba asi que esto si funciona y no tengo ningun error al mostrar :whistling:

program matriz(input,output);
type
matriz=array [1..2,1..13] of integer;
var
cadena : matriz;
x,y:integer;
begin
     cadena[1,1]:=13;     cadena[2,1]:=10;
     cadena[1,2]:=14;     cadena[2,2]:=10;
     cadena[1,3]:=15;     cadena[2,3]:=10;
     cadena[1,4]:=16;     cadena[2,4]:=10;
     cadena[1,5]:=17;     cadena[2,5]:=10;
     cadena[1,6]:=18;     cadena[2,6]:=10;
     cadena[1,7]:=19;     cadena[2,7]:=10;
     cadena[1,8]:=20;     cadena[2,8]:=10;
     cadena[1,9]:=21;     cadena[2,9]:=10;
     cadena[1,10]:=22;     cadena[2,10]:=10;
     cadena[1,11]:=23;     cadena[2,11]:=10;
     cadena[1,12]:=24;     cadena[2,12]:=10;
     cadena[1,13]:=25;     cadena[2,13]:=10;
     for x:=1 to 2 do
     begin
          for y:=1 to 13 do
               Write(cadena[x,y], ' ');
          WriteLn;
     end;
     readln
end.  

asi que no se cual es el problema  :huh:  chau  :hola:

Navegación

[0] Índice de Mensajes

[*] Página Anterior

Ir a la versión completa