Лабораторная работа №3. Задание 14. Как живые организмы изменяют нашу планету?

 

Задание 14. Как живые организмы изменяют нашу планету? Ответьте на вопрос, пользуясь учебником (стр. 202-203).

Зеленые растения _____________________________________________________________

Останки живых организмов ____________________________________________________

____________________________________________________________________________

Растительный покров _________________________________________________________

Леса и кустарники в горах _____________________________________________________

 

Лабораторная работа №2

Тема: Работа с управляющими структурами VBA

Вариант №0

Задача: Разработать программу на VBA, которая в ответ на вводимую с клавиатуры пару вещественных чисел, представляющих собой координаты Х и Y, точки А на плоскости, выдает текстовое сообщение о принадлежности этой точки заданной области. Например, «Точка принадлежит закрашенной области». В программе должно быть предусмотрено неограниченное повторение всех операций. Решение о повторе должен принимать пользователь с помощью клавиатуры.

Графическая схема и пояснения:

Первая закрашенная область задается системой неравенств:

, где а – это координата х точки пересечения прямой и оси ОХ. Мы ее ввели, так как в задании она конкретно не указана. Первое неравенство задает точки вне круга, второе неравенство задает точки внутри эллипса, третье – точки над прямой. При пересечении эти области дадут нам первую закрашенную область.

Вторая закрашенная область задается системой неравенств:

Текст программы:

Dim x, y, a As Double

Sub Vichislenie()

Dim t As String

1: t = InputBox("Введите значение x:")

x = Val(t)

t = InputBox("Введите значение y:")

y = Val(t)

t = InputBox("Введите координату х точки пересечения прямой и оси ОХ (например, a=-7):")

a = Val(t)

If (((x + 7) ^ 2 + (y + 3) ^ 2 >= 64) And ((x + 2) ^ 2 / 64 + (y) ^ 2 / 324 <= 1) And (y >= x - a)) Or (((x + 7) ^ 2 + (y + 3) ^ 2 >= 64) And ((x + 2) ^ 2 / 64 + (y) ^ 2 / 324 <= 1) And (x >= 0) And (y <= 0)) Then MsgBox ("Точка принадлежит закрашенной области") Else MsgBox ("Точка не принадлежит закрашенной области")

ret = MsgBox("Повторить вычисления?", vbYesNo, " ")

If ret = vbYes Then

GoTo 1

End If

End Sub

Тесты:

1)Введите координаты точки А:

x=1

y=1

Введите координату х точки пересечения прямой и оси ОХ (например, а=-7):

a=-7

Точка А не принадлежит закрашенной области.

2) Введите координаты точки А:

x=-2

y=10

Введите координату х точки пересечения прямой и оси ОХ (например, а=-7):

a=-7

Точка А принадлежит закрашенной области.

 

3) Введите координаты точки А:

x=5

y=-1

Введите координату х точки пересечения прямой и оси ОХ (например, а=-7):

a=-7

Точка А принадлежит закрашенной области.

Лабораторная работа №3