РГР и Лабы разных вариантов (РАСЧЕТНО)

Посмотреть архив целиком

РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №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

Print

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

Print

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












Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.