![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
END DEF
В строке FN< имя функции> =записывается выражение, значение которого функция возвращает. Пример1. Отрезки заданы координатами концов. Сравнить эти отрезки. DEF FNL(x1, x2, y1, y2)=SQR((x1-x2)^2+(y1-y2)^2) ‘функция нахождения длины отрезка INPUT “введите координаты первого отрезка”, x1, x2, y1, y2 L1=FNL(x1, x2, y1, y2) INPUT “введите координаты второго отрезка”, x1, x2, y1, y2 L2=FNL(x1, x2, y1, y2) IF L1> L2 THEN ? “длина первого отрезка больше” ELSEIF L2> L1 THEN ? “длина второго отрезка больше ELSE ? “отрезки равны” END IF
DEF FNT(a, b)=abs((a+b^2)/cos(a-b)) INPUT “Введите 5 значений”, m, c, d, x, y K=FNT(1, m)-5*sqr(FNT(c, d))+tan(FNT(x, y)) ? “K=”; K Пример 3. Вычислить сумму N членов ряда. Факториал вычислять с помощью функции пользователя. S=1! /4! +4! /5! +9! /6! +16! /7! +…+(n^2)! /(n+3)!
DEF FNFACT(M) P=1 FOR I=1 TO M P=P*I NEXT I FNFACT=P END DEF INPUT “Введите n”; N S=0 FOR J=1 TO N S=S+FNFACT(J^2)/FNFACT(J+3) NEXT J ? “S=”; S
Задание: 1. Вычислить сложное выражение, используя определяемую функцию для вычисления повторяющейся в нем части. C=Ö (d+½ e½)/tg(de)+(x+½ y½)/tg(xy)-(z+½ t½)/tg(zt) 2. Вычислить функцию: C = m! n! /(m-n)!. Для вычисления факториала использовать определяемую функцию.
Практическое занятие с использованием подпрограмм и функций пользователя 1 вариант
2 вариант 1. Дан одномерный массив со значениями веса кур на птицефабрике. Найти средний вес кур. Найти вес самой тяжелой курицы. Заполнение массива, подсчет среднего веса и нахождение веса самой тяжелой курицы оформить отдельными подпрограммами.
|