Використання циклів

ПРАКТИЧНА РОБОТА 7

1. МЕТА РОБОТИ

Вивчення методики програмування обчислювальних процесів з використанням циклів.

2. ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ

2.1. Ознайомитися з наведеними прикладами.

2.2. Виконати задачі, для самостійної роботи.

Створити програми:

Private Sub Command1_Click()

For і = 1 To 10

Print "ЛІНІЯ "; і

Next i

End Sub

Private Sub Command1_Click()

For i = 1 To 10

FontSize = 5 + i

Print "ЛІНІЯ "; і

Next i

End Sub

Приклад. Протабулювати функцію y = Sin(x) + 1

Для Text1.Text встановити наступні властивості

ScroollBars-Both

MultiLine-True

Введіть назви команд головного меню форми, для цього виконайте команду Tools=>Menu Editor

Caption	Name
Обчислення	mnuCalc
Табулювання	mnuTabul
Очистити	mnuClear
Кінець	mnuFinish
Про програму	mnuAbout
Кінець	mnuEnd

Запрограмуйте команди

Private Sub mnuabort_Click()

MsgBox (" tsesliv")

End Sub

Private Sub mnuclear_Click()

Text1.Text = " "

End Sub

Private Sub mnuend_Click()

End

End Sub

Private Sub mnutab_Click()

Dim space, newline As String

Dim x, y As Double

newline = Chr(13) + Chr(10)

space = Chr(9)

Text1.Text = "X" + space + "Y" + newline

For x = Val(Text2.Text) To Val(Text3.Text) Step Val(Text4.Text)

y = Sin(x) + 1

If Check1.Value = Checked Then

Text1.Text = Text1.Text + Str(x) + space + Str(Format$(y, "0.000")) + newline

End If

Next x

End Sub

Знайти максимальне значення функції y = 3 * Sin(x + 2.6)

Private Sub Command1_Click()

x = 0

xmax = 0

Max = 3 * Sin(x + 2.6)

For n = 0 To 10

x = 0.1 * n

y = 3 * Sin(x + 2.6)

If Max < y Then Max = y: xmax = x

Next n

Print x; y

End Sub

Контрольні запитання

1.Як створити меню форми?

2.Як знайти максимальне значення функції?

Завдання для самостійного розв’язку.

1. Протабулювати функцію y=tg(x) на відрізку [0,π] з кроком h=0.1 і визначити середнє значення функції

2. Протабулювати функцію y=cos(x) на відрізку [0,π] з кроком h=0.1 і визначити мінімальне значення функції на цьому проміжку.

Дата добавления: 2014-12-24