Реализация алгоритма вычислительного процесса на языке Microsoft Visual Basic

Лабораторная работа №2

 

Разветвляющиеся вычислительные процессы

 

Цель работы

1. Приобретение навыков по алгоритмизации и программирования разветвляющихся вычислительных процессов.

2. Реализация алгоритма вычислительного процесса на языке Microsoft Visual Basic.

 

Порядок выполнения работы

По номеру варианта выбрать из таблицы 2 задание и в соответствии с методическими указаниями, рекомендованной литературой и конспектом лекций написать программу для решения задачи на ЭВМ.

 

Содержание отчета

1. Исходные данные и постановка задачи.

2. Текст кода языке Microsoft Visual Basic.

3. Результаты расчета.

 

 

Задание к лабораторной работе

Часть 1.

1. только оператор IF; 2. оператор IF , операции AND (OR).  

Пример выполнения работы ( Часть 1 )

Задание

Вычислить значение Y в зависимости от условий двумя способами, используя:

1. только оператор IF;

2. оператор IF , операции AND (OR).

 

при

Private Sub Command1_Click() '1 method x = Val(Text1.Text) If x < -1 Then y = 1 ElseIf x > 1 Then y = x Else y = x - 1 End If Label5.Caption = y End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() '2 method x = Val(Text1.Text) y = 1 If x >= -1 And x <= 1 Then y = x - 1 ElseIf x > 1 Then y = x End If Label5.Caption = y End Sub

 

Задание к лабораторной работе

Часть 2.

  Таблица 2 N варианта Формулы дляY …  

Пример выполнения работы ( Часть 2 )

Задание

 

Вычислить значение Y в зависимости от условий. Аргументы функции Y произвольные и вводятся с клавиатуры. Требуется учесть ОДЗ функций. Результат представить с двумя знаками после запятой.

 

 

Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) x = Val(Text4.Text) pi = 3.1415926 If x < pi / 2 Then y = Abs(b * c * x ^ 2): Label7.Caption = Format(y, "###0.00") ElseIf x > pi / 2 Then If a <> 0 Then y = Cos(x / a): Label7.Caption = Format(y, "###0.00") Else Label7.Caption = "a=0" Else If b * c >= 0 Then y = Sqr(b * c): Label7.Caption = Format(y, "###0.00") Else Label7.Caption = "bc<0" End If   End Sub   Private Sub Command2_Click() End End Sub