, , , . , (, , ).
.
, (, , .), , . , ( Microsoft, MSN).
.
1969 ARPAnet, . : , . . ARPAnet InternettingProject (" "). . -, internet ( i). -, . . " " Internet ( - ).
, , ( , . .) .
, , .
, , , ( ).
: , , .
, , .
.
19
1) . , .
Sub Main()
Dim a(,) As Single = {{2, 3, -5, 7}, {21, 4, -7, 9}, {32, 54, -2, 5}, {1, 23, -6, 78}}
Dim N, M, s, p As Single
|
|
N = a.GetUpperBound(0)
Console.WriteLine("N={0}", N + 1)
M = a.GetUpperBound(0)
Console.WriteLine("M={0}", M + 1)
s = 0
p = 1
For i = 0 To N
For j = 0 To M
If a(i, j) < 0 Then
p = p * a(i, j)
Else
s = s + a(i, j)
End If
Next j
Next i
Console.WriteLine("s={0},p={1}", s, p)
Console.ReadLine()
End Sub
3) , ,
. . , , . , , . : 1969- . , 1971 . , 1972 , 1973 , 1984 , 1988 , 1989 , 1990- , 1991 , 1995 .
1997 10 , 2010 .
25
1) 1,2,3,.......n. , 4.
Sub Main()
Dim A() As Single = {1, 98, 2, 85, -4, 67, 8, 3}
Dim N, sum As Single
N = A.GetUpperBound(0)
Console.WriteLine("N={0}", N + 1)
sum = 0
For i = 0 To N
If A(i) < 4 Then
sum = sum + A(i)
End If
Next i
Console.WriteLine("sum={0}", sum)
Console.ReadLine()
End Sub
3) . 256 . .
. , , .
, , . ASCII (American Standard Code for Information Interchange ).
:
1) Windows-1251 Microsoft; () ;
2) -8 ( , ) , ;
3) ISO (International Standard Organization ) . .
|
|
(256) . 8- , , . 16- UNICODE. 65 536 , .
, - , UNICODE . 1990- . , UNICODE.
:
;
.
:
( ) ;
;
.
, .
. :
( ) , , , ;
(), . , , ;
( RAM) , . , , . , ;
- , . , , . , -.
( ROM) , . - , ( ) . :
F ;
F ;
F -, ;
, . - . :
Ø , , ;
Ø . , ;
Ø . , (Notebook);
Ø ( ) , . ( ), ( ) ( ).
Ø , , .
Ø ;
Ø () , ;
Ø , . - , , , .
Ø - (CD-ROM) , -.
Ø ;
Ø () () , 2 . , .
Ø ( RISO Cagaku, ), , .
Ø ( ) .
Ø - , , , .
Ø ( ) . , .
Ø , . ( ) , . .
|
|
9
1) 1,2,3,.......n. .
Sub Main()
Dim A() As Single = {1, 98, 2, 85, -4, 67, 8, 3}
Dim N, sum As Single
N = A.GetUpperBound(0)
Console.WriteLine("N={0}", N + 1)
sum = 0
For i = 0 To N
If (i Mod 2) = 1 Then
sum = sum + A(i)
End If
Next i
Console.WriteLine("sum={0}", sum)
Console.ReadLine()
End Sub
3) .
- ( ). .
:
- . .
\ | |||
, - | Notepad ( MS Windows),TextPad | ||
( , , , .) , | MS Word, WordPad (MS Windows) | ||
MS Excel | |||
: | |||
- | MS Paint (MS Windows), Adobe Photoshop | ||
- | CorelDRAW, Adobe Illustrator | ||
"" | |||
5.1 | "" | CDSee, FastStone Image Viewer, FastPictureViewer | |
5.2 | ""HTML- (, -) | - | MS Internet Explorer, Mozila Firefox, Google Chrome, Opera, Safari |
5.3 | "" (, ): | ||
- | AIMP, Foobar2000, Spider player,MusicBee, Media Monkey | ||
-- | - | Windows Media Player (WMP, MS Windows), QuickTime Player(Mac OS X), Winamp, VLC media player, Media Player Classic | |
5.4 | ""flash- (Flash-) | -, - | Adobe Flash Player |
5.5 | ""pdf- | pdf- | Adobe Reader |
() (-) | MS Access, Paradox | ||
3D-," . " | |||
- | ABBYY Lingvo, | ||
- |
() - (, , )
|
|
\ | ||||
, , , ( ) | , , , | QuarkXPress, Adobe InDesign, Adobe FrameMaker, Corel Ventura, MS Publisher | ||
, , , | , , , | " . ", " -", " ", " " | ||
(CAT-) | Trados, Deja Vu, Star Transit | |||
(-) | mySQL, MS SQL Server, Sybase Adaptive Server Enteprise, Oracle Database | |||
(3D) | 3D | Autodesk 3ds Max(3D Studio MAX), Autodesk Maya, Blender, Cinema 4D, ZBrush | ||
( ): | ||||
- | , | Adobe Premiere Pro, Grass Valley Ediu, Sony Vegas Pro | ||
-"" | "" | Windows Movie Maker (MS Windows), Corel VideoStudio Pro, Pinnacle Studio | ||
( ) | ||||
- | , , , , | , , | Adobe Audition, Steinberg WaveLab, Sony Sound Forge. Audacity | |
-"" | , . | CyberPower Audio Editing Lab, Akram Audio Editor | ||
, | , , , ; , , | Finale, Encore, Cakewalk Overture, Sibelius,MuseScore | ||
( -) | , , , , | :MYCIN; :ACES; :ACE; : CODES, : DENDRAL; :PROSPECTOR : | ||
(, CAD/CAM/CAE) | , , 3D-, | -, | , AutoCAD, ZwCAD, nanoCAD , BtoCAD, BASE | |
(): | ||||
- | , , : , , , , , ,, | -, - , -, , , , | MapInfo, CREDO_DAT, ArcGIS, Arcview, GeoServer, GRASS, gvSIG, , , , | |
-- | - , , , | 2 | ||
: | ||||
- | : (), (), ( ) | (, ) | , LanDocs, , - | |
- | 1: | |||
- | - ( , ) | , Audit Expert, ʖ , , MS Office Excel "Excel Financial Anal |
20
|
|
1) N*M. .
Sub Main()
Dim A(,) As Single = {{3, 4, 5, 2}, {43, 5, 1, 2}, {3, 7, 4, 6}, {3, 8, 2, 8}}
Dim N, M, p As Single
N = A.GetUpperBound(0)
Console.WriteLine("N={0}", N + 1)
M = A.GetUpperBound(0)
Console.WriteLine("M={0}", M + 1)
Dim B(N) As Single
Dim sr As String
sr = ""
For i = 0 To N
p = 1
For j = 0 To M
p = p * A(i, j)
Next j
B(i) = p
sr = sr + "," + CStr(B(i))
Next i
Console.WriteLine("sr={0}", sr)
Console.ReadLine()
End Sub
3) - VB( )
24
1) .
Sub Main()
Dim A(,) As Single = {{3, 4, 5, 2}, {43, 5, 1, 2}, {3, 7, 4, 6}, {3, 8, 2, 8}}
Dim N, M, s, max As Single
Dim sr As Integer
N = A.GetUpperBound(0)
Console.WriteLine("N={0}", N + 1)
M = A.GetUpperBound(0)
Console.WriteLine("M={0}", M + 1)
max = 0
sr = 0
For i = 0 To N
s = 0
For j = 0 To M
s = s + A(i, j)
Next j
If (i = 0) Then
max = s
Else
If s > max Then
max = s
sr = i
End If
End If
Next i
Console.WriteLine("sr={0},max={1}", sr + 1, max)
Console.ReadLine()
End Sub
11
1) 4*4. .
Sub Main()
Dim A(,) As Single = {{3, 4, 5, 2}, {43, 5, 1, 2}, {3, 7, 4, 6}, {3, 8, 2, 8}}
Dim N, M, s As Single
Dim sr As Integer
N = A.GetUpperBound(0)
Console.WriteLine("N={0}", N + 1)
M = A.GetUpperBound(0)
Console.WriteLine("M={0}", M + 1)
s = 0
For i = 0 To N
For j = 0 To M
s = s + A(i, j)
Next j
Next i
Console.WriteLine("s={0}", s)
Console.ReadLine()
End Sub
3) . . .
, . , .
( C Java) , . , . /. , , . .
. , Java, , , Java. , , , .
. , .
. . , , . , - , .
, , .
:
, , . , .
, .
.
, .
4
1) 0.001
Sub Main()
Dim N As Single
N = Val(Console.ReadLine())
Dim a(N), sum, okr As Double
sum = 0
For i = 1 To N
a(i) = (-1) ^ (i + 1) / (i * (i + 1))
sum = a(i)
okr = Math.Round(sum, 3)
Next i
Console.WriteLine("sum={0}, okr={1}", sum, okr)
Console.ReadLine()
End Sub
2) ()=sin^2(x)+tg(x^2)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y As Single
x = Val(TextBox1.Text)
y = (Math.Sin(x)) ^ 2 + (Math.Tan(x)) ^ 2
TextBox2.Text = CStr(y)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
14
1) Dim i, n, s As Single
n = Val(Console.ReadLine())
Dim A(n) As Double
For i = 1 To n
A(i) = Val(Console.ReadLine())
Next i
s = 0
For i = 1 To n
If A(i) Mod 3 = 0 Then
s = s + A(i)
End If
Next i
Console.WriteLine("s={0}", s)
Console.ReadLine()
21
1) Dim I, J, M, N, k As Integer
Console.Write(" =")
M = Val(Console.ReadLine())
Console.Write(" N=")
N = Val(Console.ReadLine())
Dim a(M, N), max, s(M), Sum As Single
Console.WriteLine(" ")
For I = 1 To M
For J = 1 To N
Console.Write("A({0},{1})=", I, J)
a(I, J) = Val(Console.ReadLine())
Next J
Next I
For I = 1 To M
Sum = 0
For J = 1 To N
Sum = Sum + a(I, J)
Next J
s(I) = Sum
Next I
max = s(1): k = 1
For I = 1 To M
If s(I) > max Then
max = s(I)
k = I
End If
Next
Console.WriteLine(" {0}", k)
Console.ReadLine()
8
8 2
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a, s1, s2, s3 As Single
a = Val(TextBox1.Text)
s1 = a ^ 2
s2 = a ^ 3
s3 = 6 * a ^ 2
TextBox2.Text = CStr(s1)
TextBox3.Text = CStr(s2)
TextBox4.Text = CStr(s3)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End
End Sub
16
Sub Main()
Dim i, j As Integer
Dim min, y, max As Double
Dim A(6, 9) As Integer
For i = 1 To 6
For j = 1 To 9
A(i, j) = Val(Console.ReadLine())
Next j
Next i
max = A(1, 1)
min = A(1, 1)
For i = 1 To 6
For j = 1 To 9
If j = 6 Then
If A(i, j) > max Then
max = A(i, j)
End If
End If
Next j
Next i
For i = 1 To 6
If i = 3 Then
For j = 1 To 9
If A(i, j) < min Then
min = A(i, j)
End If
Next j
End If
Next i
y = (max + min) / 2
Console.WriteLine("y={0}", y)
Console.ReadLine()
End Sub
22
Sub Main()
Dim i1, i, j As Integer
Dim S, max As Double
Dim A(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
A(i, j) = Val(Console.ReadLine())
Next j
Next i
i1 = 1
max = A(1, 1)
For i = 1 To 4
For j = 1 To 4
If A(i, j) > max Then
max = A(i, j)
i1 = i
End If
Next j
Next i
Console.WriteLine("max={0}, i1 ={1}", max, i1)
For i = 1 To 4
If i = i1 Then
For j = 1 To 4
S = S + A(i, j)
Next j
End If
Next i
Console.WriteLine("S={0}", S)
Console.ReadLine()
End Sub
5
1) Sub Main()
Dim i, n As Integer
Console.WriteLine(" n:")
n = Val(Console.ReadLine())
Dim a(n), s As Single
s = 0
For i = 1 To n
Console.WriteLine("({0})=", i)
a(i) = Val(Console.ReadLine())
Next i
For i = 1 To n
If a(i) > 7 Then
s = s + a(i)
End If
Next i
Console.WriteLine(" , 7={0}", s)
Console.ReadLine()
End Sub
2) Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim a, b, h, v As Single
h = Val(TextBox1.Text)
a = Val(TextBox2.Text)
b = Val(TextBox3.Text)
v = a * b * h
If a < 0 Then
TextBox4.Text = CStr(" . ")
Else
If b < 0 Then
TextBox4.Text = CStr(" . ")
Else
If h < 0 Then
TextBox4.Text = CStr(" . ")
Else
TextBox4.Text = CStr(v)
End If
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
End
End Sub
Sub Main()
Dim I, J, M, N, k As Integer
Console.Write(" =")
M = Val(Console.ReadLine())
Console.Write(" N=")
N = Val(Console.ReadLine())
Dim a(M, N), min, s(M), Sum As Single
Console.WriteLine(" ")
For I = 1 To M
For J = 1 To N
Console.Write("A({0},{1})=", I, J)
a(I, J) = Val(Console.ReadLine())
Next J
Next I
For I = 1 To M
Sum = 0
For J = 1 To N
Sum = Sum + a(I, J)
Next J
s(I) = Sum
Next I
min = s(1): k = 1
For I = 1 To M
If s(I) < min Then
min = s(I)
k = I
End If
Next
Console.WriteLine(" {0}", k)
Console.ReadLine()
End Sub
)
80- . . inform matics .... , . , Computer Science .
, , . ,
, .. , , . (.. , , , ) .
, , :
, :
();
, , ;
.
, , . , , , . .
, , , , ..
:
(, , , , , ..) , ( );
(, );
;
, .. .
, , , , . () . :
;
;
, ;
, ;
, .
( , , ) , , , , . () .
:
;
, ,
().
2) . . .
, , . : - -. , , , , , .
, , , , , . informatio, , , . , , :
1. , , , - . , - , - ..;
2. , ( , () , );
3. , , , , .. , , ;
4. , , , , .
.
, ( ).
:
1. ( ) ;
2. ;
3. . , ;
4. , ;
5. () ;
6. , ;
7. , .
, "" , - . , , , .
:
1. ;
2. ;
3. ;
4. ;
5. .
. ( ). .
( ) .. , .. , . , .
. , , , , .. .
. , . , . , .
. (), .
, . .
:
- (, ..);
- : (), (,) ..;
- : , ..
: , , , ..
- . , . .
, .
- , .
, , , .
, , .
, - . :
(, ..);
(, , . .);
(, , ).
, .
, , , . .
, - , , - .
:
( : , : ) , .
. , , ( ), . , ( ) , , , , , (. ), .
3)
, .
, - (). , . .
- . , . . , , , , , .
50- . . , , , .
, ENIAC 30 , 18 150 .
. , . , , , . 1949 , . .
60- . , , . . () : , .
: , , . , , , .
1959 . , , . . .
, , .
().
60- , IBM IBM-360. IBM-370.
70- ( ) IBM 360/370. . .
(), .
1971 Intel . .
, , . - , : -.
- . (). : . 1976 Apple-1, 1977 Apple-2.
1980 IBM. . IBM PC (Personal Computer). .
, . .
. , , , . - , . , , :
1- : 1946 . .
2- : 60- . .
3- : 70- . ().
4- : 1971 . (). () ().
, . , . 5- , .
IBM , , . 1981 . . .
7)
:
1) , .. , . , .
2) , .. . , , , ( ). .
, , ().
- , . |
. , .. , . , , . : 800 600 1024 768 1280 1024 |
: , . RGB- (Red, Green, lu). . |
, . , , . 8, 16, 24 32 .
, , , : N = 2i, i - :
.
(I) | (N) |
28 = 256 | |
16(ighlr) | 216 = 65536 |
24 (ru lr) | 224= 16777216 |
32 (ru lr) | 232 = 4 294 967 296 |
, ( ) .