logo
Методичка_Delphi_Ч1

Создание процедуры обработки последовательности целых чисел

Текст процедуры приведен на рисунке 6.7.

Рисунок 6.7 – Процедура обработки последовательности целых чисел

Особенность этой процедуры в том, что она содержит три вложенных цикла for. Это не означает, что в ваших задачах будет то же самое, но хотя бы один цикл for Вам должен понадобиться обязательно.

В рассматриваемой задаче внешний цикл с параметром n организует перебор всех целых чисел из заданного диапазона. Два внутренних цикла обеспечивают перебор пар чисел, квадраты которых в сумме, возможно, будут равны квадрату числа, формируемого первым циклом.

Если такое равенство обнаруживается, то в компонент TMemo выводится соответствующая строка.

Процедура связана с событием onClick кнопки формы.

Создайте свою процедуру и проверьте ее работу. Не забудьте перед этим сделать форму главной.

      1.