Цикл со счётчиком. Вложенные циклы.

 

Формат записи:

FOR счётчик := нач. значение TO кон. значение DO (или DOWNTO)

begin

    // выполняемые операторы (тело цикла)

end;

 

  Переменная – счётчик в каждом цикле увеличивается на 1 (DO) или уменьшается на 1 (DOWNTO) от начального значения до конечного значения.

  Если в тело цикла введён ещё один цикл, он будет называться внутренним, а первый – внешним. Вся система называется системой вложенных циклов.

 

Задача. Используя в качестве примера приложение «FOR Вложенные циклы» из папки «Задание», составить проект вывода ANSI – кодов больших и маленьких русских букв (коды от 192 до 255)

Код программы:

Примечание: в программе используется функция CHR, значением которой является символ, код которого указан в качестве параметра. Например, в результате C:=CHR(32) переменной С будет присвоено значение пробел. (У функции ORD – обратное действие).

 

procedure TForm1.FormActivate(Sender: TObject);

var

   st:string;              // таблица формируется как строка символов

   dec: byte;            // код символа

   i,j:integer;           // номер строки и колонки таблицы

 

 

 

begin

   st:='';

   dec:=192;

   for i:=0 to 15 do      // шестнадцать строк

   begin

     dec:=i + 192;

     for j:=1 to 4 do      // четыре колонки

     begin

       st:=st+chr(dec)+'-'+IntToStr(dec)+'  ';

       dec:=dec + 16;

     end;

     st:=st + #13;           // переход к новой строке экрана

   end;

   Label1.caption:=st;

end;

 

 

Задание.

  Измените программу так, чтобы были выведены коды всех имеющихся в данном компьютере символов.