3.1. Порядок выполнения задания
Создать новый проект, содержащий одну форму. Исходя из условия задачи, выбрать и разместить на форме компоненты, которые будут использоваться для ввода исходных данных. Разместить на форме подписи к данным и управляющие элементы. Определить входные и выходные переменные для процедуры или функции, исходя из задания, и реализовать само задание. Определить обработчик событий для управляющего элемента, в котором использовать созданную процедуру или функцию.
3.2. Варианты заданий
Создать функцию Pow(x,y), которая возводит в степень y число x и возвращает результат через собственное имя. Задачу можно решить двумя способами. С помощью этой функции рассчитать значение выражений
и
.
Сравнить результаты.Создать процедуру, которая вычисляет значения выражений
и
и
возвращает результат через параметры.
Вычислить при помощи этой процедуры
значение выражения:
при a=0, c=0; a=
,
с=
.
Создать функцию вычисления гиперболического синуса
,
которая возвращает результат через
собственное имя. Вычислить при помощи
функции значение выражения:
при a=0,
,
,
,
.
Создать процедуру, которая вычисляет значения выражений
и
и
возвращает результат через параметры.
Вычислить при помощи этой процедуры
значение выражения:
при
Создать функцию вычисления гиперболического косинуса
,
которая возвращает результат через
собственное имя. Вычислить при помощи
функции значение выражения:
при a=0,
,
,
,
.
Создать процедуру, которая вычисляет значения периметра и площади треугольника по координатам трех его точек на плоскости. Вычислить при помощи этой процедуры площадь произвольного шестиугольника.
Создать функцию вычисления факториала Fact(n), согласно формуле
,
которая возвращает результат через
собственное имя. Вычислить при помощи
этой функции значение числа е по формуле:
Создать процедуру, которая вычисляет значение обьема усеченного и полного конуса. При помощи этой процедуры определить процентное соотношение объемов усеченного и полного конусов.
Создать функцию, которая определяет, является ли произвольное число n простым и возвращает результат через собственное имя. Определить при помощи этой функции процентное отношение количества простых чисел к общему их количеству для диапазонов (1..10), (1..100), (1..1000), (1..10000), (1..100000), (1..1000000).
Создать процедуру, которая определяет катет прямоугольного треугольника по значениям гипотенузы и другого катета и возвращает результат через один из параметров. Определить при помощи этой процедуры площадь произвольного прямоугольного треугольника.
Создать функцию, которая вычисляет значение расстояния между двумя точками по их координатам и возвращает результат через свое имя. Определить при помощи этой функции самую большую диагональ произвольного шестиугольника.
Создать процедуру, которая рассчитывает значение первообразной функции
в
точке
.
Процедура должна передавать рассчитанное
значение через параметры. Используя
эту процедуру, определить площадь
криволинейной трапеции при a=5, b=10, где
a,b – вертикальные прямые, ограничивающие
трапецию.Создать функцию, которая определяет, является ли аргумент функции кратным 45. Используя эту функцию, определить количество четырехзначных чисел вида X97X, X79X, кратных 45, где X – любая цифра.
Создать процедуру, которая получает трехзначное число и рассчитывает квадраты чисел, образованных двумя первыми цифрами трехзначного числа и последней цифрой этого же числа (Пример: входное трехзначное число –
,
выходные числа
и
).
Процедура должна передавать рассчитанные
значения через параметры. Используя
эту процедуру, определить все
трехзначные числа, которые можно
представить разностью между квадратом
числа, образованного первыми двумя
цифрами и квадратом третьей цифры.Создать функцию, которая определяет, есть ли в десятичной записи четырехзначного числа одинаковые цифры, и возвращает результат, используя собственное имя. Используя эту функцию, составить список натуральных четырехзначных чисел, в десятичной записи которых нет двух одинаковых чисел. Для создания списка использовать TListBox. Определить процентное соотношение количества этих чисел к их общему количеству.
Создать процедуру, которая получает 2 числа и определяет сумму цифр первого из них. В качестве результата возвращается признак равенства суммы цифр и второго числа. Используя эту процедуру, составить список всех трехзначных десятичных чисел, сумма цифр которых равна заданному целому числу.
Создать функцию, которая по заданному значению n определяет n-ый член ряда Фибоначи (1,1,2,3,5,8,13,… т.е. каждый последующий член получается суммированием двух предыдущих) и возвращает результат через собствернное имя. Используя эту функцию, определить сумму 2,4,6,8,10,12…100 членов ряда Фибоначи.
Создать процедуру, которая определяет, является ли заданное число перевертышем в десятичной системе счисления и возвращает результатом соответствующий признак через параметры. Используя эту процедуру, составить список всех чисел-перевертышей в диапазоне от 1 до 9999. Для создания списка использовать TListBox.
Создать функцию, которая определяет, является ли заданное число перевертышем в шестнадцитиричной системе счисления и возвращает результатом соответствующий признак через собственное имя. Используя эту функцию, составить список всех чисел-перевертышей в диапазоне от 128 до 1000000. Для создания списка использовать TListBox.
Создать процедуру для вычисления синуса согласно следующей формуле:
При расчете взять 20 членов этого ряда. Значения факториала разрешается задать константами. Определить при помощи этой процедуры sin( ), sin( ), sin( ), sin( ). Определить те же значения при помощи стандартных функций Delphi. Сравнить результаты.
Создать функцию для вычисления косинуса согласно следующей формуле:
При расчете взять 20 членов этого ряда. Значения факториала разрешается задать константами. Определить при помощи этой процедуры cos( ), cos( ), cos( ), cos( ). Определить те же значения при помощи стандартных функций Delphi. Сравнить результаты.
Создать процедуру, которая определяет, являются ли 3 числа, передаваемые через параметры, пифагоровскими (т.е. удовлетворяют ли они условию
).
Учесть, что числа a, b, c могут быть
переставлены местами. Процедура должна
возвращать соответствующий признак
через параметры. Используя эту процедуру,
составить список всех троек пифагоровских
чисел при 1<a,b,c<10000.Создать функцию, которая принимает 4-ехзначное число, заменяет все цифры этого числа, большие 5, на нули и возвращает результат через свое имя. Используя эту функцию, создать список чисел в диапазоне от 1000 до 9999 (в список выводить 2 числа - исходное и преобразованное).
Создать процедуру, которая принимает на входе 4-ехзначное число, находит максимальные значения среди четных и нечетных цифр. Результат передается через параметры. Используя эту процедуру, составить список всех чисел из диапазона от 1000 до 9999, у которых максимальные значения четных и нечетных цифр одинаковы.
Создать функцию, которая принимает на входе три значения a, b, c, которые обозначают длину сторон треугольника, и определяет, имеется ли в треугольнике угол, равный заданному значению*. Результат возвращается через имя функции. Используя эту функцию, определить, сколько существует треугольников, удовлетворяющих поставленному условию, если a, b, c изменяются от 1 до 1000 с шагом 1.
Создать процедуру, которая для числа n определяет, равен ли куб суммы его цифр n. Результат передается через параметры. Используя эту процедуру, составить список всех таких чисел из диапазона от 1000 до 9999.
Создать функцию, которая определяет количество делителей для указанного числа n и возвращает результат через собственное имя. Используя эту функцию, определить число из диапазона от 1 до 1000000, которое имеет максимальное число делителей.
Создать процедуру, которая принимает на входе число, затем исключает из этого числа все “1” и “5”, сохраняя порядок следования чисел неизменным. Результат передается через параметры. Используя эту процедуру, вывести список исходных и преобразованных по данному закону чисел из диапазона 100-1000.
Создать функцию, которая определяет, является ли число совершенным** и возвращает результат через собственное имя. Используя эту функцию, определить все совершенные числа из диапазона от 1 до 1000000.
Создать процедуру, которая вычисляет сумму всех цифр заданного числа. Результат передается через параметры. Используя эту процедуру определить все числа из диапазона от 1000 до 9999, сумма которых равна заданному значению.
Практическое занятие №4
Работа с одномерными массивами и матрицами