02 семестр / Лабораторные работы / РГР и Лабы разных вариантов / РГР №6,7 1 вариант / 7 / РАСЧЕТНО
.docРАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №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
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