Росжелдор
Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования
«Ростовский государственный университет путей сообщения»
(ФГБОУ ВПО РГУПС)
Кафедра «ИНФОРМАТИКА»
Контрольная работа №_
по дисциплине «Информатика»
Выполнил студент группы______________
_____________________________
шифр________________________
вариант №_______
Проверил доцент каф. «Информатика»
Ильичева В.В.
Ростов-на-Дону
20__
Приложение 2
►Пример оформления контрольной работы № 2
Задание № 1
Линейный алгоритм. Вычисление арифметического выражения
Вычислить значение функции при А, В, С – константах (задать значения самостоятельно) и произвольном х (ввести с клавиатуры):
.
Описание блоков:
Задание констант А, В.
Ввод переменной Х.
Расчет функции У по заданной формуле.
Вывод значения функции У.
Конец программы.
Блок-схема алгоритма:
Текст программы:
Private Sub CommandButton1_Click()
Dim y As Double
Dim x As Double
Const A = 2.5
Const B = 3
x=InputBox("Введитеx", "Окно ввода данных")
y = Sin(x) + Sqr(Abs(A * B + 3 * x ^ 2))
Res=MsgBox("y= " &y, , "Результат")
End Sub
Результат работы программы:
Таблица идентификаторов:
Идентификатор |
Назначение в программе |
А, В |
Константы |
х |
Переменная |
у |
Результирующая переменная |
Задача № 2
Линейный алгоритм. Вычисление по математическим и физическим формулам
Рассчитать площадь прямоугольника по известным его сторонам.
Описание блоков:
Ввод переменных А, В (сторон прямоугольника).
Расчет значения S по заданной формуле (площади прямоугольника).
Вывод значения S.
Конец программы.
Блок-схема алгоритма:
Текст программы:
Private Sub CommandButton1_Click()
Dim A As Single, B As Single, S As Single
A = InputBox("Введите одну сторону прямоугольника")
B = InputBox("Введите вторую сторону прямоугольника")
S = A * B
MsgBox "Площадь равна" & S
End Sub
Результат работы программы:
Таблица идентификаторов:
Идентификатор |
Назначение в программе |
А, В |
Стороны прямоугольника |
S |
Площадь прямоугольника |
Задача № 3
Разветвляющийся алгоритм: выбор по условию
Ввести с клавиатуры число и проверить: если оно принадлежит интервалу (–10; 0), вывести его модуль, в противном случае вывести соответствующее сообщение.
Описание блоков:
Ввод переменной Х.
Если X > –10 и X < 0, то
Вывод сообщения «x принадлежит интервалу –10,0»
Печать модуля Х.
Конец программы.
Блок-схема алгоритма:
Текст программы:
Private Sub CommandButton1_Click()
Dim x As Double
x = InputBox("Введите x", "Окно ввода данных")
If x > -10 And x < 0 Then
Res = MsgBox("x принадлежит интервалу -10,0", , "Результат")
Res = MsgBox("модуль x =" & Abs(x), , "Результат")
Else
Res = MsgBox("x не принадлежит интервалу -10,0", , "Результат")
End If
End Sub
Результат работы программы:
Таблица идентификаторов:
Идентификатор |
Назначение в программе |
х |
Переменная |