Контакты

Случайная статья

ВАРИАНТ 10. При x=1 значении функции y=3

ВАРИАНТ 10

Задание №1.

Постановка задачи:

Определить лежит ли точка с координатами (x, y) на окружность радиуса R с центром в начале координат. Выполняется ли условие , где e – точность, с которой осуществляется проверка на равенство.

Входные данные: x, y, R, E –переменные вещественного типа.

Математическая модель алгоритма:

Ввод значений x, y, R, E

Вычислите

Если то точка с координатами (x, y) «лежит»

Иначе «не лежит»

Вывод результата.

Составление схемы алгоритма:

Разработка визуальной части проекта:

Разработка кода приложения:

Для запуска кода приложения на выполнение используем элемент управления Командная кнопка (ОК) и Событие-щелчок по командной кнопке.

Private Sub Command1_Click()

Dim x As Single Dim y As Single Dim R As Single Dim E As Single

x = InputBox (“введите x”)

y = InputBox (“введите y”)

R = InputBox (“введите R”)

E = InputBox (“введите E”)

If Abs(Sqr(x^2+y^2)-R)< =E Then

MsgBox ”Лежит”

Else

MsgBox ”Не лежит”

End If

End Sub

Отладка:

При x=1, y=1, R=1, E=1, точка лежит на окружности.

Задание №2

Постановка задачи:

Пусть функция, выполняемая ИТ описывается следующими зависимостями

Y=

Входные данные: x – вещественного типа

Выходные данные: y – вещественного типа

Математическая модель:

Ввод значения переменной x

Вычисление значения функции y

Если -1, 4≤ x≤ 0, то y=

Если 0< x≤ 1, 4, то y=

Если 1, 4 < x≤ 3, 6, то y=

Вывод значения Y на экран монитора.

Составление схемы алгоритма:

Разработка визуальной части проекта:

Разработка кода приложения:

Private Sub Command1_Click()

Dim x As Single, y As Single

X=InputBox(“введите x”)

If x> =-1. 4 and x< =0 Then

Y=x/2

ElseIf x> 0 and x< =1. 4 Then

Y=x^2-4*x+6

ElseIf x> 1. 4 and x< =3. 6 Then

Y=-2*Sqr(x)

End If

MsgBox “y=”& Format(y, ”0. 00”)& ”x=”& Format(x, ”0. 00”)

End Sub

Отладка:

При x=1 значении функции y=3

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.