SoloCodigo

Programación General => Pascal => Mensaje iniciado por: RaKKoS en Sábado 29 de Enero de 2011, 23:59

Título: PROBLEMA EN PASCAL ;D
Publicado por: RaKKoS en Sábado 29 de Enero de 2011, 23:59
Buenas amigos de solocodigo.com,  acudo a uds, haber si podrian ayudarme o guiarme. Sobre este cod:

Código: Pascal
  1. program xxx;
  2. uses crt;
  3. const
  4. semana=3;
  5.  
  6.  
  7. sem:array[1..semana] of string = ('Lunes','Martes','Miercoles');
  8. var
  9. pa:array[1..semana] of integer;
  10. pb:array[1..semana] of integer;
  11. pc:array[1..semana] of integer;
  12. total:array[1..semana] of integer;
  13. i:integer;
  14.  
  15. move:integer;
  16.  
  17. begin
  18. clrscr;
  19. gotoxy(1,4);
  20. writeln('PA');
  21. gotoxy(1,6);
  22. writeln('PB');
  23. gotoxy(1,8);
  24. writeln('PC');
  25. gotoxy(6,2);
  26. writeln('Lunes');
  27. gotoxy(16,2);
  28. writeln('Martes');
  29. gotoxy(26,2);
  30. writeln('Miercoles');
  31. gotoxy(40,2);
  32. writeln('Jueves');
  33. gotoxy(50,2);
  34. writeln('Viernes');
  35. gotoxy(64,2);
  36. writeln('Sabado');
  37.                   move:=2;
  38.                   for i:= 1 to semana do
  39.                   begin
  40.                   gotoxy(move+4,4);
  41.                   readln(pa[i]);
  42.                   gotoxy(move+4,6);
  43.                   readln(pb[i]);
  44.                   gotoxy(move+4,8);
  45.                   readln(pc[i]);
  46.                   move:=move+12;
  47.                   end;
  48.  
  49.  
  50.                   for i:= 1 to semana do
  51.                   begin
  52.  
  53.                       gotoxy(15,16);
  54.                       writeln(pa[i]);
  55.                       gotoxy(25,16);
  56.                       writeln(pb[i]);
  57.                       gotoxy(35,16);
  58.                       writeln(pc[i]);
  59.  
  60.                       end;
  61.                                 begin
  62.  
  63.                   gotoxy(1,16);
  64.                   writeln('Lunes');
  65.                   gotoxy(1,18);
  66.                   writeln('Martes');
  67.                   gotoxy(1,20);
  68.                   writeln('Miercoles');
  69.                   gotoxy(1,22);
  70.                   writeln('Jueves');
  71.                   gotoxy(1,24);
  72.                   writeln('Viernes');
  73.                   gotoxy(1,26);
  74.                   writeln('Sabado');
  75.                   gotoxy(15,12);
  76.                   writeln('PA');
  77.                   gotoxy(25,12);
  78.                   writeln('PB');
  79.                   gotoxy(35,12);
  80.                   writeln('PC');
  81.  
  82.  
  83.  
  84.  
  85.  
  86.                   end;
  87.  
  88. readkey;
  89. end.
  90.  

El problema radica en que en el segundo for, donde mando a imprimir los datos de los vectores PA,PB,Y PC, me imprime solo los ultimos. y lo hace solo una vez , es decir no me repite las 3 veces que le indique en la constante, Si alguien podria ayudarme mucha gracias y saludos  .
Título: Re: PROBLEMA EN PASCAL ;D
Publicado por: RaKKoS en Domingo 30 de Enero de 2011, 03:00
Buenas xD, ya solucione el problema luego de unas horas buscando el puto error , me di cuenta que el for me imprimia el numero 3, es decir que enrealidad si se estaba aplicando el for, lo que sucede es que en el GOTOXY me sobreescribia en la misma linea xD, Thanks = xD Admin cierra el post . xD