1. Представление чисел в компьютере.

2. Способы описания алгоритмов.

3. Укажите ответ, который получится в результате работы фрагмента программы, если исходная матрица имеет вид:

1 2 3 4 5 6 7 8 9 10

2 4 6 8 10 12 14 16 18 20

А= 3 6 9 12 15 18 21 24 27 30

4 8 12 16 20 24 28 32 36 40

5 10 15 20 25 30 35 40 45 50

Option Base 1

Sub Exampl()

Dim i As Integer, j As Integer N As Integer, M As Integer

Dim c As Integer, d As Integer A As Integer

Dim St As Integer, Se As A Integer

M=5: N=10

ReDim A(M,N)

Call ImpArr (A, M, N) ‘ Загрузка матрицы А

C=10: d=25

Call Ex (A, M, N, c,d) ‘ Расчет

End Sub

Public Sub Ex (a() As As Integer m As Integer, n As Integer, c As Integer, d As Integer)

Dim St As Integer, Se As A Integer

St=0: Se=0

For j = 1 To m step 1

For i = 1 To n step 3

If a(j,i) >c and a (j,i)<d Then St = St + 1 Else Se = Se + 1

Next i

Next j

MsgBox "St=" & St & vbCrLf & "Se=" & Se

End Sub

St = ……; Se = ….

Зав. кафедрой ____________________________ Ивушкина Е.Б. ________________

Подпись Дата

АКТУАЛЬНО НА

20__/20__ уч.год __________ _____________ 20__/20__ уч.год __________ _____________

Подпись Дата Подпись Дата

20__/20__ уч.год __________ _____________ 20__/20__ уч.год __________ _____________

Подпись Дата Подпись Дата

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

ИНСТИТУТ СФЕРЫ ОБСЛУЖИВАНИЯ И ПРЕДПРИНИМАТЕЛЬСТВА (ФИЛИАЛ)

ФЕДЕРАЛЬНОГО ГОСУДАРСТВЕННОГО БЮДЖЕТНОГО ОБРАЗОВАТЕЛЬНОГО УЧРЕЖДЕНИЯ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ «ДОНСКОЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ»

В Г.ШАХТЫ РОСТОВСКОЙ ОБЛАСТИ

(ИСО и П (ФИЛИАЛ) ДГТУ)

Факультет Сервиса и экономики

Кафедра: Информатика

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № 15

Дисциплина «Информатика» Направление 080100 Экономика

1. Логические основы компьютера.

2. Понятие алгоритма и способы его описания. Свойства алгоритма.

3. Укажите результат выполнения программы:

Option Base 1

Sub Exampl()

Dim i As Integer, N As Integer, a As Integer

Dim St As Integer, Se As Integer, x As Variant

X = Array( -4, 1 8, -2, 0, 3, 0, -9, -1, 2, 6, -1, 7, -10, -7, 3, 1 )

N = UBound(X, 1)

St=0: Se=0: a = 0

For i = 1 To N

If x(i) >a Then St = St + i Else Se = Se + x(i)

Next i

MsgBox "St=" & St & vbCrLf & "Se=" & Se

End Sub

Зав. кафедрой ____________________________ Ивушкина Е.Б. ________________

Подпись Дата

АКТУАЛЬНО НА

20__/20__ уч.год __________ _____________ 20__/20__ уч.год __________ _____________

Подпись Дата Подпись Дата

20__/20__ уч.год __________ _____________ 20__/20__ уч.год __________ _____________

Подпись Дата Подпись Дата