Лабораторки по информатике / 8 VB / OFORMLENIE_L_R_VB
.docОФОРМЛЕНИЕ ЛАБОРАТОРНЫХ РАБОТ ПО VB
ОТЧЕТ по лабораторной работе №1
Студент ________________ Группа _______________
Задание 1: Даны действительные числа x, y. Если x и y отрицательны, то каждое значение заменить его модулем; если отрицательно только одно из них, то оба значения увеличить на 0.5; в остальных случаях числа оставить без изменения.
Постановка задачи: необходимо преобразовать два действительных числа в соответствии с заданными условиями. Программа должна представлять собой форму VB с элементами управления для ввода исходных данных, запуска процедуры вычисления и вывода результатов расчета.
Используемые переменные и массивы:
Имя |
Размерность |
Тип |
Формат |
Примечания |
X |
Переменная |
Числовой с плавающей запятой |
Single |
Исх.данные и резул. |
Y |
Переменная |
Числовой с плавающей запятой |
Single |
Исх.данные и резул. |
Расчетные формулы: приведены на блок-схеме
Блок-схема алгоритма решения задачи:
да нет
x=Abs(x) y=Abs(y) да нет
x=x+0.5 y=y+05 x=x+0.5
y=y+0.5
Макет формы приведен на рис.1:
Рис.1.
Макет формы для решения задачи
Описание используемых элементов управления (см. рис.1):
-
Text1, Text2 – текстовые поля для ввода исходных значений x, y;
-
Label3, Label4 – надписи для вывода преобразованных значений x,y;
-
Кнопка «Вычислить» (Command1) – кнопка для запуска расчета.
Текст программных модулей:
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
y = Val(Text2.Text)
If x < 0 And y < 0 Then
x = Abs(x)
y = Abs(y)
Else
If Not (x > 0 And y > 0) Then
x = x + 0.5
y = y + 0.5
End If
End If
Label3.Caption = Str(x)
Label4.Caption = Str(y)
End Sub
Контрольные примеры для решения задачи при разных значениях x,y приведены на рис.2-рис4:
Рис.2.
Расчет при x<0
и y<0
Рис.
3. Расчет при положительных х,у
Рис.4.
Расчет при отрицательном
значении х и положительном у
Выводы: Таким образом, поставленная задача решена. Контрольные примеры для всех трех случаев показывают правильность решения поставленной задачи (см. рис.2 – рис.4).
Задание 2: Дано действительное число а. Для функции f(x), график которой представлен на рисунке, вычислить значение f(a)
Дальше, господа студенты, извольте сами.