Таблица ASCII символов

@schdub · Регистрация: 19.01.2009

Студворк — интернет-сервис помощи студентам

Идея этой программки возникла, когда я судорожно вспоминал код символа из досовской псевдографики, помоему, для черточки для таблиц. Может кому-нибудь данная информация пригодиться. К тому же данный исходник, можно рассматривать и как пример работы с модулем CRT. Прога написана на TP.

Enjoy.

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
program asciitab;
 
uses CRT;
 
var i: integer;
    x, y : byte;
    usr_input : char;
 
{
* утилитарная функция.
* перевод числа в hex.
}
function ToHex(ch : integer) : string;
const hex_tab : array[0..15] of Char = (
      '0','1','2','3','4','5','6','7',
      '8','9','a','b','c','d','e','f'
);
var b       : integer;
    ret     : string;
 
begin
  ret := '';
 
  while ch>=16 do
  begin
    b := ch div 16;
    if b=0 then b:= b+1;
    ret := ret + hex_tab[b];
    ch := ch mod 16;
  end;
  ret:=ret + hex_tab[ch];
 
  ToHex := ret;
end;
 
{
* печатает заголовки
}
procedure drawHeaders;
var i: integer;
begin
  TextColor(Blue);
  for i:=2 to 17 do
  begin
    GotoXY(1, i); Write(ToHex(i-2));
    GotoXY(i, 1); Write(ToHex(i-2));
  end;
end;
 
{
* печатаем таблицу
}
procedure drawTable;
var i, j: integer;
    ch  : byte;
begin
  TextColor(White);
  for i:=0 to 15 do
  begin
    GotoXY(2, i+2);
    for j:=0 to 15 do
    begin
      if (x=j) and (i=y) then
      begin
        TextBackground(Red);
      end
      else
      begin
        TextBackground(Black);
      end;
      ch := (i shl 4)+j;
      if (ch<>7) and (ch<>8) and (ch<>9) and
         (ch<>10) and (ch<>13) then
        Write(Chr(ch))
      else
        Write(' ');
    end;
  end;
  TextBackground(Black);
end;
 
{
* пользовательский ввод
}
function Input : char;
var c : char;
begin
  c := ReadKey;
  if c = #0 then
    c:= ReadKey;
  input := c;
end;
 
{
* печатает инфу о тек символе
}
procedure printCur;
var ch : byte;
    t  : string[2];
begin
  TextColor(White);
  TextBackground(Black);
 
  t:='';
  ch := (y shl 4)+x;
  case ch of
  7  : t := '\a'; 
  8  : t := '\b';
  9  : t := '\t';
  10 : t := '\n';
  13 : t := '\r';
  end;
 
  GotoXY(1, 20);
  if t<>'' then
    WriteLn('Char : "',t,'"')
  else
    WriteLn('Char : "',Chr(ch),'"');
  WriteLn('Dec  : ',ch);
  WriteLn('Hex  : ',ToHex(ch));
 
  WriteLn;
  Write('For quit press ESC.');
end;
 
begin
  x := 0;
  y := 0;
 
  REPEAT
    ClrScr;
    drawHeaders;
    drawTable;
    printCur;
    usr_input:=Input;
 
    case ord(usr_input) of
    {UP}    72: if y<>0 then Dec(y);
    {LEFT}  75: if x<>0 then Dec(x) else if y<>0 then begin Dec(y); X:=15; end;
    {RIGHT} 77: if x<>15 then Inc(x) else if y<>15 then begin Inc(y); X:=0; end;
    {DOWN}  80: if y<>15 then Inc(y);
    end;
  UNTIL usr_input=#27;
end.

@Puporev · 23.07.2009, 10:23

Это

Pascal
1
2
if (ch<>7) and (ch<>8) and (ch<>9) and
         (ch<>10) and (ch<>13) then

короче написать так

Pascal
1
if not(ch in [7..10,13])then

Ссылку на тему дам в теме "Справочные материалы", там еще одна программка по ASCII и собственно сама таблица.

Добавлено через 1 час 41 минуту 46 секунд
И дальше симпатичней будет, если

Pascal
1
if not(ch in [7..10,13])then Write(Chr(ch),' ')

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .