[ Foro de Pascal ]
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
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.)