Структура развилка / 14
.docxМИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Государственное бюджетное образовательное учреждение
высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»
Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»
Дисциплина: «Информатика»
ОТЧЕТ
по лабораторной работе № 3
СТРУКТУРА РАЗВИЛКА
Вариант 14
Выполнил студент
Факультета
Группы
Санкт-Петербург
20**
Задание №1.
1. Постановка задачи.
Услуги телефонной сети оплачиваются по следующему правилу: за разговоры до T минут в месяц – A руб., а разговоры сверх установленной нормы оплачиваются из расчета B руб. за минуту. Определить плату за пользование телефоном для введенного времени X разговоров за месяц.
Входные данные:
T – ограничение по времени, переменная вещественного типа,
A – стоимость в месяц до ограничения, переменная вещественного типа,
B – стоимость минуты после ограничения, переменная вещественного типа,
X – количество разговоров за месяц, переменная вещественного типа.
Выходные данные:
S – плата за пользование телефоном, переменная вещественного типа.
2. Математическая модель задачи.
3. Разработка алгоритма.
5. Код приложения.
Private Sub Command1_Click()
Dim T As Single, A As Single, B As Single, X As Single, S As Single
T = InputBox("T=")
A = InputBox("A=")
B = InputBox("B=")
X = InputBox("X=")
If X > T Then
S = A + B * (X - T)
Else
S = A
End If
Print "При T=" & T & "; A=" & A & "; B=" & B & "; X=" & X
Print "Плата за пользование=" & S
End Sub
6. Отладка приложения
Ручной счет:
Задание №2.
1. Постановка задачи.
Входные данные:
x – аргумент функции, переменная вещественного типа.
Выходные данные:
y – значение функции, переменная вещественного типа.
2. Математическая модель задачи.
3. Разработка алгоритма.
5. Код приложения.
Private Sub Command1_Click()
Dim x As Single, y As Single
x = InputBox("x=")
If x >= -1 Then
If x >= 1.6 Then
y = Cos(x)
Else
y = x ^ 2
End If
Else
y = 1 / x
End If
Print "При x=" & x & " y=" & y
End Sub
6. Отладка приложения
Ручной счет:
