Algoritmizatsia_i_programmirovanie / Напеч / лаба 1
.docxЗадание
Построить график функции
Трохоида
x = a (t- Sin t) ;
y = a (1- Cos t) , - < t <
Исходная форма с элементами контроля
Text2
Text1
Label1
Picture1
Label2
Form1
Command1
Command2
Измененные свойства
Form Form1
Caption = "Построение графика функции"
ClientHeight = 7530
ClientLeft = 165
ClientTop = -1665
ClientWidth = 11220
LinkTopic = "Form1"
ScaleHeight = 7530
ScaleWidth = 11220
CommandButton Command2
Caption = "Удалить"
Name = "MS Sans Serif"
Size = 13.5
Charset = 204
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 9240
TabIndex = 6
Top = 6240
Width = 1455
CommandButton Command1
Caption = "Построить"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 204
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 9120
TabIndex = 5
Top = 3960
Width = 1815
TextBox Text2
BackColor = &H80000000&
Height = 615
Left = 9840
TabIndex = 4
Top = 1440
Width = 735
TextBox Text1
BackColor = &H80000000&
Height = 615
Left = 9840
TabIndex = 1
Top = 480
Width = 735
PictureBox Picture1
Height = 7215
Left = 360
ScaleHeight = 7155
ScaleWidth = 8415
TabIndex = 0
Top = 120
Width = 8475
Label Label2
Alignment = 2 'Center
Caption = "L="
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 204
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
Height = 375
Left = 9000
TabIndex = 3
Top = 1560
Width = 735
Label Label1
Alignment = 2 'Center
Caption = "a="
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 204
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 9000
TabIndex = 2
Top = 480
Width = 735
Текст программы
Private Sub Command1_Click()
a = Val(Text1.Text)
L = Val(Text2.Text)
m = 567
xc = Picture1.Width / 2
yc = Picture1.Height / 2
Picture1.Line (200, yc)-(2 * xc - 200, yc)
Picture1.Line (xc, 200)-(xc, 2 * yc - 200)
For i = -6 To 6
Picture1.Line (xc + i * m, yc - 10)-(xc + i * m, yc + 40)
Picture1.CurrentX = i * m + xc
Picture1.CurrentY = yc + 100
Picture1.Print i
Next i
For j = -6 To 6
Picture1.Line (xc - 50, yc + j * m)-(xc + 50, yc + j * m)
Picture1.CurrentX = 100 + xc
Picture1.CurrentY = yc - j * m
If j <> 0 Then Picture1.Print j
Next j
For t = -100 To 1000 Step 0.01
x = a * (t - l * Sin(t))
y = a * (1 - l * Cos(t))
Picture1.PSet (xc + x * m, yc - y * m)
Next t
End Sub
Private Sub Command2_Click()
Picture1.Cls
End Sub
Полученные результаты
Microsoft Excel
Исходная форма
CommandButton1
CommandButton2
Текст программы:
Private Sub CommandButton1_Click()
a = Cells(1, 6).Value: i = 0
l = Cells(3, 6).Value
For t = -10 To 10 Step 1
x = a * (t - l * Sin(t))
y = a * (1 - l * Cos(t))
i = i + 1
Cells(i, 1).Value = x
Cells(i, 2).Value = y
Next t
End Sub
Private Sub CommandButton2_Click()
For i = 1 To 100
Cells(i, 1).Value = " "
Cells(i, 2).Value = " "
Next i
End Sub
Полученные результаты
Вывод: выполнив данную лабораторную работу мы увидели, что трохоида представляет собой кривую, внешний вид которой зависит от коэффициента