Программный элемент Заполнение

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

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

высшего профессионального  образования

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

 

Кафедра «ИНФОРМАТИКА И  ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»

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

 

 

 

 

ОТЧЕТ

по лабораторной работе № 4

«Программный элемент ЗАПОЛНЕНИЕ »

Вариант 2

 

 

 

 

 

 

 

 

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

факультета УПП

группы ЛБ-113

                                                                                      _____________ М.В.Барская

подпись, дата

  411302 

/номер зачетной  книжки /

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

2011

Задание к лабораторной работе N4

"Программный элемент ЗАПОЛНЕНИЕ"

 

 

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

 

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

Пересчитать элементы вектора А размерности n по правилу:

А_i = B_i*C_i /A_i,      при A_i¹0

где В и С - заданные векторы той  же размерности.

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

 

2. Математическое описание.
1. Математическая модель

А_i = B_i*C_i /A_i,

2. Входные данные: n, {A}, {B}, {C} – вещественного типа

 

3. Выходные данные: {A} – вещественного типа

 

3. Схема алгоритма

 

4. Составление кода программы

 

Private Sub Form_Activate()

Dim A() As Single, B() As Single, C() As Single

n = InputBox("введите n")

ReDim A(1 To n)

ReDim B(1 To n)

ReDim C(1 To n)

For i = 1 To n

A(i) = InputBox("Введите A")

Next

For i = 1 To n

B(i) = InputBox("Введите B")

Next

For i = 1 To n

C(i) = InputBox("Введите C")

Next

For i = 1 To n

A(i) = B(i) * C(i) / A(i)

Print A(i) & ","

Next

End Sub

 

 

 

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

n=3; А={1; 2; 3};  В={4; 5; 6}; С={7; 8; 9};

 

 

 

 

 

Постановка задачи №2

 

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

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

Проанализировать выполнение программы  на примере m=4, n=5..

 

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

 

1. Входные данные: m,n – вещественного типа

 

2. Выходные данные: {L} – вещественного типа

 

3. Схема алгоритма

 

 

 

 

 

3. Составление кода программы

 

Option Base 1

Private Sub Form_Activate()

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

m = InputBox("Введите количество строк")

n = InputBox("Введите количество столбцов")

ReDim a(m, n)

For i = 1 To m

For j = 1 To n

a(i, j) = i

Next

Next

j = n

For i = 1 To m

Print a(i, j)

Next

End Sub