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

7. Індивідуальні завдання до лабораторної роботи

Розробити алгоритм і скласти програму відповідно до нижче перерахованих індивідуальних варіантів:

Символ * у таблиці --> Введення даних із клавіатури.