Лабораторные по Информатике / Лабораторная работа Накопление 4 / Вариант 20

Министерство путей сообщения российской федерации

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

Путей сообщения

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

ОТЧЕТ

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

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

Программный элемент «Накопление»

/Вариант 20/

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

строительного факультета

группы С-403

Пожаров А.А.

/340320/

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

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

2004

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

Цель работы: исследование особенностей реализации программного элемента «НАКОПЛЕНИЕ»

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

Вычислить среднее арифметическое элементов с нечетными индексами одномерного массива Х размерности L. Проанализировать выполнение программы на примере:

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

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

2. Входные данные: {X}, L

3. Выходные данные: S

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

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

Private Sub Command1_Click()

Dim X() As Single

Dim L As Integer

Dim i As Integer

Dim k As Integer

Dim n As Integer

Dim S1 As Single

Dim S As Single

L = InputBox("BBEDITE L")

ReDim X(1 To L)

For i = 1 To L

X(i) = InputBox("BBEDITE X")

Next

S1 = 0

n = 0

For i = 1 To L Step 2

S1 = S1 + X(i)

n = n + 1

Next

S = S1 / n

Print "S=" & S

End Sub

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

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

Вычислить произведение элементов на главной диагонали квадратной матрицы В размерности N. Для отладки программы контрольный вариант выбрать самостоятельно.

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

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

,

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

3. Выходные данные: P

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

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

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim n As Integer

Dim B() As Single

Dim P As Single

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

ReDim B(1 To n, 1 To n)

For i = 1 To n

For j = 1 To n

B(i, j) = InputBox("Введите массив")

Next

Next

P = 1

For i = 1 To n

j = i

P = P * B(i, j)

Next

B(n, n) = P

MsgBox ("P=" & P)

End Sub

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