Контрольная работа по "Информатике"
Автор: Emomali0997 • Декабрь 31, 2018 • Контрольная работа • 420 Слов (2 Страниц) • 275 Просмотры
Контрольная работа №1
Задача: y=a^x+bx+c x [0.1]
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
k = Val(TextBox4.Text)
h = Val(TextBox5.Text)
For i = 0 To k
x = i * h
Y = a * x ^ 2 + b * x + c
ListBox1.AddItem (x)
ListBox2.AddItem (Y)
Next i
End Sub
[pic 1]
Контрольная работа №2
Задача:
10 | [pic 2] | i(3;5;0.2) | a=1.7;b=2.7;e=2.7 |
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
i = Val(TextBox3.Text)
f = 2.7 ^ (-a * i) - b * 2.7 ^ (-2 * i)
TextBox4.Text = Str(f)
End Sub
[pic 3]
Контрольная работа №3
Задача:
[pic 4] | x<1.2 x=1.2 x>1.2 | xε [1;1.2;2] | a=1.8;b=-0.5 c=3.5 |
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
x = Val(TextBox4.Text)
If x < 0.4 Then f = a * x + b * x ^ 2 - c
If x = 0.4 Then f = a / (x + x + 1)
If x > 0.4 Then f = (a + b * x) / (x + 1)
TextBox5.Text = Str(f)
End Sub
[pic 5]
Контрольная работа №4
Задача:
10 [pic 6]
Private Sub CommandButton1_Click()
a11 = Val(TextBox1.Text)
a12 = Val(TextBox2.Text)
a13 = Val(TextBox3.Text)
a21 = Val(TextBox4.Text)
a22 = Val(TextBox5.Text)
a23 = Val(TextBox6.Text)
a31 = Val(TextBox7.Text)
a32 = Val(TextBox8.Text)
a33 = Val(TextBox9.Text)
b1 = Val(TextBox10.Text)
b2 = Val(TextBox11.Text)
b3 = Val(TextBox12.Text)
det = a11 * a22 * a33 + a12 * a23 * a31 + a13 * a21 * a32 - a13 * a22 * a31 - a12 * a21 * a33 * a11 * a23 * a32
TextBox13.Text = Str(det)
det1 = b1 * a22 * a33 + a12 * a23 * b3 + a13 * b2 * a32 - a13 * a22 * b3 - 12 * b2 * a33 * b1 * a23 * a32
TextBox14.Text = Str(det1)
...