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

[pic 1]

Федеральное агентство морского и речного транспорта Федеральное государственное бюджетное образовательное учреждение высшего образования

ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ МОРСКОГО И РЕЧНОГО

ФЛОТА

имени адмирала С.О.МАКАРОВА

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

Контрольная работа

Вариант 1

         Выполнил: Шевцов В.С. Студент 2 курса ЗО по специальнсти 26.05.05 Судовождение

 Проверил: 

ст.преп. Николаева Н.А. 

Санкт-Петербург. 2021 г.

Оглавление

  УСЛОВИЕ ЗАДАЧИ        3

  БЛОК-СХЕМА        4

  РЕШЕНИЕ №1        5

 РЕШЕНИЕ №2        7

 ВЫВОДЫ        8

УСЛОВИЕ ЗАДАЧИ

                                    Вариант 5

[pic 2]

БЛОК-СХЕМА

[pic 3]

РЕШЕНИЕ №1

[pic 4]

График

[pic 5] 

РЕШЕНИЕ №2

Листинг программы:

Function my_f(x, k)

If k Mod 2 = 0 Then

    my_f = Sin(k * x) + Cos(k * x)

Else

    my_f = (Abs(Sin(k * x) ^ 3 + Cos(k * x) ^ 3)) ^ (1 / 3)

End If

End Function

Sub Raschet():

Dim x, k, y

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

k = InputBox("Введите значение k")

y = my_f(x, k)

MsgBox ("y=" + Str(y))

End Sub

Результат работы программы:

[pic 6]

ВЫВОДЫ:

В ходе проделанной работы: