Раздел 1. "Модели и моделирование"

                  F = m * а

Раздел 2. "Теория информации"

а) сбор данных          б) передача данных 
в) фальсификация данных
г) потеря данных        д) интерполяция данных

а) важность      б) полезность
в) дискретность  г) непрерывность
д) актуальность  е) доступность	

Раздел 3. "Кодирование информации"

Я помню чудное мгновенье

Раздел 4. "Состав и устройства ЭВМ"

а) жёсткий диск  б) джойстик
в) мышь          г) регистры
д) привод CD-ROM

Раздел 5. "Программное обеспечение ЭВМ"

Раздел 6. "Языки программирования"

а) инструкции  б) данные      в) модель
г) объект      д) свойство    е) метод обработки
ж) событие     з) класс объектов

1) ADA            2) АССЕМБЛЕР
3) PASCAL         4) LISP
5) МАКРОАССЕМБЛЕР

Раздел 7. "Алгоритмизация и программирование"

а + b *с

Раздел 8. "Базы данных"

а) дополнительным    б) внутренним
в) отчётным          г) запросным
д) простым           е) составным
ж) первичным         з) внешним

а) дополнительным     б) простым
в) включающим         г) составным
д) отчётным           е) первичным
ж) запросным

а) ?-07*  
б) -07
в) ?????7-07
д) *-07

Раздел 9. "Компьютерные сети и Интернет"

http://www.google.com/inf02000/det123.html

адрес сервера - это ...

Раздел 10. "Компьютерная безопасность"

Раздел 11. " MS Office"

	А	В
1	3	2
2	4	3
3		= ОСТАТ (А1+В1; А1)

	А	В
1	3	2
2	4	3
3		=МАКС(А1:В2; А1+В2; А2+А1)

	А	В
1	1	2
2	2	0
3		= СЧЕТ (А1:В1; А2)

Раздел 12. "Примеры реализации алгоритмов и программ"

D[ D[5] ] - D[ D[3] ]

равно ...

D[ D[4] ] - D[ D[5] ]

равно ...

D[ D[3] ] - D[ D[5] ]

равно...

2а^b + 3,456у

правильно расставлены в выражении ...

ВВОД А, В, С, X
Y := (А + С)/В*Х
ВЫВОД Y

Y := X - 1
X := Y + 2
Y := X + Y
ВЫВОД Y

а = 30
b = а/2+1
ЕСЛИ (а < b*2) И (b > 15) ТО
 	а = а + 1
ИНАЧЕ 
 	а = 20 
КОНЕЦ ЕСЛИ
ВЫВОД а

алг "Вычисление значения переменной S" S:=0
НЦ ДЛЯ K:=2 до 6
    S := S + K
КЦ ВЫВОД S

ВВОД X, А, В, С 
     Y := Х^3+В*С+А
ВЫВОД Y

ВВОД N
Р:=1
НЦ для i от 1 до N
   ВВОД а
   ЕСЛИ ...???...        
   ТО Р:=Р*а
   все
КЦ 
ВЫВОД Р

1) ЕСЛИ а<b, ТО с = b - а, ИНАЧЕ с= 2*(а - b)
2) d=0
3) ПОКА с>а выполнить действия d=d+1, c=c-1

алг "Вычисление значения переменной р"
р:=1
i:=3
НЦ ПОКА i<=6
        р := р * i
        i := i + 3
КЦ
ВЫВОД р

b:=10
d:=40
НЦ ПОКА d >= b
   d := d - b
КЦ

Х:=7
Y:=7
Р:= X=Y 
Q:= Y>X
Р:= Р OR Q

a:=3; b:=7
НЦ ПОКА (a/2)<=(b/3)
   a:= a + 2;
   b:= b + 3;
КЦ	

k:=30
ВЫБОР
    ПРИ   div (k, 12) = 2: d:=k;
    ПРИ   mod (k, 12) < 5: d:=2;
    ПРИ   mod (k, 12) > 9: d:=3;
    ИНАЧЕ                  d:=l;
ВСЕ

Раздел 13. "Примеры программ раздела 12 на VBA для Excel"

Sub test_1()
    Dim d(5) As Integer, X As Integer, Y As Integer
    d(1) = 3: d(2) = 4: d(3) = 5: d(4) = 1: d(5) = 2
    X = d(d(5))
    Y = d(d(3))
    MsgBox X & " - " & Y & " = " & X - Y
End Sub

Sub test_2()
    Dim d(5) As Integer, X As Integer, Y As Integer
    d(1) = 4: d(2) = 1: d(3) = 5: d(4) = 3: d(5) = 2
    X = d(d(4))
    Y = d(d(5))
    MsgBox X & " - " & Y & " = " & X - Y
End Sub

Sub test_3()
    Dim d(5) As Integer, X As Integer, Y As Integer
    d(1) = 3: d(2) = 4: d(3) = 5: d(4) = 1: d(5) = 2
    X = d(d(3))
    Y = d(d(5))
    MsgBox X & " - " & Y & " = " & X - Y
End Sub

Sub test_5()
    a = 10: b = 3: C = 14: X = 4
    Y = (a + C) / b * X
    MsgBox Y
End Sub

Sub test_7()
    a = 30
    b = a / 2 + 1
    If (a < b * 2) And (b > 15) Then
        a = a + 1
    Else
        a = 20
    End If
    MsgBox a
End Sub

Sub test_8()
    Rem алг "Вычисление значения переменной S"
    S = 0
    For k = 2 To 6
        S = S + k
    Next k
    MsgBox S
End Sub

Sub test_9()
    X = 3: a = 2048: b = 2047: C = -1
    Y = X ^ 3 + b * C + a
    MsgBox Y
End Sub

Sub test_11()
    a = 8
    b = 3
    If a < b Then C = b - a Else C = 2 * (a - b)
    d = 0
    Do While C > a
        d = d + 1
        C = C - 1
    Loop
    MsgBox "c=" & C & ";   d=" & d
End Sub


Sub test_12()
    P = 1
    i = 3
    Do While i <= 6
        P = P * i
        i = i + 3
    Loop
    MsgBox P
End Sub

Sub test_13()
    b = 10
    d = 40
    Do While d >= b
        d = d - b
    Loop
    MsgBox d
End Sub

Sub test_14()
    Dim X As Integer, Y As Integer
    Dim P As Boolean, Q As Boolean
    X = 7
    Y = 7
    Р = (X = Y)
    Q = (Y > X)
    Р = (Р Or Q)
    MsgBox "P=" & Р & ";   Q=" & Q
End Sub

Sub test_15()
    a = 3
    b = 7
    i = 0
    Do While (a / 2) <= (b / 3)
        a = a + 2
        b = b + 3
        If i > 1000 Then Exit Do Else i = i + 1
    Loop
    MsgBox "i= " & i
End Sub

Sub test_16()
    k = 30
    If (k \ 12) = 2 Then
        d = k
    ElseIf (k Mod 12) < 5 Then
        d = 2
    ElseIf (k Mod 12) > 9 Then
        d = 3
    Else
        d = 1
    End If
    MsgBox d
End Sub