¿Cómo imprimir la tabla Ascii en freepascal?
Publicado por Roberto (19 intervenciones) el 19/04/2020 08:15:39
Les muestro un codigo para mostrar la tabla ascii
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
44
45
program tablaAscii;
uses crt;
var i,j,k : integer;
begin
clrscr;
j:=2;
i:= 0;
repeat
i:= i + 1;
k:= i+3;
gotoxy(4,k);write(' ',char(i));
gotoxy(9,k);write(' ',char(j*10+i));
gotoxy(14,k);write(' ',char(j*20+i));
gotoxy(34,k);write(' ',char(j*60+i));
gotoxy(19,k);write(' ',char(j*30+i));
gotoxy(24,k);write(' ',char(j*40+i));
gotoxy(29,k);write(' ',char(j*50+i));
gotoxy(39,k);write(' ',char(j*70+i));
gotoxy(44,k);write(' ',char(j*80+i));
gotoxy(49,k);write(' ',char(j*90+i));
gotoxy(54,k);write(' ',char(j*100+i));
gotoxy(59,k);write(' ',char(j*110+i));
gotoxy(64,k);write(' ',char(j*120+i));
until i=10*j;
i:= 0;
repeat
i:= i + 1;
k:= i+3;
gotoxy(2,k);write(i);
until i=10*j;
gotoxy(4,2) ;write(' 0');
gotoxy(9,2) ;write(' 20');
gotoxy(14,2);write(' 40');
gotoxy(19,2);write(' 60');
gotoxy(24,2);write(' 80');
gotoxy(29,2);write(' 100');
gotoxy(34,2);write(' 120');
gotoxy(39,2);write(' 140');
gotoxy(44,2);write(' 160');
gotoxy(49,2);write(' 180');
gotoxy(54,2);write(' 200');
gotoxy(59,2);write(' 220');
gotoxy(64,2);write(' 240');
readkey;
end.Valora esta pregunta
0