Блок-схема Програма

0

Начало Public Sub pr4()

1 Dim a(1 to7, 1 to 8) As Single

Ввод a_ij, Dim i,j As Integer, b As Single

i=1,2,...,7; for i=1 to 7

j=1,2,...,8 for j=1 to 8

2 a(i,j)=Val(InputBox("Введите массив а"))

j=1,8 next j: next i

3 for j=1 to 8

b=a_2j b=a(2,j)

4 for i=1 to 7

i=1,7 a(i,j)=a(i,j)/b

5 next i: next j

a_ij=a_ij/b for i=1 to 7

for j=1 to 8

Debug.Print a(i,j)

6 next j

Вывод a_ij Debug.Print

i=1,2,...,7; next i

j=1,2,...,8 EndSub

Конец

Рекомендована література

1. Інформатика і комп”ютерна техніка. Войтюшенко Н.М., Останець А.І. - Київ, ЦУЛ, 2009.

2. Інформатика: теоретичні основи і практикум. Литвин І.І., Конончук О.М. - Київ, «Новий світ», 2007.

3. Інформатика. Комп’ютерна техніка. Комп’ютерні технології. Баженов В.А., Венгерський П.С., Горлач В.М. та інш. - Київ, «Каравела», 2003.

4. Конспект лекцій з курсу «Інформатика» для бакалаврів 6.051701 денної та заочної форм навчання. О.Д. Гонтар, Н.О. Макоєд, Одеса: ОНАХТ, 2009.