Essays.club - Получите бесплатные рефераты, курсовые работы и научные статьи
Поиск

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

Автор:   •  Март 26, 2021  •  Контрольная работа  •  344 Слов (2 Страниц)  •  230 Просмотры

Страница 1 из 2

[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]

 


ВЫВОДЫ:

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

...

Скачать:   txt (2.5 Kb)   pdf (183.4 Kb)   docx (55.6 Kb)  
Продолжить читать еще 1 страницу »
Доступно только на Essays.club