Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Методичка_Delphi_Ч1.doc
Скачиваний:
7
Добавлен:
02.11.2018
Размер:
2.38 Mб
Скачать

Разработка интерфейса

Добавьте к проекту еще одну форму, воспользовавшись функцией главного меню File->New->Form. Измените имя формы, например, на frmIntNumber. Интерфейс формы разработайте с учетом требований варианта задания.

Таблица 6.5 – Варианты заданий для формы «Обработка целых чисел»

Вариант

Задание

0

Написать программу, которая обеспечивает вывод в компонент TMemo, в возрастающем порядке, всех трехзначных целых чисел, в десятичной записи которых нет одинаковых цифр. Рекомендуется преобразовывать числа в строки и анализировать отдельные символы.

1

Обеспечить вывод в компонент TMemo всех целых чисел, попадающих в интервал от ln(X) до exp(X) , где Х > 1, и вычисление суммы этих чисел. Для округления границ диапазона использовать функции Ceil() и Floor().

2

Обеспечить вывод в компонент TMemo всех трехзначных целых чисел, сумма цифр которых равна введенному числу N (1< N < 27). Определить количество этих чисел. Для выделения отдельных цифр использовать преобразование чисел в строки.

3

Обеспечить вывод в компонент TMemo всех целых чисел, попадающих в интервал от n1 до n2 и кратных n3. Определить количество этих чисел.

4

Обеспечить вывод в компонент TMemo всех целых чисел, попадающих в интервал от n1 до n2 и которые являются удвоенными нечетными числами. Подсчитать количество этих чисел.

5

В случайной последовательности из n целых чисел подсчитать количество чисел меньших m и обеспечить вывод этих чисел в компонент TMemo.

6

Обеспечить вывод в компонент TMemo последовательности из n целых чисел и определить число соседств четных чисел в этой последовательности.

7

Обеспечить вывод в компонент TMemo случайной последовательности из n целых чисел в диапазоне от 0 до m и подсчитать, сколько раз в ней встречалось число k.

8

Найти все простые числа, которые меньше N, и вывести их в компонент TMemo.

Простым называют целое число, которое нацело делится только на 1 и на себя. Для тестирования чисел можно последовательно проверять результат деления каждого числа X на числа от 2 до X/2

9

Для введенного натурального числа N получить все его натуральные и вывести их в компонент TMemo.

Для нахождения делителей следует последовательно проверять результат деления числа N на числа от 2 до N/2.

В качестве примера мы рассмотрим подобную задачу.

Пусть, например, в последовательности целых чисел от 1 до Max требуется выделить числа, квадрат которых равен сумме квадратов других целых чисел.

Интерфейс формы сделаем подобным рисунку 6.7.

Рисунок 6.6 – Интерфейс формы для обработки последовательности целых чисел