Visual Basic

САНКТ-ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ  УНИВЕРСИТЕТ

ПУТЕЙ СООБЩЕНИЯ

 

КАФЕДРА «ИНФОРМАТИКА И ИФОРМАЦИОННАЯ  БЕЗОПАСТНОСТЬ»

 

 

 

 

 

ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ ПО ИНФОРМАТИКЕ

 

“Visual Basic”

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

Структура “ Заполнение ”

 

Вариант №17

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Выполнил студент  Овелян Давид

Группы  ЛБ-212

 

 

Проверил:

 

 

 

 

 

 

 

 

1. Описание задачи

Пересчитать вектор N размерности k no правилу:

N_i=N_i+N_i+1, при i < k

 Проанализировать выполнение программы на примере:

N={1; 2; 3; 4; 5; 6; 7; 8}

 

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

k – целое число

N() – вектор вещественных чисел

 

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

N() – преобразованный вектор вещественных чисел

 

Математическая модель:

N_i=N_i+N_i+1, при i < k, i=i+1

 

2. Алгоритмизация

 

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

Private Sub Command1_Click()

Dim k As Integer, i As Integer

Dim N() As Single

k = InputBox("Введите размерность вектора N")

ReDim N(1 To k)

Print "Исходный вектор N"

For i = 1 To k

     N(i) = InputBox("Введите элемент вектора N(" & i & ")=")

     Print N(i) & "  ";

Next i

Print

Print "Преобразованный вектор N"

For i = 1 To k - 1

    N(i) = N(i) + N(i + 1)

Next i

For i = 1 To k

    Print N(i) & "  ";

Next i

End Sub

 

4. Отладка программы

 

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

Пересчитать элементы матрицы К размерности  m*n, разделив  каждый из них на элемент, расположенный в той же строке в  первом столбце.

Проанализировать  выполнение программы на примере:

 

2. Алгоритмизация

 

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

Private Sub Command1_Click()

Dim m As Integer, n As Integer, i As Integer, j As Integer

Dim K() As Single

m = InputBox("Ââåäèòå çíà÷åíèå m - êîëè÷åñòâî ñòðîê")

n = InputBox("Ââåäèòå çíà÷åíèå n - êîëè÷åñòâî ñòîëáöîâ")

 

ReDim K(1 To m, 1 To n)

Print "Èñõîäíàÿ ìàòðèöà  Ê"

For i = 1 To m Step 1

    Print

    For j = 1 To n Step 1

        K(i, j) = InputBox("Ââåäèòå ýëåìåíò ìàòðèöû  Ê(" & i & "," & j & ")")

        Print K(i, j);

    Next

Next

Print

Print "ïåðåñ÷èòàííàÿ ìàòðèöà  Ê"

Dim q As Single

 

For i = 1 To m

q = K(i, 1)

    Print

    For j = 1 To n

        K(i, j) = K(i, j) / q

        Print Format(K(i, j), "0.0") & "   ";

    Next

Next

 

End Sub

4. Отладка программы