Лабораторная работа 8. Упражнение 14

4. Вывести на экран таблицу Пифагора.

В Инспекторе объектов

для компонента StringGrid1 свойства

Установить количество колонок

ColCount = 10

Установить количество строк

RowCount = 10

Установить ширину всех колонок

DefaultColWidth = 30

Установить высоту всех строк

DefaultRowHeight = 30

Пример интерфейса

Пример программы 

// Глобальные константы.

Const

    COL_MAX = 9;

    ROW_MAX = 9;

    COL_NUM = 0;

    ROW_NUM = 0;

// Глобальные переменные.

var

    z : array [1..COL_MAX, 1..ROW_MAX] of Integer;

procedure TForm1.FormCreate(Sender: TObject);

var

    col, row : Byte;

begin

  for col := 1 to COL_MAX do begin

// Множители в 1-й строке.

      StringGrid1.Cells[col, ROW_NUM] := IntToStr(col);

  end;

    for row := 1 to ROW_MAX do begin

        // Множители в 1-й колонке.

        StringGrid1.Cells[COL_NUM, row] := IntToStr(row);

        for col := 1 to COL_MAX do begin

            z[col, row] := col*row;

            StringGrid1.Cells[col, row] := IntToStr(z[col, row]);

        end;

    end;

end;