Литература
http://www.hi-edu.ru/e-books/xbook119/01/part-010.htm
http://ru.wikipedia.org/wiki/Электронная_книга_(документ)
http://www.obrazovanie-saratov.ru/index.php/sozdanie-elekknig/562-04-spetsialnye-tekhnicheskie-sredstva-dlya-chteniya-elektronnykh-knig
http://ru.wikipedia.org/wiki/IPad_3
http://knowledge.allbest.ru/programming/2c0a65625a2ac68a4c43b89421306d36_1.html
http://ru.wikipedia.org/wiki/Asus_Eee_Pad_Transformer_Prime
Горюнова М.А., Горюхова Т.В., Кондратьева И.Н., Рубашкин Д.Д. Электронные образовательные издания. Учебно-методическое пособие. СПб.: ЛОИРО, 2003.
Анищенко Ю. WWW-редактор: больше, чем просто HTML. // Подводная лодка. 2002. №4. C.84-90
Агеев В.Н. Электронная книга: Новое средство соц. коммуникации. М.: 1997.
Гречихин А.А., Древс Ю.Г. Вузовская учебная книга: Типология, стандартизация, компьютеризация. М.: Логос, 2000.
Субботин М.М. Новая информационная технология: Создание и обработка гипертекстов. М., 1992
Нуччи Д. Могут ли электронные киги заменить издания на бумаге? // ComputerWorld, 2001. №39.
Практическая работа
1. Ввести массив A(N). Найти минимальный элемент массива среди кратных трем и заполнить его значением минимального элемента среди кратных двум. Вывести на печать исходный и преобразованный массивы.
Private Sub CommandButton1_Click()
Dim a(10)
Dim min2 As Integer
Dim min3 As Integer
Dim k As Integer
Dim x As Integer
Dim n As Integer
a(1) = TextBox1.Text
a(2) = TextBox2.Text
a(3) = TextBox3.Text
a(4) = TextBox4.Text
a(5) = TextBox5.Text
a(6) = TextBox6.Text
a(7) = TextBox7.Text
a(8) = TextBox8.Text
a(9) = TextBox9.Text
a(10) = TextBox10.Text
min2 = 100
For i = 1 To 10
If i Mod 2 = 0 And a(i) < min2 Then
min2 = a(i)
k = i
End If
Next i
min3 = 100
For i = 1 To 10
If i Mod 3 = 0 And a(i) < min3 Then
min3 = a(i)
n = i
End If
Next i
x = a(k)
a(k) = a(n)
a(n) = x
For i = 1 To 10
mas = mas & a(i) & Chr(9)
Next i
Label7.Caption = min2
Label8.Caption = min3
Label10.Caption = mas
End Sub
2. Ввести массив А(N, N). Найти сумму элементов двух главных диагоналей.
Private Sub CommandButton1_Click()
Dim a(5, 5)
Dim s1 As Integer
Dim s2 As Integer
Dim s As Integer
a(1, 1) = TextBox1.Text
a(1, 2) = TextBox2.Text
a(1, 3) = TextBox3.Text
a(1, 4) = TextBox4.Text
a(1, 5) = TextBox5.Text
a(2, 1) = TextBox6.Text
a(2, 2) = TextBox7.Text
a(2, 3) = TextBox8.Text
a(2, 4) = TextBox9.Text
a(2, 5) = TextBox10.Text
a(3, 1) = TextBox11.Text
a(3, 2) = TextBox12.Text
a(3, 3) = TextBox13.Text
a(3, 4) = TextBox14.Text
a(3, 5) = TextBox15.Text
a(4, 1) = TextBox16.Text
a(4, 2) = TextBox17.Text
a(4, 3) = TextBox18.Text
a(4, 4) = TextBox19.Text
a(4, 5) = TextBox20.Text
a(5, 1) = TextBox21.Text
a(5, 2) = TextBox22.Text
a(5, 3) = TextBox23.Text
a(5, 4) = TextBox24.Text
a(5, 5) = TextBox25.Text
s1 = 0
For i = 1 To 5
s1 = s1 + a(i, i)
Next i
s2 = 0
For i = 1 To 5
s2 = s2 + a(6 - i, i)
Next i
s = s1 + s2 - a(3, 3)
Label4.Caption = s
End Sub
3. Ввести матрицу A(N,M). Прономеровать ее по минимальному элементу, т.е. разделить каждый элемент матрицы на минимальный. Указать координаты (N строки и столбца) минимального элемента.
Private Sub CommandButton1_Click()
Dim a(5, 5)
Dim nj As Integer
Dim ni As Integer
a(1, 1) = TextBox1.Text
a(1, 2) = TextBox2.Text
a(1, 3) = TextBox3.Text
a(1, 4) = TextBox4.Text
a(1, 5) = TextBox5.Text
a(2, 1) = TextBox6.Text
a(2, 2) = TextBox7.Text
a(2, 3) = TextBox8.Text
a(2, 4) = TextBox9.Text
a(2, 5) = TextBox10.Text
a(3, 1) = TextBox11.Text
a(3, 2) = TextBox12.Text
a(3, 3) = TextBox13.Text
a(3, 4) = TextBox14.Text
a(3, 5) = TextBox15.Text
a(4, 1) = TextBox16.Text
a(4, 2) = TextBox17.Text
a(4, 3) = TextBox18.Text
a(4, 4) = TextBox19.Text
a(4, 5) = TextBox20.Text
a(5, 1) = TextBox21.Text
a(5, 2) = TextBox22.Text
a(5, 3) = TextBox23.Text
a(5, 4) = TextBox24.Text
a(5, 5) = TextBox25.Text
Min = a(1, 1)
ni = 1: nj = 1
For i = 1 To 5
For j = 1 To 5
If a(i, j) < Min Then Min = a(i, j): nj = j: ni = i
Next j
Next i
For i = 1 To 5
For j = 1 To 5
a(i, j) = a(i, j) / Min
mas = mas & a(i, j) & Chr(9)
Next j
mas = mas & Chr(13)
Next i
Label5.Caption = ni
Label6.Caption = nj
Label7.Caption = Min
Label8.Caption = mas
End Sub
