1

Вложение: 3719174_LEKCIYA_1_2009_Hoz.ppt

Программа и план истории экономики России.

Вложение: 3718595_Progr_i_plan_ist.doc

18

Вложение: 3710237_alg18it.doc

17

Вложение: 3710236_alg17it.doc

16

Вложение: 3710235_alg16it.doc

15

Вложение: 3710234_alg15it.doc

14

Вложение: 3709435_alg14it.doc

Подготовка к контрольной.
6-7 главы

Вложение: 3709433_Podgotovka_k_kontrolnoy_po_mikroyekonomike_2.doc

С русского на английский в Word.

Option Explicit
Option Base 1
Sub repair()
Dim ruen(168 To 255)
ruen(168) = 126
ruen(173) = 45
ruen(184) = 96
ruen(185) = 35
ruen(192) = 70
ruen(193) = 60
ruen(194) = 68
ruen(195) = 85
ruen(196) = 76
ruen(197) = 84
ruen(198) = 58
ruen(199) = 80
ruen(200) = 66
ruen(201) = 81
ruen(202) = 82
ruen(203) = 75
ruen(204) = 86
ruen(205) = 89
ruen(206) = 74
ruen(207) = 71
ruen(208) = 72
ruen(209) = 67
ruen(210) = 78
ruen(211) = 69
ruen(212) = 65
ruen(213) = 88
ruen(214) = 87
ruen(215) = 88
ruen(216) = 73
ruen(217) = 79
ruen(218) = 125
ruen(219) = 83
ruen(220) = 77
ruen(221) = 34
ruen(222) = 62
ruen(223) = 90
ruen(224) = 102
ruen(225) = 44
ruen(226) = 100
ruen(227) = 117
ruen(228) = 108
ruen(229) = 116
ruen(230) = 59
ruen(231) = 112
ruen(232) = 98
ruen(233) = 113
ruen(234) = 114
ruen(235) = 107
ruen(236) = 118
ruen(237) = 121
ruen(238) = 106
ruen(239) = 103
ruen(240) = 104
ruen(241) = 99
ruen(242) = 110
ruen(243) = 101
ruen(244) = 97
ruen(245) = 91
ruen(246) = 119
ruen(247) = 120
ruen(248) = 105
ruen(249) = 111
ruen(250) = 93
ruen(251) = 115
ruen(252) = 109
ruen(254) = 46
ruen(255) = 122


Dim i As Long
Dim code As Integer
For i = Selection.Characters.Count To 1 Step -1
code = Asc(Selection.Characters(i).Text)
If code >= 168 And code <= 255 Then
Selection.Characters(i).Text = Chr(ruen(code))
End If
Next

End Sub

С русского на английский в Word.
Расчёты в Excel.

Вложение: 3709092_repair.xls

С английского на русский в Word.

Option Explicit
Option Base 1

Sub repair()
Dim enru(32 To 126)
enru(32) = 32
enru(33) = 33
enru(34) = 221
enru(35) = 185
enru(36) = 59
enru(37) = 37
enru(38) = 63
enru(39) = 253
enru(40) = 40
enru(41) = 41
enru(42) = 42
enru(43) = 43
enru(44) = 225
enru(45) = 45
enru(46) = 254
enru(47) = 46
enru(48) = 48
enru(49) = 49
enru(50) = 50
enru(51) = 51
enru(52) = 52
enru(53) = 53
enru(54) = 54
enru(55) = 55
enru(56) = 56
enru(57) = 57
enru(58) = 198
enru(59) = 230
enru(60) = 193
enru(61) = 61
enru(62) = 222
enru(63) = 44
enru(64) = 34
enru(65) = 212
enru(66) = 200
enru(67) = 209
enru(68) = 194
enru(69) = 211
enru(70) = 192
enru(71) = 207
enru(72) = 208
enru(73) = 216
enru(74) = 206
enru(75) = 203
enru(76) = 196
enru(77) = 220
enru(78) = 210
enru(79) = 217
enru(80) = 199
enru(81) = 201
enru(82) = 202
enru(83) = 219
enru(84) = 197
enru(85) = 195
enru(86) = 204
enru(87) = 214
enru(88) = 215
enru(89) = 205
enru(90) = 223
enru(91) = 245
enru(92) = 92
enru(93) = 250
enru(94) = 58
enru(95) = 95
enru(96) = 184
enru(97) = 244
enru(98) = 232
enru(99) = 241
enru(100) = 226
enru(101) = 243
enru(102) = 224
enru(103) = 239
enru(104) = 240
enru(105) = 248
enru(106) = 238
enru(107) = 235
enru(108) = 228
enru(109) = 252
enru(110) = 242
enru(111) = 249
enru(112) = 231
enru(113) = 233
enru(114) = 234
enru(115) = 251
enru(116) = 229
enru(117) = 227
enru(118) = 236
enru(119) = 246
enru(120) = 247
enru(121) = 237
enru(122) = 255
enru(123) = 213
enru(124) = 47
enru(125) = 218
enru(126) = 168

Dim i As Long
Dim code As Integer
For i = Selection.Characters.Count To 1 Step -1
code = Asc(Selection.Characters(i).Text)
If code >= 32 And code <= 126 Then
Selection.Characters(i).Text = Chr(enru(code))
End If
Next
End Sub

Теоремы с доказательствами.

Вложение: 3708710_Podgotovka_k_kollokviumu_po_lineynoy_algebre.doc

Деление многочлена на многочлен.

Option Explicit
Option Base 1

Function divide(r1 As Range, r2 As Range)
Dim a()
Dim b()
Dim r()
Dim i, m, n, k, j

n = 1
For i = 1 To r1.Columns.Count
If r1.Cells(1, i) = 0 Then
n = n + 1
Else
Exit For
End If
Next
ReDim a(r1.Columns.Count - n + 1)
For i = n To r1.Columns.Count
a(i - n + 1) = r1.Cells(1, i)
Next
n = r1.Columns.Count - n + 1
ReDim r(2, n)

m = 1
For i = 1 To r2.Columns.Count
If r2.Cells(1, i) = 0 Then
m = m + 1
Else
Exit For
End If
Next
ReDim b(r2.Columns.Count - m + 1)
For i = m To r2.Columns.Count
b(i - m + 1) = r2.Cells(1, i)
Next
m = r2.Columns.Count - m + 1

i = 1
Do
r(1, i) = a(i) / b(1)
For j = 1 To m
a(i + j - 1) = a(i + j - 1) - b(j) * r(1, i)
Next
i = i + 1
If n - i + 1 < m Then Exit Do
Loop
For i = 1 To n
r(2, i) = a(i)
Next
divide = r
End Function

тест 4 ключ

Вложение: 3707610_Klyuch_test_4.doc

13

Вложение: 3707052_alg13it.doc

12

Вложение: 3707051_alg12it.doc

Африка

Вложение: 3706593_Afrika.doc

Зарубежная Азия

Вложение: 3706351_Zarubezhnaya_Aziya.doc

Латинская Америка

Вложение: 3706349_Latinskaya_Amerika.doc

Западная Европа

Вложение: 3706347_Zapadnaya_Evropa.doc

Подготовка к контрольной.
5 глава

Вложение: 3709340_Podgotovka_k_kontrolnoy_po_mikroyekonomike_1.doc

След матрицы, факториал, определитель матрицы.

Option Explicit
Option Base 1

Function SPUR(r As Range)
Dim i As Long
If r.Columns.Count = r.Rows.Count Then
SPUR = 0
For i = 1 To r.Rows.Count
SPUR = SPUR + r.Cells(i, i)
Next
Else
SPUR = "НЕквадратнаяМатрица!!!"
End If
End Function

Function factor(n As Integer)
If n = 1 Then
factor = 1
Else
factor = n * factor(n - 1)
End If
End Function

Function det(r As Range)
Dim rr() As Double
ReDim rr(r.Rows.Count, r.Columns.Count) As Double
Dim i As Integer
Dim j As Integer

For i = 1 To r.Rows.Count
For j = 1 To r.Columns.Count
rr(i, j) = r.Cells(i, j)
Next
Next
det = det1(rr)
End Function

Function det1(r() As Double)
Dim i As Integer
Dim i1 As Integer
Dim j1 As Integer
Dim jj As Integer
Dim rr() As Double
If UBound(r, 1) = 1 Then
det1 = r(1, 1)
Else
ReDim rr(UBound(r, 1) - 1, UBound(r, 1) - 1) As Double

det1 = 0
For i = 1 To UBound(r, 1)
For i1 = 2 To UBound(r, 1)
jj = 1
For j1 = 1 To UBound(r, 1)
If j1 <> i Then
rr(i1 - 1, jj) = r(i1, j1)
jj = jj + 1
End If
Next
Next
det1 = det1 + r(1, i) * (-1) ^ (1 + i) * det1(rr)
Next
End If
End Function

11

Вложение: 3704658_alg11it.doc

6 новая

Вложение: 3704415_Lekciya_6_2008_studentuy_Germaniya.ppt

9 дополнительная

Вложение: 3703574_alg9nnnit.doc

5 новая

Вложение: 3702220_Lekciya_5_2008_studentuy_Franciya.ppt

4 новая

Вложение: 3702219_LEKCIYA_4.ppt

9

Вложение: 3701160_Lekciya_9_2008_studentuy_YAponiya.ppt

7-8

Вложение: 3701159_Lekciya_7_8_2008_studentuy_SSHA.ppt

6

Вложение: 3701158_Lekciya_6_2008_studentuy_Germaniya.ppt

5

Вложение: 3701157_Lekciya_5_2008_studentuy_Franciya.ppt

4

Вложение: 3701155_Lekciya_4_2008_studentuy_Velikobritaniya.ppt

3

Вложение: 3701154_Lekciya_3_2008_studentuy_Genezis_ruyn_otnosheniy_v_Z.ppt

2
Читать далее...

1

Вложение: 3701146_Lekciya_1_2008_studentuy_YEk_yevolyuciya_drevnih_civilizaciy.ppt

2 ключи

Вложение: 3701142_unit2keys.doc

2

Вложение: 3701141_unit_2.doc

1 ключи

Вложение: 3701139_unit1keys.doc

1

Вложение: 3701137_unit_1.doc

10

Вложение: 3701123_alg10it.doc

9

Вложение: 3701122_alg9it.doc

8

Вложение: 3701120_alg8it.doc

7

Вложение: 3701118_alg7it.doc

6

Вложение: 3701117_alg6it.doc

5

Вложение: 3701115_alg5nit.doc

4

Вложение: 3701113_alg4it.doc

3

Вложение: 3701112_alg3it.doc

2

Вложение: 3701110_alg2it.doc

1

Вложение: 3701109_alg1it.doc

Здесь будут вывешиваться все учебные материалы.