Вывод на экран таблицы ASCII

Задача

ASCII – код для обмена информацией. В настоящее время чаще используется 8-битный вариант (под каждый символ выделяется 1 байт памяти). Проще говоря, получается таблица из 256 символов, соответствующих числам от 0 до 255.

Представим, что стоит задача вывода на экран соответствий между символами и их численными обозначениями в памяти компьютера.

Решение

Алгоритм решения задачи: 

Можно использовать цикл for и перебрать все значения от 0 до 255, поставив им в соответствие символ. В языке программирования Pascal есть специальная функция chr, которая возвращает символ, порядковый номер которого передается ей в качестве аргумента.

Программа на языке Паскаль:

var
    i: byte;
 
begin
 
    for i := 0 to 255 do begin
        if (i mod 5) = 0 then
            writeln;
        write (i:3,' - ', chr(i), '; ')
    end;
 
readln
end.

Примечания: 

Инструкция if внутри цикла for здесь исключительно для перехода на новую строку после вывода пяти очередных символов.

Можно немного изменить программу и выводить ее как таблицу, из 16 строк и столбцов. Упрощенный код программы тогда может выглядеть примерно так:

var
    i,j: byte;
 
begin
 
    for i := 0 to 15 do begin
        for j := 0 to 15 do
            write (chr(i*j):2);
        writeln
    end;
 
readln
end.

Тема

Циклы

Уровень

Комбинированные задачи

Комментарии

В таких циклах строка

write (chr(i*j):2); 
write (chr(i*j):2);

выведет символы непоследовательно. Т.к. в первой итерации все j будут умножаться на нулевые i, во второй раз - на единицу, в третий раз - на 2, и тп. Правильный код:

write (chr(i*16+j):2);
write (chr(i*16+j):2);