[ 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 (+55)

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






Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...