02 семестр / Лабораторные работы / РГР и Лабы разных вариантов / РГР все 2 вариант / РГР№7 / РАСЧЕТНО
.docРАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №7
Программирование сложных циклов.
Обработка двумерных массивов.
1 Постановка задачи:
Составить алгоритм и программу для вычисления и вывода на печать в общепринятом виде элементов матрицы Z(I;j) по заданной формуле, а также выполнить предложенные индивидуальные задания.
Исходные массивы X(I) и Y(j) ввести с помощью файла последовательного доступа.
2 Математическая модель
z(i, j) = (x(i) ^ 2 + y(i)) / (x(i) + y(i) ^ 2)
3 Создание формы.
4. Блок-схема
Обознач. Z(I,j)
Открыть файл "data.txt"
Закрыть файл (Close)
z(i,
j) = (x(i) ^ 2 + y(i)) / (x(i) + y(i) ^ 2)
s = 0
s = s +z(I,j)
K=0
k = k + 1
min = z(i, 1)
Min= z(i, j)
4 Программный код.
Private Sub Command1_Click()
Open "data.txt" For Input As #1
For i = 1 To 4
Input #1, x(i)
List1.AddItem Str(x(i))
Next i
For j = 1 To 5
Input #1, y(j)
List2.AddItem Str(y(j))
Next j
Close
For i = 1 To 4
For j = 1 To 5
z(i, j) = (x(i) ^ 2 + y(i)) / (x(i) + y(i) ^ 2)
Print z(i, j),
Next j
Next i
For j = 2 To 5 Step 2
s = 0
For i = 1 To 4
s = s + z(i, j)
Next i
Print s
Next j
k = 0
For i = 1 To 4
For j = 1 To 5
If z(i, j) > 0 Then
k = k + 1
Exit For
End If
Next j
Next i
Print k
For i = 1 To 4
For j = 1 To 5
min = z(i, 1)
If Abs(z(i, j)) < min Then
min = Abs(z(i, j))
End If
Next j
Print min
Next i
End Sub
Private Sub Command2_Click()
End
End Sub