Контрольная работа по "Информатике "

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ОБРАЗОВАНИЯ

«ОМСКИЙ ГОСУДАРСТВЕННЫЙ АГРАРНЫЙ УНИВЕРСИТЕТ им. П.А. СТОЛЫПИНА»

(ФГБОУ ВПО Омский ГАУ)

Кафедра математических и естественнонаучных дисциплин

(МЕНД)

КОНТРОЛЬНАЯ РАБОТА

по ИНФОРМАТИКЕ

наименование дисциплины

1-й семестр

Студентки заочной формы обучения Бондаренко Анастасия Васильевна

№ зачетной книжки 1з1706028 группа 102

Специальность 21.03.02 Землеустройство и кадастры

код и наименование

№ варианта 28 под вариант 2

Выполнил(а)_________________

подпись студента(ки)

Работа предъявлена на проверку «____»_________20_г.____________________

подпись преподавателя

Результаты проверки

Замечания, рекомендации_____________________________________

Проверил преподаватель «___»__________20__г.

Ф.И.О., подпись

Вторично предъявлена на проверку «___»_____________20 __г.

подпись преподавателя

Результаты проверки__________________________________________

Замечания___________________________________________________

Проверил преподаватель «___»________20__г. _________________

Ф.И.О., подпись

Работа принята (проведено собеседование) «___»___________2018г________________

подпись преподавателя

Омск 2018

Задача 1

При разработке алгоритма, его нужно представить в виде блок-схемы и создать процедуру-функцию для вычисления функции

[pic 1]При х=0.774

Блок – схема

[pic 2][pic 3]

начало

конец

        Программа:

Public Function y(x)

y = (10.2 * Abs(Sin(x + 1.2) + ((1 + Cos(2 * x)) / 2))) ^ (1 / 3)

End Function

        Результат:

[pic 4]

Задача 2

При разработке алгоритма, его нужно представить в виде блок-схемы и написать программу для табулирования функции

[pic 5]

на участке [-1;11] с шагом x=1.5 при а=0.5; b=1.23.

Ввод и вывод данных предусмотреть с рабочего листа MS Excel

Блок – схема

[pic 6]

        Программа:

Public Sub two()

Dim a, b, x0, xk, dx, x, y As Single

a = Cells(2, 1).Value

b = Cells(2, 2).Value

x0 = Cells(2, 3).Value

xk = Cells(2, 4).Value

dx = Cells(2, 5).Value

x = x0

i = 5

2 If x > 5 Then y = Sqr(a * b) + x / (a * b) Else y = x ^ 2 - b * x

Cells(i + 1, 1).Value = x

Cells(i + 1, 2).Value = y

i = i + 1

x = x + dx

If x <= xk Then GoTo 2

End Sub

        Результат: