4 Задание
4.1 Составьте функцию пользователя, вычисляющую стоимость дорожки, проходящей по через луг и пляж (постановка задача приведена в практическом занятии 6). Все данные (восемь значений) передаются в функцию как параметры.
4.2 Создайте процедуру для этих же вычислений. Все данные процедура должна получать из ячеек рабочего листа, а результат поместить в ячейку, адрес которой задается пользователем.
4.3 Создаваемые процедуры должны обеспечить вычисления длины двух отрезков дорожки
и стоимости строительства дорожки:
S = S1 * AB + S2 * BC
при следующих исходных данных
S1=80; S2=120;
xa=0; ya=10;
yb=5;
xc=10; yc=0
Значение xb принять равным одному из тех, для которых на занятии 6 было получено значение стоимости, например 2.
5 Указания к выполнению работы
5.1 Все операции выполняйте в рабочей книге, созданной на занятии 2-6.
5.2 Перед началом работы проверьте и, если нужно, измените на Средний, уровень безопасности при работе с макросами.
5.3 Редактор VBA открывается командами Сервис – Макрос – Редактор Visual Basic .
5.4 Для вставки новой процедуры используется команда Insert – Procedure; тип новой процедуры следует указать Function для первого задания и Sub для второго. Имя функции и процедуре задайте сами, они не должны совпадать.
5.5 Для вычисления длины отрезков можно использовать стандартную функцию VBA Sqr() – вычисления квадратного корня или воспользоваться операцией возведения в степень и тождеством: √х = х1/2.
5.6 Вычислите значения стоимости строительства дорожки с функции и с процедуры. Сравните со значениями, полученными при выполнении занятия 6.
5.7 Сохраните результаты работы.
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;
Так как язык не указан, приведу пример на SWI-Prolog.
Код:
read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).