Старые отчёты / ФЫР / информатика!!!!!!!!! / 4.30

МИНИСТЕРСТВО ПУТЕЙ СООБЩЕНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

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

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

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

ОТЧЕТ

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

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

Структура «Накопление»

Вариант 30

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

Дневного отделения

Факультет ЭСУ

Группы

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

2004

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

1. Словесное описание задачи. Вычислить и напечатать значение суммы: где N - размерность вектора X. Проанализировать выполнение программы на примере Х={1; 3; 5; 7; 9}

2. Определение состава входных и выходных данных. Входные данные: - размерность N вектора X - элементы вектора X Выходные данные: - сумма S

3. Математическое описание. N=1, 2, 3, ...

1. Р

   0

   3

   10

   1

   Начало

   N

   Конец

   

   i<=N

   

   нет

   да

   S

   12

   

   13

   

   2

   i=1

   

   S=S+(-1)^i*X(i)^i/i

   

   4

   X(i)

   9

   

   i<=N

   

   да

   нет

   

   7

   S=0

   

   8

   i=1

   

   5

   i=i+1

   

   11

   i=i+1

   

   X(i)

   6

   азработка схемы алгоритма.

2. Разработка визуальной части.

4 Разработка кода приложения. Private Sub Command1_Click()

Dim X() As Single, N As Integer, i As Integer, S As Single

N = Text1

ReDim X(N) As Single

Print "A=";

For i = 1 To N

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

Print X(i);

Next

Print

S = 0

For i = 1 To N

S = (-1) ^ i * X(i) ^ i / i

Next

Print "Сумма S=" & S

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

Задание №2

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

1. Словесное описание задачи. Вычислить среднее геометрическое элементов последних К столб­цов квадратной матрицы размерности N. Для отладки программы принять N=5, K=3. Значения элементов матрицы выбрать самостоятельно.

2. Определение состава входных и выходных данных. Входные данные: - количество строк (столбцов) N квадратной матрицы A - число K (K<=N) - элементы матрицы A Выходные данные: - геометрическое элементов последних К столб­цов матрицы A

3. Математическое описание. N=1, 2, 3, ... K N

1. Р

   0

   8

   1

   Начало

   N, K

   

   j=j+1

   55

   

   j<=N

   

   нет

   да

   

   26

   i=1

   

   6

   A(i,j)

   13

   

   да

   

   A(i,j)

   7

   

   17

   i=i+1

   азработка схемы алгоритма.

35

Конец

i<=N

нет

да

P

20

i=i+1

9

46

j=1

j=1

12

i<=N

нет

15

P=P*A(i,j)

16

j=j+1

10

P=1

14

j<=N-K+1

да

нет

11

i=1

19

18

P=P^(1/(N*K))

3 Разработка визуальной части.

4 Разработка кода приложения. Private Sub Command1_Click()

Dim A() As Single, N As Integer, K As Integer, i As Integer, j As Integer, P As Single

N = Text1

K = Text2

ReDim A(N, N) As Single

For i = 1 To N

For j = 1 To N

A(i, j) = InputBox("Введите элемент матрицы A под номером " & i & "," & j)

Print A(i, j);

Next

Print

Next

P = 1

For i = 1 To N

For j = N - K + 1 To N

P = P * A(i, j)

Next

Next

P = P ^ (1 / (N * K))

Print "Среднее геометрическое P=" & P

End Sub

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

9