Автор работы: Пользователь скрыл имя, 29 Декабря 2011 в 18:32, контрольная работа
Написать программу для вывода матрицы
А(i,g)=Ln(i)! - 0,5*g/i
Задание:
Вариант 10
Написать программу для вывода матрицы
А(i,g)=Ln(i)! - 0,5*g/i
Внешний вид формы
Command1
Text1
Label1
Form1
Command2
Picture1
Измененные свойства
Form1
Caption = "Form1"
ClientHeight = 7200
ClientLeft = 120
ClientTop = 450
ClientWidth = 12315
LinkTopic = "Form1"
ScaleHeight = 7200
ScaleWidth = 12315
StartUpPosition = 3 'Windows Default
Command2
Caption = "Выход"
Height = 735
Left = 9240
TabIndex = 103
Top = 2400
Width = 2295
Command1
Caption = "Пуск"
Height = 735
Left = 9240
TabIndex = 102
Top = 1560
Width = 2295
Text1
Height = 615
Left = 9840
TabIndex = 101
Top = 360
Width = 975
Picture1
Height = 615
Index = 99
Left = 7320
ScaleHeight = 555
ScaleWidth = 675
TabIndex = 99
Top = 5880
Width = 735
Picture1
Height = 615
Index = 0
Left = 840
ScaleHeight = 555
ScaleWidth = 675
TabIndex = 0
Top = 480
Width = 735
Label1
Caption = "N="
Height = 495
Left = 9120
TabIndex = 100
Top = 360
Width
= 495
Текст программы
Dim a(10, 10)
Private Sub Command1_Click()
N = Val(Text1.Text)
If N < 2 Then N = 2
If N > 10 Then N = 10
Text1_Text = Str(N)
For k = 0 To 99: Picture1(k).Cls
Next k
p = 1
For i = 1 To N
p = i * p
For g = 1 To N
f = f * k
a(i, g) = Log(p) + 0.5 * g / i
k = (i - 1) * 10 + g - 1
Picture1(k).Print a(i, g)
Next g
Next i
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Полученные
результаты