• Lunes 16 de Septiembre de 2019, 18:33

Autor Tema:  PROBLEMA EN PASCAL ;D  (Leído 839 veces)

RaKKoS

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
PROBLEMA EN PASCAL ;D
« en: Sábado 29 de Enero de 2011, 23:59 »
0
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  .

RaKKoS

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Re: PROBLEMA EN PASCAL ;D
« Respuesta #1 en: Domingo 30 de Enero de 2011, 03:00 »
0
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