![Cererdred](https://sproshu.net/uploads/ava/1/ava2047.jpg)
Cererdred
5 год назад
Используя средства языка программирование , составить таблицу соответствия больших и малых букв русского алфавита коду ASC||
ОТВЕТЫ
![Nyua](https://sproshu.net/uploads/ava/4/ava8731.jpg)
Nyua
Jun 30, 2019
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ+
абвгдеёжзийклмнопрстуфхцчшщъыьэюя;
foreach var c in s do Writeln(c, ,ORDANSI(c))
end.
Результат
А 192
Б 193
В 194
Г 195
Д 196
Е 197
Ё 168
Ж 198
З 199
И 200
Й 201
К 202
Л 203
М 204
Н 205
О 206
П 207
Р 208
С 209
Т 210
У 211
Ф 212
Х 213
Ц 214
Ч 215
Ш 216
Щ 217
Ъ 218
Ы 219
Ь 220
Э 221
Ю 222
Я 223
а 224
б 225
в 226
г 227
д 228
е 229
ё 184
ж 230
з 231
и 232
й 233
к 234
л 235
м 236
н 237
о 238
п 239
р 240
с 241
т 242
у 243
ф 244
х 245
ц 246
ч 247
ш 248
щ 249
ъ 250
ы 251
ь 252
э 253
ю 254
я 255
// Внимание! Если программа не работает, обновите версию!
begin
var s:=АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ+
абвгдеёжзийклмнопрстуфхцчшщъыьэюя;
foreach var c in s do Writeln(c, ,ORDANSI(c))
end.
Результат
А 192
Б 193
В 194
Г 195
Д 196
Е 197
Ё 168
Ж 198
З 199
И 200
Й 201
К 202
Л 203
М 204
Н 205
О 206
П 207
Р 208
С 209
Т 210
У 211
Ф 212
Х 213
Ц 214
Ч 215
Ш 216
Щ 217
Ъ 218
Ы 219
Ь 220
Э 221
Ю 222
Я 223
а 224
б 225
в 226
г 227
д 228
е 229
ё 184
ж 230
з 231
и 232
й 233
к 234
л 235
м 236
н 237
о 238
п 239
р 240
с 241
т 242
у 243
ф 244
х 245
ц 246
ч 247
ш 248
щ 249
ъ 250
ы 251
ь 252
э 253
ю 254
я 255
//прога на Pascal`е
{не работает на PascalABC.Net, т.к. оный использует 2-байтную кодировку Unicode, а не 1-байтную кодировку ASCII, как более ранние версии Pascal`ей}
const
n = 32*2;
var
ch: array [1..n] of byte;
i, num: byte;
begin
num:=192;
for i:=1 to n do
begin
ch[i]:=num;
inc (num);
end;
writeln (Символ | Код ASCII);
writeln (----------------------);
for i:=1 to n do writeln ( , chr(ch[i]), | , ch[i]);end.
{версия для PascalABC.Net}
//прога на Pascal`е
const
n = 32*2;
var
ch: array [1..n] of byte;
i, num: byte;
begin
num:=192;
for i:=1 to n do begin
ch[i]:=num;
inc (num);
end;
writeln (Символ | Код ASCII);
writeln (----------------------);
for i:=1 to n do writeln ( , chr(ch[i]+848), | , ch[i]);
end.
{не работает на PascalABC.Net, т.к. оный использует 2-байтную кодировку Unicode, а не 1-байтную кодировку ASCII, как более ранние версии Pascal`ей}
const
n = 32*2;
var
ch: array [1..n] of byte;
i, num: byte;
begin
num:=192;
for i:=1 to n do
begin
ch[i]:=num;
inc (num);
end;
writeln (Символ | Код ASCII);
writeln (----------------------);
for i:=1 to n do writeln ( , chr(ch[i]), | , ch[i]);end.
{версия для PascalABC.Net}
//прога на Pascal`е
const
n = 32*2;
var
ch: array [1..n] of byte;
i, num: byte;
begin
num:=192;
for i:=1 to n do begin
ch[i]:=num;
inc (num);
end;
writeln (Символ | Код ASCII);
writeln (----------------------);
for i:=1 to n do writeln ( , chr(ch[i]+848), | , ch[i]);
end.
286
Смежные вопросы: