Скачиваний:
1
Добавлен:
22.01.2025
Размер:
47.89 Кб
Скачать

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

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

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»

Кафедра «ИНФОРМАЦИОННЫХ И ВЫЧИСЛИТЕЛЬНЫХ СИСТЕМ»

Дисциплина: «Информатика»

ОТЧЕТ

по лабораторной работе 7:

«Заполнение»

Вариант 20

Выполнила студентка

Факультета АСБ А.А. Сидорович

Группы АСБ -405-З подпись дата

/07-405-20-АСБз/

Санкт-Петербург

2025

Лабораторная работа №7

Цель работы: исследование особенностей реализации программного элемента «Заполнение»

  1. Словесное описание.

Пересчитать значения элементов одномерного массива К размерности n по правилу:

Для отладки программы, вектор выбрать самостоятельно.

  1. Математическое описание.

    1. Выбор математической модели

    1. Входные данные: {K}, n

    2. Выходные данные: {K}

  1. Программирование

Private Sub CommandButton1_Click()

Dim K() As Single

Dim j As Integer

Dim n As Integer

n = InputBox("n=")

ReDim K(1 To n)

For j = 1 To n

K(j) = InputBox(" K = ")

Debug.Print K(j);

Next

Debug.Print

Debug.Print

For j = 2 To n

K(j) = K(j) / K(1)

Next

For j = 1 To n

Debug.Print K(j);

Next

Debug.Print

End Sub

  1. Отладочный пример

  1. Словесное описание

Заполнить в памяти ЭВМ матрицу В размерности m * n так, чтобы каждый элемент был равен сумме его индексов: строки и столбца.

Полученную матрицу напечатать. Проанализировать выполнение программы на примере: m = 3; n = 4.

  1. Математическое описание

    1. Выбор математической модели

    1. Входные данные: m, n

    2. Выходные данные: {B}

  1. Программирование Private Sub CommandButton1_Click()

Dim B() As Integer

Dim m As Integer

Dim n As Integer

Dim i As Integer

Dim j As Integer

m = InputBox(" m = ")

n = InputBox(" n = ")

ReDim B(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

B(i, j) = i + j

Next

Next

For i = 1 To m

For j = 1 To n

Debug.Print B(i, j),

Next

Debug.Print

Next

End Sub

  1. Отладочный пример

Соседние файлы в папке ТЕКУЩИЙ КОНТРОЛЬ 1-й семестр (20 Вариант)