Презентация, доклад 2 занятия эл.курса Информационные технологии

мире 400 тыс. вакантных рабочих мест …

Рост заработной платы за последний год – на 13%

Средняя зарплата – 61 тыс. $ в год …

Сегодня в мире 6 млн. программистов:

2 млн. – США
1 млн. – Япония
0.6 млн. – Россия
250 тыс. – Индия (прирост 10-15%)

* Rnd)
Print «Первоначальное количество предметов»; bytN
bytB = MsgBox («Количество предметов» + Str (bytN) + «.» + « Начать игру?», 36, «Игра Баше»)
If bytB = 7 Then End
Do While bytN > 1
bytI = bytI + 1
strX = InputBox («Какое количество предметов Вы забираете?», «Ваш ход!»)
bytN = bytN – Val(StrX)
If bytN = 1 Then MsgBox «После Вашего хода остался 1 предмет. Я проиграл!», , «Игра Баше»: End
For bytK = 0 To 6
Select Case bytN
Case Is = 4*bytK
bytN = bytN – 3
Print «После»; bytI; «хода осталось предметов»; bytN
Case Is = 4*bytK + 1
bytN = bytN – Int (1+2*Rnd)
Print «После»; bytI; «хода осталось предметов»; bytN
Case Is = 4*bytK + 2
bytN = bytN - 1
Print «После»; bytI; «хода осталось предметов»; bytN
Case Is = 4*bytK + 3
bytN = bytN – 2
Print «После»; bytI; «хода осталось предметов»; bytN
End Select
Next bytK
If bytN = 1 Then MsgBox «После моего хода остался 1 предмет. Вы проиграли!», , «Игра Баше»: End
Loop
End Sub

Sub Command2_Click ()
Label1.Caption = Val (Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click ()
Label1.Caption = Val (Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command4_Click ()
Label1.Caption = Val (Text1.Text) / Val(Text2.Text)
End Sub

+

-

*

/