Лабораторная работа "Разветвляющиеся алгоритмы"

Скачать: tema-3.rar [178,85 Kb] (cкачиваний: 0)  

Разветвляющиеся алгоритмы

Цель

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

Задания первого уровня сложности

В следующих задачах организовать выполнение алгоритма следующим образом: выбор вычисления по той или иной формуле - с помощью элемента управления переключатель, форматный или бесформатный вывод - с помощью элемента управления флажок.

Интерфейс программы:

Блок схема:

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

Private Sub Command1_Click()

Picture1.Cls

a = Val(Text1)

b = Val(Text2)

If Option1.Value Then If Check1.Value Then Picture1.Print "Среднее арифметическое кубов = " & Format((a ^ 3 + b ^ 3) / 2, "0.0") Else Picture1.Print "Среднее арифметическое кубов = " & (a ^ 3 + b ^ 3) / 2

If Option2.Value Then If Check1.Value Then Picture1.Print "Cреднее геометрическое модулей = " & Format((Abs(a) * Abs(b)) ^ 0.5, "0.0") Else Picture1.Print "Cреднее геометрическое модулей = " & (Abs(a) * Abs(b)) ^ 0.5

EndSub

Задания второго уровня сложности

Организовать разветвляющийся процесс для решения следующих задач.

Интерфейс программы:

Блок схема:

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

Private Sub Command1_Click()

Picture1.Cls

a = Val(Text1)

b = Val(Text2)

If ((a + b) / 2) - Fix(((a + b) / 2)) > 0 Then Picture1.Print "Не является" Else Picture1.Print "Является"

EndSub

Задания третьего уровня сложности

Организовать разветвляющийся процесс для решения следующих задач.

Интерфейс программы:

Блок схема:

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

Private Sub Command1_Click()

Picture1.Cls

x = Val(Text1)

s = Sin(x)

c = Cos(x)

If x >= 0 Then

l = Log(x)

If (c > s) And (c > l) Then

If l > s Then

Picture1.Print "ln(x): " & Round(l, 3)

Picture1.Print "sin(x): " & Round(s, 3)

Else

Picture1.Print "sin(x): " & Round(s, 3)

Picture1.Print "ln(x): " & Round(l, 3)

End If

Picture1.Print "cos(x): " & Round(c, 3)

ElseIf (s > c) And (s > l) Then

If l < c Then

Picture1.Print "ln(x): " & Round(l, 3)

Picture1.Print "cos(x): " & Round(c, 3)

Else

Picture1.Print "cos(x): " & Round(c, 3)

Picture1.Print "ln(x): " & Round(l, 3)

End If

Picture1.Print "sin(x): " & Round(s, 3)

ElseIf (l > c) And (l > s) Then

If s > c Then

Picture1.Print "cos(x): " & Round(c, 3)

Picture1.Print "sin(x): " & Round(s, 3)

Else

Picture1.Print "sin(x): " & Round(s, 3)

Picture1.Print "cos(x): " & Round(c, 3)

End If

Picture1.Print "ln(x): " & Round(l, 3)

End If

Else

Picture1.Print "ln(x) не определен"

If s > c Then

Picture1.Print "cos(x): " & Round(c, 3)

Picture1.Print "sin(x): " & Round(s, 3)

Else

Picture1.Print "sin(x): " & Round(s, 3)

Picture1.Print "cos(x): " & Round(c, 3)

End If

End If

End Sub