Организация ввода-вывода данных, изменение свойств объектов, разработка приложений с линейными алгоритмами

Министерство  образования и науки Российской Федерации

 «Вятский  государственный университет»

Кафедра «Биотехнологии» 
 
 
 
 
 
 
 
 
 
 
 

Отчет по

Лабораторной  работе №3

«Организация  ввода-вывода данных, изменение свойств  объектов, разработка приложений с  линейными алгоритмами»

Вариант № 12 
 
 
 
 
 
 
 
 
 
 

Выполнен:

Студенткой 1 курса

Викторовой  Еленой

Гр. БТ-11 
 
 
 
 
 
 

Киров, 2010 г

Цель  работы:

Целью работы является изучение возможностей разработки приложений с разветвляющимися алгоритмическими структурами. 

Задание 1:

Заданы стороны  прямоугольника. Определить его периметр, площадь и длину диагонали.

Текст программы:                                                      Реализация формы приложения:

Private Sub Command1_Click()

a = Val(Text1)

b = Val(Text2)

Picture1.Cls

c1 = (a ^ 2 + b ^ 2) ^ (1 / 2)

Picture1.Print " c1= "; c1

End Sub

Private Sub Command2_Click()

End

End Sub            

При подстановке  значений а=4; b=3 вычисление значений представлено в форме.

                                                                        Реализация формы приложения:

Private Sub Command1_Click()

a = Val(Text1)

b = Val(Text2)

Picture1.Cls

c2 = a * b

Picture1.Print " c2= "; c2

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Label1_Click()

End Sub

При подстановке  значений а=4; b=3 вычисление значений представлено в форме.

Private Sub Command1_Click()                  Реализация формы приложения:

a = Val(Text1)

b = Val(Text2)

Picture1.Cls

c3 = ( a + b ) * 2

Picture1.Print " c3= "; c3

End Sub

Private Sub Command2_Click()

End

End Sub

 При подстановке значений а=4; b=6 вычисление значений представлено в форме.

                                           Блок-схема алгоритма

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Задание 2:                                                             Реализация формы приложения:

Вычислить значение функции по формуле:

            x > 0

y =       x = 0

            x < 1

Текст программы:

Private Sub Command1_Click()

x = Val(Text1)

Picture1.Cls

If x < 1 Then y = -1

If x = 0 Then y = 0

If x > 0 Then y = 1

Picture1.Print "y="; y

End Sub

Private Sub Command2_Click()

End

End Sub

При подстановке  значения х=6; х=-4; х=0

вычисление значений представлено в форме.

Блок-схема  алгоритма 
 

    Да                                         Нет 
 

Да                                                                    Нет 

Да                                                                     Нет 
 

Задание 3:

Осуществить перевод  величин из радианной меры в градусную  и наоборот. Программа должна запрашивать, какой перевод нужно осуществить, и выполнять указанное действие.

Текст программы:                                            Реализация формы приложения:

Private Sub Command1_Click()                       

If Option1.Value = True Then

a = Val(Text1)

Picture1.Cls

b = a / (180 / 3.14)

Picture1.Print b

Else

a = Val(Text1)

Picture1.Cls

b = a * (180 / 3.14)

Picture1.Print b

End If

End Sub

Private Sub Command2_Click()

End

End Sub

При подстановке  значений а=56 вычисление значений представлено в форме.

                                           Блок-схема алгоритма 
 
 

                          Да                                                                       Нет