РАСЧЕТНО (РГР и Лабораторные работы разных вариантов)
Описание файла
Файл "РАСЧЕТНО" внутри архива находится в папке "7РГРКА". Документ из архива "РГР и Лабораторные работы разных вариантов", который расположен в категории "". Всё это находится в предмете "информатика" из 2 семестр, которые можно найти в файловом архиве БГАРФ. Не смотря на прямую связь этого архива с БГАРФ, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "РАСЧЕТНО"
Текст из документа "РАСЧЕТНО"
РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №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
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
