Основы программирования на языке Turbo Pascal. Беляева И.В. - 135 стр.

UptoLike

Составители:

Рубрика:

135

Полная форма – параметр N присутствует. В этом случае аргумент

уменьшается на N.

Пример:

C:=‘7’; {c=’7’}

Dec(C, 7); {c=’0’}

Dec(C, 5); {c=’+’}

Dec(C, 5); {c=’&’}

Примеры использования стандартных процедур и функций

обработки символов

Пример 1. Напишем программу, которая печатает таблицу кодов

символов:

{Вывод на экран таблицы символов

Размер таблицы 16x16}

var

i: integer; {Номер строки таблицы}

j: integer; {Номер символа в строке – номер столбца}

begin

writeln;

{Формируем таблицу из 16 строк}

for i:=0 to 15 do

begin

{В каждой строке по 16 символов}

for j:=0 to 15 do

write(chr(i*16+j):2); {Код символа получается

как произведение номера строки на 16 плюс

номер символа в строке}

writeln; {строка закончена}

end;

end.