Множества - Pascal ABC
Формулировка задачи:
Состаить множество, состоящее из общих делителей двух чисел А и В .
Решение задачи: «Множества»
textual
Листинг программы
if i in m then Label1.Caption:=Label1.Caption+inttostr(i)+','; end;
Объяснение кода листинга программы
В данном коде выполняется объединение элементов из двух множеств в третье. Список действий можно описать следующим образом:
- Проверка принадлежности элемента
i
множествуm
. - Если элемент
i
принадлежит множествуm
, то выполняется следующее действие: - Значение переменной
Label1.Caption
увеличивается на строковое представление числаi
, за которым следует запятая и пробел. - Код продолжается до тех пор, пока все элементы из множества
m
не будут обработаны.