6. Приклади розробки алгоритмів і програм теми «Представлення символьних даних в еом»

Приклад 1

Розробити алгоритм і скласти програму введення з клавіатури будь-якого символу і виводу на екран цього введеного символу і його коду в 10 системі числення.

Блок-схема

Program pr1;

uses crt;

var ch:char;

Begin

clrscr;

write ('Уведіть будь-який символ ');

readln(ch);

write (ch,' = ',ord(ch));

readln;

End.

Приклад 2 Розробити алгоритм і скласти програму введення (5 разів) із клавіатури цілого числа в діапазоні від 0 до 15 і виводу на екран його коду в 16-й системі числення.

Блок-схема Структурограма

Program pr2;

u

Begin

clrscr;

for i:=1 to 5 do

begin

ses crt;

var ch : char;

n,i : byte;

write ('n = '); readln(n);

if (n>0) and (n<=15) then

begin

if n<=9 then ch:=chr(48+n) else ch:=chr(65+n-10);

write (n,' (у 10-й с/ч) ===> ', ch,' (у 16-й с/ч)') ;

end

else writeln(' Помилка'); readln;

end;

End.

Протокол роботи програми:

n = 5 5 (у 10-й с/ч) ===> 5 (у 16-й с/ч)

n = 12 12 (у 10-й с/ч) ===> C (у 16-й с/ч)

n = 10 10 (у 10-й с/ч) ===> A (у 16-й с/ч)

n = 15 15 (у 10-й с/ч) ===> F (у 16-й с/ч)

n = 17 Помилка

Дійсно, протокол роботи програми цілком відповідає таблиці ASCII-кодів

-------------------------------------------------------------------------------

c 10 16 c 10 16 c 10 16 c 10 16 c 10 16 c 10 16 c 10 16 c 10 16

------------------------------------------------------------------------------

0 48 30 1 49 31 2 50 32 3 51 33 4 52 34 5 53 35 6 54 36 7 55 37

8 56 38 9 57 39 : 58 3A ; 59 3B < 60 3C = 61 3D > 62 3E ? 63 3F

@ 64 40 A 65 41 B 66 42 C 67 43 D 68 44 E 69 45 F 70 46}

Приклад 3

Розробити алгоритм і скласти програму виводу на екран таблиці ASCII-кодів у 10-й с/ч

{a=97=61 b=98=62 c=99=63 d=100=64 e=101=65 f=102=66 ¦=179=B3}

Program pr3;

uses crt;

var i:byte;

Begin

clrscr;

{Вивід 2-х заголовків таблиці}

for і:=1 to 13 do write ('код:с:'); writeln;

for і:=1 to 13 do write ('код',chr(179),

chr($63),chr($B3));

writeln;

{Вивід таблиці кодів}

for i:=0 to 255 do

begin

if i mod 13 = 0 then writeln;

{Вивід по 13 колонок у рядку з

пропуском перших 32-х символів}

if i<32

then write (i:3,#$b3,' ',#$b3)

else write (i:3,'¦',chr(i),'¦');

end;

readln;

End.

----------------------------------------------

Приклад 4 {Вивід на екран символів і їх кодів в 10-й і 16-й системах числення. Початковий символ 'p'. Кінцевий символ вводиться з клавіатури}

Program pr4;

uses crt;

var i,ch,ch1,ch2 :char;

n1, n2 :byte;

Begin

clrscr;

write('Кінцевий символ

діапазону:ch=');

readln(ch);

for i:='р' to ch do

begin

n1:=ord(i) div 16;

n2:=ord(i) mod 16;

if n1<=9

then

ch1:=chr(48+n1)

else

ch1:=chr(55+n1);

if n2<=9

then

ch2:=chr(48+n2)

else

ch2:=chr(55+n2);

writeln(i,

' ',

ord(i),

' ',

ch1,ch2);

end;

readln;

End.

-----------------------------------------------------------------

Протокол роботи програми:

Кінцевий символ діапазону: ch= х

р 224 E0

с 225 E1

т 226 E2

у 227 E3

ф 228 E4

х 229 E5