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

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

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

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

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

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

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

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

Задание: 1)Сумму квадратов всех значений элементов матрицы.

2)Номер столбца, в котором расположен максимальный по абсолютной величине элемент матрицы.

3)Число строк матрицы, имеющих элементы больше еденицы.

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 = 0





да

нет







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 "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 = 0

For i = 1 To 5

For j = 1 To 3

If z(1, j) >1 Then q = q +1: Exit For

Next j

Next i

Form1.Print "число строк матрицы , имеющих элементы больше единицы="; q

End Sub

Private Sub Command2_Click()

End

End Sub


Случайные файлы

Файл
157762.rtf
66397.rtf
22578.rtf
56385.rtf
91141.rtf




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