ТАБЛИЦА ПИФАГОРА DELPHI

Таблица Пифагора – это матрица размерности NxN, содержащая в каждой клетке произведение номера строки на номер столбца. В Delphi реализация данной таблицы не представляет сложности, достаточно пройтись двумя циклами от 1 до N и заполнить матрицу соответствующими значениями.

var N, i, j: Integer; Table: array[][] of Integer;begin N := 10; // размерность таблицы SetLength(Table, N, N); // задаем размерность матрицы for i := 0 to N - 1 do for j := 0 to N - 1 do Table[i][j] := (i + 1) * (j + 1); // заполнение матрицыend;

Теперь мы можем обращаться к любому элементу таблицы, используя индексы.

Например, чтобы вывести на экран 5-й столбец таблицы, можно написать следующий код:

var i: Integer;begin for i := 0 to N - 1 do Write(Table[i][4], ' ');end;

Результат выполнения программы:

1 2 3 4 5 6 7 8 9 10 2 4 6 8 10 12 14 16 18 20 3 6 9 12 15 18 21 24 27 30 4 8 12 16 20 24 28 32 36 40 5 10 15 20 25 30 35 40 45 50 6 12 18 24 30 36 42 48 54 60 7 14 21 28 35 42 49 56 63 70 8 16 24 32 40 48 56 64 72 80 9 18 27 36 45 54 63 72 81 90 10 20 30 40 50 60 70 80 90 100

Нумерология. Секреты и особенности нумерологии древних. Квадрат Пифагора подробно. Лекция № 45.

КВАДРАТ ПИФАГОРА - анализ характера и способностей по дате рождения. Нумерология

МОЖЕТ ЛИ БИТКОИН СТОИТЬ 0$? РЕГУЛЯЦИЯ КРИПТОВАЛЮТ!

Создание таблицы и формы ввода данных - Базы данных в Delphi 7

Таблица Пифагора. Умножение. Считалочка.

Таблица умножения. Таблица Пифагора и блокнотик Шелдон.

Как рассчитать квадрат Пифагора? Обучение нумерологии для начинающих

Реклама
Новое
Реклама