, .. , , , . .

 

 

!

 

:

:

 

 

 

?

StudentHelp, , MS Word. , , antiplagiat.ru, etxt.ru advego.ru. StudentHelp , Word .


:


:

: . : 05.06.13. : 2013. : 20. antiplagiat.ru: < 30%

():


Π ޠ

Π ɠ
()

Ƞ




: 1



:
:2

:326

:
:

:
..
-
2010


1 3
1.1 򻠠 3
1.2 򻠠 3
1.3 򻠠 3
1.4 򻠠 3
1.5 蠠 3
1.6 򻠠 3
1.7 򻠠 4
2 8
2.1 仠 8
2.2 仠 8
2.3 仠 8
2.4 仠 8
2.5 蠠 8
2.6 8
2.7 仠 10

3 堠
4 ,
, , ⠠ 19
5











1

1.1

.
1.2

.
1.3

, , .
1.4


, ,
.
1.5

    ( ,
).

-300 300.
1.6

.

:
C = 5/9 * (F - 32), (1)
C ;
F .


:
F = C * 9/5 + 32. (2)

1.7

.
,
, ,
: ,
, .
,
-300 +300. (.1)

1

.
.(.2)

2

. . (.3)

3
. .
 1 .



1 - .





Caption

Name
Label1

Caption

Name
Label2

Name
Pult
LargeChange
1
SmallChange
1
Max
300
Min
-300

Name
Faren
Text
-

Name
Cels
Text


Name
Cmd1
Caption


Name
Clear
Caption


Name
CmdExit
Caption



:
Private Sub clear_Click()
Faren.Text = ""
Cels.Text = ""
Faren.SetFocus
End Sub

Private Sub Cmd1_Click()
If Faren.Text = "" Then
Faren.Text = Int((Cels.Text * 5 / 9 + 32) * 100) / 100: GoTo 1
End If
If Cels.Text = "" Then
Cels.Text = Int((Faren.Text - 32) * 5 / 9 * 100) / 100
End If
1: End Sub

Private Sub Pult_Change()
Faren.Text = Pult.Value
Cels.Text = Int((Pult.Value - 32) * 5 / 9 * 100) / 100
End Sub
Private Sub cmdExit_Click()
End
End Sub













2
2.1

: , , , .
2.2

.
2.3

, , .
2.4

, .
2.5

.
2.6

.
:
Dym.Text = Int(Santi.Text / 2.54) (1)
Mili.Text = Int(Santi.Text * 10) (2)
Metr.Text = Int(Santi.Text / 100), (3)
Santi - , ;
Dym - , ;
Mili - , ;
Metr - , .

:
Santi.Text = Int(Dym.Text * 2.54) (4)
Mili.Text = Int(Dym.Text * 10 * 2.54) (5)
Metr.Text = Int(Dym.Text * 2.54 / 100). (6)

:
Santi.Text = Int(Mili.Text / 10) (8)
Dym.Text = Int(Mili.Text / 10 / 2.54) (9)
Metr.Text = Int(Mili.Text / 1000). (10)

:
Santi.Text = Int(Metr.Text * 100) (11)
Dym.Text = Int(Metr.Text * 100 / 2.54) (12)
Mili.Text = Int(Metr.Text * 1000). (13)











2.7
: .: , , , .
() : , , , .
, 仠蠫.
.(.1)
1


, . (.2)

2 , , .

.(.3)

3 .
. .
2 .





Caption

Name
Label1

Caption

Name
Label2

Caption

Name
Label3

Caption

Name
Label4

Name
Pult
Max
-
Min
-
Value
-







Text
-
Name
Santi

Text
-
Name
Dym

Text
-
Name
Mili

Text
-
Name
Metr

Caption

Name
Cmd1

Caption

Name
Clear

Caption

Name
cmdExit

2. .

:


Private Sub Cmd1_Click()
If Dym.Text = "" And Mili.Text = "" And Metr.Text = "" Then
Dym.Text = Int(Santi.Text / 2.54)
Mili.Text = Int(Santi.Text * 10)
Metr.Text = Int(Santi.Text / 100)
: GoTo 1
End If
If Santi.Text = "" And Dym.Text = "" And Metr.Text = "" Then
Santi.Text = Int(Mili.Text / 10)
Dym.Text = Int(Mili.Text / 10 / 2.54)
Metr.Text = Int(Mili.Text / 1000)
: GoTo 1
End If
If Santi.Text = "" And Dym.Text = "" And Mili.Text = "" Then
Santi.Text = Int(Metr.Text * 100)
Dym.Text = Int(Metr.Text * 100 / 2.54)
Mili.Text = Int(Metr.Text * 1000)
: GoTo 1
End If
If Santi.Text = "" And Mili.Text = "" And Metr.Text = "" Then
Santi.Text = Int(Dym.Text * 2.54)
Mili.Text = Int(Dym.Text * 10 * 2.54)
Metr.Text = Int(Dym.Text * 2.54 / 100)
: GoTo 1
End If
1: End Sub


Private Sub clear_Click()
Santi.Text = ""
Dym.Text = ""
Mili.Text = ""
Metr.Text = ""
Santi.SetFocus
End Sub



Private Sub Pult_Change()
Santi.Text = Pult.Value
Dym.Text = Pult.Value
Mili.Text = Pult.Value
Metr.Text = Pult.Value
Dym.Text = Int(Pult.Value / 2.54)
Mili.Text = Int(Pult.Value * 10)
Metr.Text = Int(Pult.Value / 100)
End Sub
Private Sub cmdExit_Click()
End
End Sub






























3
3.1

: , , , .
3.2

.
3.3

, .
3.4

, .
3.5

.
3.6

.
:
Text2.Text = Int(Text1.Text * 2.2) (1)
Text3.Text = Int(Text1.Text * 1000) (2)
Text4.Text = Int(Text1.Text * 1000000) (3)
Text1- , ;
Text2- , ;
Text3- , ;
Text4- , .

3.7

: .
() : , , , .
蠫.
.(.1)



1 .


, 仠 .(.2)

2 , , .

. (.3)


3 .

3 .











..................







90% antiplagiat.ru, etxt.ru advego.ru




* . , .