close

Вход

Забыли?

вход по аккаунту

?

OFORMLENIE L R VB

код для вставкиСкачать
ОФОРМЛЕНИЕ ЛАБОРАТОРНЫХ РАБОТ ПО VB
ОТЧЕТ по лабораторной работе №1
Студент ________________ Группа _______________
Задание 1: Даны действительные числа x, y. Если x и y отрицательны, то каждое значение заменить его модулем; если отрицательно только одно из них, то оба значения увеличить на 0.5; в остальных случаях числа оставить без изменения.
Постановка задачи: необходимо преобразовать два действительных числа в соответствии с заданными условиями. Программа должна представлять собой форму VB с элементами управления для ввода исходных данных, запуска процедуры вычисления и вывода результатов расчета.
Используемые переменные и массивы:
ИмяРазмерностьТипФорматПримечанияXПеременнаяЧисловой с плавающей запятойSingleИсх.данные и резул.YПеременнаяЧисловой с плавающей запятойSingleИсх.данные и резул.
Расчетные формулы: приведены на блок-схеме
Блок-схема алгоритма решения задачи:
Макет формы приведен на рис.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 - рис.4).
Задание 2: Дано действительное число а. Для функции f(x), график которой представлен на рисунке, вычислить значение f(a) Дальше, господа студенты, извольте сами.
Документ
Категория
Рефераты
Просмотров
10
Размер файла
80 Кб
Теги
oformlenie
1/--страниц
Пожаловаться на содержимое документа