elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  Ejercicios
| | | |-+  Duda Pascal
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Duda Pascal  (Leído 897 veces)
Yankris

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Duda Pascal
« en: 12 Diciembre 2015, 19:14 »

Hola , estaba probando el tipo de dato array multidimensional para crear matrices y tengo una problema . El progrma consiste en recibir los datos de una matriz 5x5 y luego sacarla por pantalla , el programa compila pero no funciona bien ya que solo me deja introducir 5 valores y me da la siguinte matriz:       
                                                           2 2 2 2 2
    si los números son 2,3,4,5,6----->       3 3 3 3 3
                                                           4 4 4 4 4
                                                           5 5 5 5 5
                                                           6 6 6 6 6
Aquí el código:

program probandocosas(input,output);

type
  t_matriz = array [1..5,1..5] of integer;
 
var
 matriz: t_matriz;
 i:integer VALUE 1;
 cont:integer VALUE 1;
 a:integer VALUE 1;
 b:integer VALUE 1;
begin
   
  while cont<=5 do begin
   writeln('fila ',cont,':');
   while i<=1 to 5 do begin 
     writeln('Inserte el valor ',i);
     readln(matriz[cont,i]);
     i:=i+1;
   end;
   i:=1;
   cont:=cont+1;
  end;
 
 writeln('Su matriz es:');
  while a<=5 do begin
   while b<= 5 do begin
    write(matriz[a,b],' ');
    b:=b+1;
   end;
   writeln;
   b:=1;
   a:=a+1;
  end;
   
   writeln('Pulse <enter> para salir:');readln; 

end.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Duda Pascal
Programación C/C++
NaSaRiD15 1 678 Último mensaje 14 Agosto 2008, 02:42
por Flakito81
duda pascal
Programación General
pintuflas 1 874 Último mensaje 11 Octubre 2008, 00:00
por pintuflas
Duda Pascal
Ejercicios
-iSiS- 1 1,735 Último mensaje 22 Enero 2010, 12:25
por Festor
Duda con Pascal
Programación General
yako-_- 4 1,268 Último mensaje 24 Junio 2010, 06:28
por yako-_-
Duda pascal
Programación General
netca 4 2,832 Último mensaje 3 Abril 2011, 22:08
por skapunky
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines