заполнение. Заполнение

• Название: Заполнение
• Дата: 03.06.2022
• Размер: 43 Kb.
• Имя файла: заполнение.doc
• Тип: Отчет; #566593

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Федеральное государственное бюджетное образовательное учреждение

высшего образования

«Петербургский государственный университет путей сообщения

Императора Александра I»

(ФГБОУ ВО ПГУПС)

Факультет «Автоматизация и интеллектуальные технологии»

Кафедра «Информационные и вычислительные системы»
Специальность 23.05.05 «Системы обеспечения движения поездов»

Специализация «Электроснабжение железных дорог»

Отчет по лабораторной работе
по дисциплине

«Информатика»

на тему: «Заполнение»

Форма обучения – очная
Вариант: 14

Выполнил обучающийся Курс 1 Группа	__________________ подпись, дата	фио.
Принял	__________________ подпись, дата

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

1.1 Словесное описание задачи

Пересчитать элементы квадратной матрицы D размерности n, умно­жив каждый из них на расположенный в той же строке первый эле­мент. Проанализировать выполнение программы на примере:


1.2 Описание постановки задачи:

Состав входных и выходных данных

Входные данные:

n – количество строк и столбцов матрицы, целого типа

D=[Dij], i=1,n, j=1,n – матрица, вещественного типа
Выходные данные:

D=[Dij], i=1,n, j=1,n – матрица, вещественного типа

3. 
   Разработка математической модели
   

i=1…n

D_i,j = D_i,j * p

для всех i и j при p=D_i,1
1.4 Составление схемы алгоритма


1.5 Программный код

Private Sub Command1_Click()

Dim D() As Single, n As Integer, i As Integer, j As Integer, p As Single

n = InputBox("n=")

ReDim D(1 To n, 1 To n)

For i = 1 To n

For j = 1 To n

D(i, j) = InputBox("D(" & i & "," & j & ")")

Print D(i, j);

Next

Print

Next

Print

Print

For i = 1 To n

p = D(i, 1)

For j = 1 To n

D(i, j) = D(i, j) * p

Print D(i, j);

Next

Print

Next

End Sub