Programación General > Pascal

 PROBLEMA EN PASCAL ;D

(1/1)

RaKKoS:
Buenas amigos de solocodigo.com,  acudo a uds, haber si podrian ayudarme o guiarme. Sobre este cod:


--- Código: Pascal ---program xxx;uses crt;constsemana=3;  sem:array[1..semana] of string = ('Lunes','Martes','Miercoles');varpa:array[1..semana] of integer;pb:array[1..semana] of integer;pc:array[1..semana] of integer;total:array[1..semana] of integer;i:integer; move:integer; beginclrscr;gotoxy(1,4);writeln('PA');gotoxy(1,6);writeln('PB');gotoxy(1,8);writeln('PC');gotoxy(6,2);writeln('Lunes');gotoxy(16,2);writeln('Martes');gotoxy(26,2);writeln('Miercoles');gotoxy(40,2);writeln('Jueves');gotoxy(50,2);writeln('Viernes');gotoxy(64,2);writeln('Sabado');                  move:=2;                  for i:= 1 to semana do                  begin                  gotoxy(move+4,4);                  readln(pa[i]);                  gotoxy(move+4,6);                  readln(pb[i]);                  gotoxy(move+4,8);                  readln(pc[i]);                  move:=move+12;                  end;                    for i:= 1 to semana do                  begin                       gotoxy(15,16);                      writeln(pa[i]);                      gotoxy(25,16);                      writeln(pb[i]);                      gotoxy(35,16);                      writeln(pc[i]);                       end;                                begin                   gotoxy(1,16);                  writeln('Lunes');                  gotoxy(1,18);                  writeln('Martes');                  gotoxy(1,20);                  writeln('Miercoles');                  gotoxy(1,22);                  writeln('Jueves');                  gotoxy(1,24);                  writeln('Viernes');                  gotoxy(1,26);                  writeln('Sabado');                  gotoxy(15,12);                  writeln('PA');                  gotoxy(25,12);                  writeln('PB');                  gotoxy(35,12);                  writeln('PC');                       end; readkey;end. 
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:
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

Navegación

[0] Índice de Mensajes