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

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

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

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

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

ОТЧЕТ

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

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

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

/Вариант 08/

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

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

группы С-403

Кирсенко А.Н.

/340308/

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

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

2004

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

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

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

Найти произведение модулей элементов с нечетными индексами одномерного массива К1 размерности N. Найденное значение присвоить последнему элементу вектора.

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

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

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

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

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

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

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

Private Sub Command1_Click()

Dim K1() As Single

Dim P As Single

Dim i As Integer

Dim n As Integer

n = InputBox("BBEDITE n")

ReDim K1(1 To n)

For i = 1 To n

K1(i) = InputBox("BBEDITE K1")

Next

P = 1

For i = 1 To n

P = P * Abs(K1(i))

Next

Print "P=" & P

End Sub

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

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

Определить сумму кубов элементов квадратной матрицы Р размерности N/

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

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

,

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

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

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

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

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim n As Integer

Dim B() As Single

Dim S 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("Введите массив")

S = S + ((B(i, j)) ^ 3)

Next

Next

Print "S=" & S

End Sub

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