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

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

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

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

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

ОТЧЕТ

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

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

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

/Вариант 03/

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

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

группы С-403

Грачев Ю.С.

/340303/

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

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

2004

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

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

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

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

Определить среднее арифметическое элементов вектора L размерности К. Найденное значение присвоить первому элементу вектора. Для отладки программы значения элемента вектора выбрать самостоятельно.

2. Входные данные: {L} - вещественные

,

3. Выходные данные: Sg - вещественные

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

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

Private Sub Command1_Click()

Dim k As Single

Dim i As Integer

Dim L() As Single

Dim S As Single

Dim Sg As Single

k = InputBox("BBEDITE K")

ReDim L(1 To k)

For i = 1 To k

L(i) = InputBox("ВВЕДИТЕ МАССИВ")

Next

S = 0

For i = 1 To k

S = S + L(i)

Next

Sg = S / k

Print "Sg=" & Sg

End Sub

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

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

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

Вычислить значение Т по формуле: где В – матрица размерности М*N.

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

2. Входные данные: {B} - вещественные

3. Выходные данные: T - вещественные

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

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

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim n As Integer

Dim m As Integer

Dim B() As Single

Dim T As Single

m = InputBox("BBEDITE M")

n = InputBox("BBEDITE N")

ReDim B(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

B(i, j) = InputBox("ВВЕДИТЕ МАССИВ")

Next

Next

T = 0

For i = 1 To m

For j = 1 To n

T = T + (B(i, j) / (i + j))

Next

Next

MsgBox ("T=" & T)

End Sub

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