[ Foro de Pascal ]

controlar columnas y filas

22-Apr-2020 23:59
Invitado (thecf809)
1 Respuestas

saludo me gustaria saber como poder contraolar las columnas y las filas segun vayan incrementando.
ejemplo:
Program Ascendente;

Uses  Crt;

Var
 N, Inicio,Final,L,C  : Integer;
 Ch : Char;
 
Begin
Repeat
 Clrscr;
 N:=0;
 C:= 2;
 L := 5;
 Inicio:=0;
 Final:=0;
 GotoXY(20,02);Write('Inicial::: '); Readln(Inicio);
 GotoXY(20,03);Write('Final::: '); Readln(Final);
 Repeat
  GotoXY(C,L); Write(Inicio);
  Inicio := Inicio + 1;
  L:= L + 1;
  If (L >=20) Then
   Begin
    L := 5;
    C:= C + 5;
   End;
 Until ( Inicio >= Final);
 GotoXY(20,24); Write(' Desea Continuar [S/N]  '); Readln(Ch);
Until ( Upcase(Ch) ='N');
End.

este me da problemas apartir si pongo del 1 al 250 apartir de hay no me sigue el orden


23-Apr-2020 00:40
Nacho Cabanes (+83)

No entiendo el problema. ¿Qué es lo que quieres conseguir?






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)