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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 11

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

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

Факультет

ЭСУ

Группы ФМ-408

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

2004

Задание №1

1. Словесное описание задачи. Вычислить значение функции ln(x) при x>0,5 по формуле: x и n выбрать самостоятельно, результата сравнить со встроенной функцией.

1. Определение состава входных и выходных данных. Входные данные: - x - n Выходные данные: - значение логарифма по встроенной функции - значение логарифма рассчитанного аналитически

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

1. Р

   1

   55

   106

   2

   Начало

   X, n

   Конец

   

   i<=n

   

   нет

   да

   Ln1, Ln2

   127

   

   136

   

   46

   i=1

   

   Ln1=Ln1+L(i)

   

   36

   Ln2=log(X)

   

   6

   L(i)

   95

   

   i<=n

   

   да

   нет

   

   86

   i=1

   

   i=i+1

   7

   

   i=i+1

   117

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

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

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

Dim X As Single, L() As Single, n As Integer, Ln1 As Single, Ln2 As Single, i As Integer

X = Text1

n = Text2

ReDim L(n) As Single

Ln2 = Log(X)

For i = 1 To n

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

Next

For i = 1 To n

Ln1 = Ln1 + L(i)

Next

Text3 = Ln2

Text4 = Ln1

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

Задание №2

1. Словесное описание задачи. Определить произведение элементов на главной диагонали квад­ратной матрицы, найденное значение присвоить последнему эле­менту второй строки. Для отладки программы матрицу выбрать самостоятельно

2. Определение состава входных и выходных данных. Входные данные: - количество строк (столбцов) квадратной матрицы - элементы матрицы Выходные данные: - матрица с пересчитанным элементом

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

1. Р

   1

   55

   8

   2

   Начало

   n

   

   i<=n

   

   нет

   да

   

   i=i+1

   

   j=j+1

   9

   65

   

   j<=n

   

   нет

   да

   

   36

   i=1

   

   46

   j=1

   

   7

   11

   12

   

   10

   i=1

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

Конец

M(i,j)

16

17

M(i,j)

P=1

i<=n

да

нет

13

P=P*M(i,i)

146

i=i+1

15

M(2,n)=P

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

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

Dim n As Integer, M() As Single, P As Single, i As Integer, j As Integer

n = Text1

ReDim M(n, n) As Single

For i = 1 To n

For j = 1 To n

M(i, j) = InputBox("Введите элемент №" & i & "," & j)

Print M(i, j);

Next

Print

Next

P = 1

For i = 1 To n

P = P * M(i, i)

Next

M(2, n) = P

Print

For i = 1 To n

For j = 1 To n

Print M(i, j);

Next

Print

Next

End Sub

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

8