Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Цикл FOR

Задание 1

Проект «График функции в полярной системе координат»

Public Class frmGraph

Dim picGraph As Graphics

Dim R, G, B As Integer

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

Private Sub frmGraph_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

picGraph = picDraw.CreateGraphics()

R = 0

G = 0

B = 0

End Sub

Private Sub btnPusk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPusk.Click

Dim X0 As Integer = picDraw.Width / 2

Dim Y0 As Integer = picDraw.Height / 2

Dim penGraph As New Pen(Color.FromArgb(R, G, B))

Dim X1, Y1, X2, Y2 As Integer

Dim a As Integer, ar, L, X, Y As Single

Dim R1 As Integer = 40

X1 = X0

Y1 = Y0

For a = 1 To 360

ar = a * Math.PI / 180

L = 2 * R1 * (1 - Math.Cos(ar))

X2 = X0 + L * Math.Cos(ar)

Y2 = Y0 - L * Math.Sin(ar)

picGraph.DrawLine(penGraph, X1, Y1, X2, Y2)

X1 = X2

Y1 = Y2

Next

End Sub

Private Sub chkRed_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRed.CheckedChanged

If chkRed.Checked Then R = 255 Else R = 0

End Sub

Private Sub chkGreen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkGreen.CheckedChanged

If chkGreen.Checked Then G = 255 Else G = 0

End Sub

Private Sub chkBlue_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkBlue.CheckedChanged

If chkBlue.Checked Then B = 255 Else B = 0

End Sub

End Class

Задание 2.

Составьте программу, в ходе выполнения которой на форме будет нарисован график астроиды в полярных координатах. Для преобразования полярных координат в декартовые используйте формулы: , . Параметр K вводится через объект «Окно редактирования».

Задание 3.

Составить программу, которая позволит рассчитать значения функции при изменении параметра x в пределах от x_min до x_max. Исходные данные вводятся через объект «Окно редактирования», результаты (x=… y= …) выводятся в объект «Список».