Скачиваний:
47
Добавлен:
27.02.2014
Размер:
185.86 Кб
Скачать

РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №7

Программирование сложных циклов.

Обработка двумерных массивов.

1 Постановка задачи:

Составить алгоритм и программу для вычисления и вывода на печать в общепринятом виде элементов матрицы Z(I;j) по заданной формуле, а также выполнить предложенные индивидуальные задания.

Исходные массивы X(I) и Y(j) ввести с помощью файла последовательного доступа.

2 Математическая модель

z(i, j) = Sqr(Abs(x(i) + y(j))) / x(i) * y(j)

3 Создание формы.

4. Блок-схема

Обознач. Z(I,j)

Открыть файл "data.txt"

Закрыть файл (Close)

z(i, j) = Sqr(Abs(x(i) + y(j))) / x(i) * y(j)

s = 0

s = s + (z(i, j)) ^ 2

max = Abs(z(1, 1)): nm = 1

max = Abs(z(i, j)): nm = j

q = 5

q = q - 1

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

Option Explicit

Dim i As Integer, j As Integer

Dim x(1 To 5) As Single, y(1 To 3) As Single, z(1 To 5, 1 To 3) As Single

Dim s As Single, k As Single

Private Sub Command1_Click()

Open "C:\data.txt" For Input As #1

For i = 1 To 5

Input #1, x(i)

List1.AddItem Str(x(i))

Next i

For j = 1 To 3

Input #1, y(j)

List2.AddItem Str(y(j))

Next j

Close

For i = 1 To 5

For j = 1 To 3

z(i, j) = Sqr(Abs(x(i) + y(j))) / x(i) * y(j)

Print z(i, j),

Next j

Print

Next i

s = 0

For i = 1 To 5

For j = 1 To 3

s = s + (z(i, j)) ^ 2

Next j

Next i

Form1.Print "сумма квадратов всех значений элементов матрицы"; s

Dim max As Single, nm As Byte

max = Abs(z(1, 1)): nm = 1

For i = 1 To 5

For j = 1 To 3

If Abs(z(i, j)) > max Then

max = Abs(z(i, j)): nm = j

End If

Next j

Next i

Form1.Print "номер столбца="; nm

Dim q As Byte

q = 5

For i = 1 To 5

For j = 1 To 3

If z(1, j) < 1 Then

q = q - 1

End If

Next j

Next i

Form1.Print "число строк="; q

End Sub

Private Sub Command2_Click()

End

End Sub

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.

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