Лабораторная работа №1.

Тема: Решение задач с использованием двумерных массивов.

Задание:Найти отношение максимального элемента на главной диагонали к максимальному элементу на побочной диагонали.

Дан массив х.

Программный код

Блок схема

Max2=(i;j)

Ввод

Ввод

Вывод

Лабораторная работа №2

Тема:СозданиеWindowsприложений

Задание:. Поменять местами k - ю и (k - 2) - ю строки матрицы

Блок схема

Эскиз

Программный код

Dim i, j, n As Integer, x() As Single

Private Sub Command1_Click()

n = Val(InputBox("ввести n", , "n="))

ReDim x(n, n)

For i = 1 To n

For j = 1 To n

x(i, j) = Int(Rnd * 9) - 3

Next

Next

End Sub

Private Sub Command2_Click()

M: k = Val(InputBox("ввести K", , "K="))

If k < 3 Then MsgBox "правильно ввести K": GoTo M

For i = 1 To n

p = x(i, k - 2): x(i, k - 2) = x(i, k)

x(i, k) = p

Next

For i = 1 To n

For j = 1 To n

Text2.Text = Text2.Text + Str(x(i, j)) + " "

Next: Text2.Text = Text2.Text + Chr(13) + Chr(10)

Next

End Sub

Private Sub Command3_Click()

For i = 1 To n

For j = 1 To n

Text1.Text = Text1.Text + Str(x(i, j)) + " "

Next: Text1.Text = Text1.Text + Chr(13) + Chr(10)

Next

End Sub

Работа приложений

Ввод исходных данных

Результат

Лабораторная работа №3

Тема: СозданиеWindowsприложений

Задание: . Определить количество положительных и отрицательных элементов матрицы А(М;N)

Блок схема

Эскиз

Программный код

Dim i, j, n, m As Integer, x() As Single

Private Sub Command1_Click()

S = 0: c = 0

For i = 1 To n

For j = 1 To m

If x(i, j) > 0 Then S = S + 1 Else c = c + 1

Next

Next

Command1.Caption = " Колличество отрицательных" + Str(c) + "Колличество положительных" + Str(S)

End Sub

Private Sub Form_Load()

n = Val(InputBox("ввести n", , "n="))

m = Val(InputBox("ввести m", , "m="))

ReDim x(n, m)

For i = 1 To n

For j = 1 To m

x(i, j) = Int(Rnd * 9) - 3

Next

Next

End Sub

Private Sub Выход_Click()

End ' Закрытие приложения

End Sub

Private Sub Показать_Click()

For i = 1 To n

For j = 1 To m

Text1.Text = Text1.Text + Str(x(i, j))

Next: Text1.Text = Text1.Text + Chr(13) + Chr(10)

Next

End Sub

Работа приложений