.
, , . , , , .
: , . , , , . , . . -.
- , ( , ..).
:
, 50 IBM, , - ;
- ;
- , ;
- ;
- ;
- 1972 .;
- .
-, .. , , . , , , .
, , , . . :
- , ;
- , , ;
- , , , .
:
- - ;
- , ;
- , , , , , , ;
- , ;
|
|
- , - , , , , ++, Visual Basic, Delphi.
.
, , .
. : , .. . : , , . , , .
() 70- 20 . .
. , , .. . .
. . . . , . . , -, - , .
- . , . - , , .
- Simula 1960- - .
Internet, , , , - . Internet, , , .
, Internet, HTML. (HTML) HTML-, , .
Windows Microsoft Basic Visual Basic. , , . . . VB .
|
|
Visual Basic , , Windows. VB, : -, , , .
Zij :
,
i=1, 2, , 11; j=1, 2, , 11; =3.
.
-
-
1 Xi, Yj.
2 .
3-6 .
3 : .
4 : .
5 .
6 .
7-12 .
7 .
8 : .
9 : .
10 , .
11 .
12 .
13 0.
14 .
15 .
Private Sub Command1_Click()
'
Dim x(11) As Single, y(11) As Single, z(11, 11) As Single, E(11) As Single
Dim a As Single
Dim i As Byte, j As Byte, n As Single
'
Print " X"
For i = 1 To 11
x(i) = Val(InputBox(" x(i)", " X"))
Print x(i);
Next i
Print " Y"
For j = 1 To 11
y(j) = Val(InputBox(" y(j)", " Y"))
Print y(j);
Next j
a = Val(InputBox(" a", " a"))
Print "a ="; a
'
Print " "
For i = 1 To 11
For j = 1 To 11
z(i, j) = (Sin(x(i)) ^ 2 + 2 * a * y(j)) / (Sin((x(i) * y(j)) ^ 3) + (a + 2) ^ (1 / 3))
Print z(i, j);
Next j
Next i
' 92
Print (" ")
For i = 1 To 11
n = 0
For j = 1 To 11
If z(i, j) < 0 Then '
E(i) = E(i) + z(i, j)
n = n + 1
End If
Next j
If n > 0 Then
E(i) = E(i) / n
End If
Print E(i)
Next i
End Sub
,
Private Sub End Sub .
DIM Xi Yj, Zij, Ei i j.
Single ; .
Byte ; .
Val ; , , .
|
|
Print .
InputBox .
For Next .
If Then .
-, , .