Практическая работа №12 – Подсчет итоговых характеристик элементов массива


Практическая работа №12

Тема: Подсчет итоговых характеристик элементов массива, которые удовлетворяют определенным свойствам.

Цель: Ознакомиться с числами, которые обладают определенными «необычными свойствами».

Теоретические сведения.

Человек всегда интересовалась числами, которые имеют определенные «необычные» свойства. К таким чисел относятся: простые, совершенные, дружеские, числа ряда Фибоначчи, числа Армстронга и тому подобное. К возникновению вычислительной техники определения принадлежности цифр к указанным категориям было достаточно затратным процессом. Это связано со значительным объемом под счетных операций. Сейчас для нас не вызывает больших трудностей выполнить несколько сотен тысяч операций для данных расчетов.

Рассмотрим, что представляют собой перечисленные числа.

1. Простое число — это натуральное число, которое имеет ровно два натуральных делителя (только 1 и само себя). Все остальные числа (кроме единицы) называются составными. Последовательность простых чисел начинается так: 2, 3, 5, 7, 11, 13, 17, 19 …

2. Совершенное число — натуральное число, равное сумме всех своих собственных делителей (то есть, всех положительных делителей, отличных от самого числа). Первое совершенное число — 6 (1 + 2 + 3 = 6), следующее — 28 (1 + 2 + 4 + 7 + 14 = 28). По мере того, как натуральные числа возрастают, совершенные числа встречаются все реже.

3. Числа ряда Фибоначчи — элементы числовой последовательности 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144 … В этой последовательности каждое последующее число равно сумме двух предыдущих.

Читать  Лабораторная работа №1 Паскаль – Составление и отладка линейных программ

4. Число Армстронга — натуральное число, равное сумме своих цифр, возвышенных в степень, равную количеству его цифр. Например, десятичное число 153 — число Армстронга, поскольку 1 3 +5 3 +3 3 = 153.

5. Дружественные числа — два различных натуральных числа, для которых сумма всех собственных делителей первого числа равен второму числу, а сумма всех собственных делителей второго числа равна первом номере. Например, числа 220 и 284 (эту пару определил Пифагор, около 500 гг. До н.э.), числа 1184 и 1210 (эту пару определил Паганини в 1860 г.).

ход работы

1. Создать в своей рабочей папке каталог PRACT12.

2. Запустить среда Delphi и создать новый приложение.

3. Выполнить File — Save All, указав пунктом назначения созданный Вами каталог PRACT12, под именами, которые предлагает среда Delphi.

Условие задачи. Организовать на форме ввода целых положительных чисел (их количество не может превышать 50). Вывести введенные значения в компонент memo1. Есть два набора переключателей, которые определяют, какие числа перенести в компонент memo2, и которые итоговые показатели необходимо подсчитать для перенесенных значений.

4. Некоторые замечания по проектированию формы. Целесообразно на форме разместить панель, на которой — элементы Label1 (Введите количество элементов), Edit1, Label2 (Элемент номер), Label3 (1), Edit2. Для вывода элементов массива использовать два поля Memo1 и Memo2, а также две группы радио-переключателей RadioGroup1 и RadioGroup2.

Читать  Практическая работа №17 – Программирование создания простейших движущихся изображений

Для программирования радио-переключателей используется свойство Items

5. В программе используются следующие глобальные переменные:

6. Нужно создать четыре функции пользователя, определяющих принадлежность числа к одному из видов «необычности» — простого, совершенного, Фибоначчи, Армстронга.Программные коды этих функций:

Определение простого числа:

Определение совершенного числа:

Определение числа Фибоначчи:

Определение числа Армстронга:

7. Программирование кода обработчика события OnClick кнопки Подтвердить количество! (Button1) — введение количества элементов массива:

8. Программирование кода обработчика события OnClick кнопки Подтвердить элемент! (Button2) — введение элемента массива; по завершении ввода — вывести введенные числа в поле Memo1:

9. Программирование кода обработчика события OnClick кнопки Выполнить! (Button3) — собственно, решение самой задачи:

Оговорок начальных условий:

Программирование кода по выбору переключателя на RadioGroup1:

Программирование кода по выбору переключателя на RadioGroup2:

10. Сохраним полученный приложение на диске и запустим его на выполнения.

11. Завершить работу со средой Delphi.

12. С операционной оболочки запустить файл с расширением ехе, который образовался в созданной Вами папке PRACT12.Важно! Целесообразно ввести следующие числа:

и проверить их на все возможные варианты «необычности» (в отчете — 12 скрин-шотов).

13. Результаты работы программы продемонстрировать преподавателю.

14. Навести порядок на рабочем месте.

[Всего голосов: 3    Средний: 5/5]