Росжелдор

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

«Ростовский государственный университет путей сообщения»

(ФГБОУ ВПО РГУПС)

Кафедра «ИНФОРМАТИКА»

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

по дисциплине «Информатика»

Выполнил студент группы______________

_____________________________

шифр________________________

вариант №_______

Проверил доцент каф. «Информатика»

Ильичева В.В.

Ростов-на-Дону

20__

Приложение 2

►Пример оформления контрольной работы № 2

Задание № 1

Линейный алгоритм. Вычисление арифметического выражения

Вычислить значение функции при А, В, С – константах (задать значения самостоятельно) и произвольном х (ввести с клавиатуры):

.

Описание блоков:

1. Задание констант А, В.

2. Ввод переменной Х.

3. Расчет функции У по заданной формуле.

4. Вывод значения функции У.

5. Конец программы.

Блок-схема алгоритма:

Текст программы:

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

Линейный алгоритм. Вычисление по математическим и физическим формулам

Рассчитать площадь прямоугольника по известным его сторонам.

Описание блоков:

1. Ввод переменных А, В (сторон прямоугольника).

2. Расчет значения S по заданной формуле (площади прямоугольника).

3. Вывод значения S.

4. Конец программы.

Блок-схема алгоритма:

Текст программы:

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), вывести его модуль, в противном случае вывести соответствующее сообщение.

Описание блоков:

1. Ввод переменной Х.

2. Если X > –10 и X < 0, то

   1. Вывод сообщения «x принадлежит интервалу –10,0»

   2. Печать модуля Х.

3. Конец программы.

Блок-схема алгоритма:

Текст программы:

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

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

Таблица идентификаторов:

Идентификатор	Назначение в программе
х	Переменная