Вывод таблицы ASCII-кодов на Pascal

      Комментарии к записи Вывод таблицы ASCII-кодов на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Вывод таблицы ASCII-кодов на Pascal

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 3 мес., 4 нед. назад.

  • Автор
    Сообщения
  • #3786

    Программа выводит 128 символов ASCII таблицы. В ней должно быть 16 строк и 8 столбцов, а символы выводились по столбцам сверху вниз.

    Решение:

    program characters_and_strings_5;
    uses crt;
    var
      s: array[1..16, 1..8] of char; ch: char ;
      i, j, n, x: integer;
      mas: array[1..16, 1..8] of integer;
      arr: array[1..128] of integer;
    begin
      x:=0;
      for i:=1 to 8 do
        for j:=1 to 16 do
        begin
          mas[j, i]:=x;
          s[j, i]:=char(x);
          x:=x+1;
        end;
    {вывод таблицы}
      for i:=1 to 16 do
      begin
        for j:=1 to 8 do
        begin
          if mas[i ,j]=10 then {для корректного вывода 10-ого символа}
            write(mas[i, j]:6, '= ')
          else if mas[i, j]=9 then
            write(mas[i, j]:6, '=', s[i, j])
          else write(mas[i, j]:6, '=', s[i, j]);
        end;
        writeln;
      end;
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.