Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
22
Добавлен:
11.04.2015
Размер:
81.92 Кб
Скачать

ОФОРМЛЕНИЕ ЛАБОРАТОРНЫХ РАБОТ ПО 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)

Дальше, господа студенты, извольте сами.

Соседние файлы в папке 8 VB