ayuda para que me siga el orden de columnas y filas
Publicado por thecf809 (1 intervención) el 25/04/2020 21:22:00
tengo este programa que me organiza los numero de manera ascendente y descendente pero cuando llegan a c
400 vota el orden de columna y filas quien me ayuda para que me siga el orden de columnas y filas.
aqui le dejo el programa (es en pascal):
400 vota el orden de columna y filas quien me ayuda para que me siga el orden de columnas y filas.
aqui le dejo el programa (es en pascal):
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Program Ascendente;
Uses Crt;
Var
N, Inicio,Final,L,C : Integer;
Ch : Char;Begin
Repeat
Clrscr;
N := 0;
C := 1;
L := 3;
Inicio := 0;
Final := 0;
Gotoxy(20,01);Write('Inicial::: ');Readln(Inicio);
Gotoxy(20,02);Write('Final::: ');Readln(Final);
If Inicio < Final ThenBegin
Repeat
Inicio := Inicio + 1;
Gotoxy(C,L); Write(Inicio);
L := L + 1;
If (L >= 23) Then
Begin
L := 3;
C := C + 4;
End;
Until ( Inicio >= Final);
End
Else
Repeat
Gotoxy(C,L); Write(Inicio);
Inicio := Inicio - 1;
L := L + 1;
If (L >= 23) Then
Begin
L := 3;
C := C + 4;
End;
Until ( Inicio <= Final);
Gotoxy(20,30);Write(' Desea Continuar [S/N] ');Readln(Ch);
Until ( Upcase(Ch) ='N');
Readkey;
End.Valora esta pregunta
0
