Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
16
Добавлен:
03.10.2013
Размер:
227.83 Кб
Скачать

 

 

 

Программирование на VBA

 

 

 

 

 

 

 

 

Пример оформления задания

 

 

 

 

Задание.

 

 

 

Текст программы.

 

 

 

Даны натуральное m и матрица Am×n . Найти

Option Explicit

 

 

 

 

матрицу Сm×n, значение каждого элемента

Sub Example()

 

 

 

 

которой

(cij,

где

i=1,2,…,m,

j=1,2,…,n)

 

Dim m%, n%, A!(), C!(), max!, i%, j%,

определяется по формуле

 

k%, l%

 

 

 

 

 

 

 

m = Range("B2")

 

 

 

 

cij = min akl

, при k i = l j ,

 

 

n = Range("B3")

 

 

 

 

где:

 

 

 

 

 

ReDim A(1 To m, 1 To n)

 

 

 

 

 

 

 

For i = 1 To m: For j = 1 To n

 

k=1,2,…,m;

 

 

 

A(i, j) = Range("B4").Cells(i, j)

l=1,2,…,n;

 

 

 

Next j: Next i

 

 

 

 

 

 

 

ReDim C(1 To m, 1 To n)

 

 

Блок-схема.

 

 

 

 

For i = 1 To m: For j = 1 To n

 

 

 

 

 

max = 0

 

 

 

 

 

Начало

 

 

 

For k = 1 To m: For l = 1 To n

 

 

 

 

_

 

If Abs(k - i) = Abs(l - j) And

 

m, n, Am×n

 

 

 

Abs(A(k, l)) > max _

 

 

 

 

 

 

 

 

 

 

 

 

Then max = Abs(A(k, l))

 

 

i от1 до m, шаг1

 

 

Next l: Next k

 

 

 

 

 

 

C(i, j) = max

 

 

 

 

 

 

 

 

 

Next j: Next i

 

 

 

 

 

j от1 до n, шаг1

 

 

For i = 1 To m: For j = 1 To n

 

 

 

 

Range("B10").Cells(i, j) = C(i, j)

 

 

 

 

 

 

Next j: Next i

 

 

 

 

 

max = 0

cij = max

 

End Sub

 

 

 

 

 

 

k от1 до m, шаг1

 

Пример.

B

C

D

E

F

 

 

 

 

 

 

A

 

l от1 до n, шаг1

 

1

Исходные данные

 

 

 

 

 

 

 

2

m=

3

 

 

 

 

 

 

 

 

 

3

n=

3

 

 

 

 

 

k i

= l j

Нет

 

4

Amxn=

1

2

3

 

 

 

 

5

 

4

5

6

 

 

 

 

и

 

 

 

 

 

akl

 

 

6

 

7

8

9

 

 

 

> max

 

 

7

 

 

 

 

 

 

 

 

 

 

 

8

Ответ

 

 

 

 

 

 

Да

 

 

9

 

 

 

 

 

 

 

 

10

Cmxn=

9

6

7

 

 

 

max = akl

 

 

 

 

 

 

 

11

 

8

9

8

 

 

 

 

 

 

 

12

 

7

8

9

 

 

 

Cm×n

 

 

13

 

 

 

 

 

 

 

 

 

14

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Конец

 

 

 

 

 

 

 

 

 

Задания

1.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n ) определяется по формуле

m

n

cij = ∑∑k =1 l =1

akl

 

(m 1)(n 1)

k i

l j

2. Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

m n

2

cij = ∑∑

akl

i + j

k =1 l =1

kl

3.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

n

m

cij = ail + akj

l =1

k =1

l i

k j

4. Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

m n

cij = ∑∑log35 akl

k =1 l =1 k i l j

5. Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

m n

cij = ∑∑3 akl2 k =i l = j

k j l i

6.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

cij

 

2 a

ij

,

если a

ij

< s

, где s – среднее арифметическое значение всех элементов матрицы A.

=

 

 

 

 

 

aij 1,

если aij

s

 

7.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

cij = si + aij , где si - среднее арифметическое значение всех элементов i-ой строки матрицы A.

8.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

cij = s j aij , где sj - среднее арифметическое значение всех элементов j-ого столбца матрицы A.

9.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

i +1, еслиi < m

j +1,

если j < n

cij = akl , где: k =

1, еслиi = m

; l =

1,

если j = n

 

 

10.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

 

 

2

,

cij

aij

=

aij ,

 

 

 

 

 

 

еслиi и j одновременно четны либо одновременно нечетны в противном случае

11.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

cij

 

2

aij ,

еслиaij

> 0

= log3

 

cos a ,

еслиa

0

 

 

 

ij

ij

 

12.Даны натуральные m, n и матрица Am×n. Найти матрицу С(m+1)×n, значение каждого элемента которой (cij, где i=1,2,…,m+1, j=1,2,…,n) определяется по формуле

 

2

еслиi m

cij =

aij ,

m

 

akj ,

еслиi = m +1

 

k =1

 

13.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

 

 

m

aij2

,

еслиakj < 0

cij =

 

k =1

 

 

в противном случае

sin aij ,

14.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×(n+1), значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n+1) определяется по формуле

 

sin a ,

если j n

cij =

 

ij

 

n

ail ,

если j = n +1

 

l =1

 

 

15.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

sin a

,

еслиa

< 0

 

ij

 

ij

 

cij = cos aij ,

еслиaij

0 и aij <5

 

a

 

еслиa

>5

 

ij

 

ij

 

16.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) равно значению минимального элемента матрицы A с вычеркнутой i- ой строкой и j-ым столбцом:

cij = min akl , где k=1,2,…,m (ki); l=1,2,…,n (lj);

17.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) равно значению максимального элемента матрицы A с вычеркнутой i- ой строкой и j-ым столбцом:

cij = max akl , где k=1,2,…,m (ki); l=1,2,…,n (lj);

18.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

cij = aij +n sin2 ail

l=1 lj

19.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

m

cij = aij cos akj

k =1 k i

20.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

m

cij = aij sin akj

k =1 k i

21.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

cij = pij , где pij – минимальное натуральное число, факториал которого не меньше cij.

22.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

cij = pij , где pij – максимальное натуральное число, квадрат которого не превышает cij.

23.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

cij = pij , где pij – максимальное натуральное число, десятичный логарифм которого не превышает cij.

24.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

 

x(1)

+ x(2)

 

 

 

 

 

 

 

c =

ij

ij

, где

x(1)

и x(2)

– корни квадратного уравнения

a

x2

+ a2

x =1.

 

 

ij

 

2

 

ij

ij

 

ij

ij

ij

ij

 

 

 

 

 

 

 

 

 

 

25.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

cij = kij , где kij – колличество действительных корней квадратного уравнения aij x2 + aij2 x = 2 .

26.Даны натуральное m и матрица Am×m. Найти матрицу Сm×m, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,m) определяется по формуле

 

a

 

 

cij

 

ij

,

еслиi j

 

= a

 

 

 

 

ii

 

еслиi = j

 

0,

 

27.Даны натуральное m и матрица Am×m. Найти матрицу Сm×m, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,m) определяется по формуле

aij

+ a ji ,

еслиi < j

cij = a

a

ji

,

еслиi j

ij

 

 

 

28.Даны натуральное m и матрица Am×m. Найти матрицу Сm×m, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,m) определяется по формуле

 

 

3

a ,

 

еслиi < j

log

2

 

 

 

ij

 

 

cij = ln aii ,

 

еслиi = j

 

a

 

+ a

ji

еслиi > j

 

ij

 

 

29.Даны натуральное m и матрица Am×m. Найти матрицу Сm×m, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,m) определяется по формуле

aij

+cos a ji ,

еслиcos aij < sin a ji

cij = a

+sin a

ji

,

еслиcos a

sin a

ji

ij

 

 

ij

 

30.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

a

+ a

 

, еслиi < m и a

< 0

 

cij = ij

i

+1, j

i +1, j

 

.

cos aij ,

 

в противном случае

 

Условия (i<m) и (ai+1,j<0) нельзя проверять в заголовке одного условного оператора.

31.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

a

a

, если j < n и cos a

> 0

 

cij = ij

i, j+1

i, j+1

 

.

ln aij ,

в противном случае

 

 

Условия (j<n) и (cos ai,j+1>0) нельзя проверять в заголовке одного условного оператора.

32.Даны натуральные m, n и матрица Am×n. Найти матрицу Сm×n, значение каждого элемента которой (cij, где i=1,2,…,m, j=1,2,…,n) определяется по формуле

a

a

, еслиi < m и j < n и a

> 0

 

ij

i +1, j +1

i +1, j +1

 

cij =

 

,

в противном случае

 

a2

 

 

ij

 

 

 

Условия (i<m) и (j<n) и (ai+1,j+1>0) нельзя проверять в заголовке одного условного оператора.

Соседние файлы в папке Задания