Контрольная работа по "Информатике"
Автор: Дмитрий Шефер • Март 26, 2021 • Контрольная работа • 344 Слов (2 Страниц) • 235 Просмотры
[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]
ВЫВОДЫ:
В ходе проделанной работы:
...