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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 26

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Вычислить значение функции: Проанализировать выполнение программы при х=2.

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

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

1. Р

   0

   3

   10

   1

   Начало

   N, x

   Конец

   

   k<=N

   

   нет

   да

   F

   13

   

   14

   

   2

   k=1

   

   F=F+Y(k)

   4

   Y(k)=x^k/k

   9

   

   k<=N

   

   да

   нет

   

   7

   k=1

   

   12

   F=sqr(F)

   

   5

   k=k+1

   

   11

   k=k+1

   

   Y(k)

   6

   

   8

   F=0

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

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

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

Dim Y() As Single, N As Integer, x As Integer, k As Integer, F As Single

N = Text1

x = Text2

ReDim Y(N) As Single

Print "Y=";

For k = 1 To N

Y(k) = x ^ k / k

Print Y(k);

Next

Print

F = 0

For k = 1 To N

F = F + Y(k)

Next

F = Sqr(F)

Print "Произведение F=" & F

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

Задание №2

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

1. Словесное описание задачи. Вычислить произведение элементов L-й и К-й строк матрицы Р размерности М*N.Для отладки программы контрольный вариант выбрать самостоя­тельно.

2. Определение состава входных и выходных данных. Входные данные: - количество строк M матрицы P - количество столбцов N матрицы P - число L (L<M) - число k (K<M) - элементы матрицы B Выходные данные: - произведение элементов L-й и К-й строк матрицы Р

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

1. Р

   0

   8

   1

   Начало

   M, N, L, K

   

   j=j+1

   55

   

   j<=N

   

   нет

   да

   

   26

   i=1

   

   6

   P(i,j)

   

   да

   

   P(i,j)

   7

   

   18

   i=i+1

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

35

Конец

i<=M

нет

да

P1

20

i=i+1

9

46

j=1

14

j=1

12

i<=M

нет

16

P1=P1*P(i,j)

176

j=j+1

10

i=1

13

i=L or K

да

нет

11

P1=1

19

15

j<=N

да

нет

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

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

Dim P() As Single, M As Integer, N As Integer, L As Integer, K As Integer, i As Integer, j As Integer, P1 As Single

M = Text1

N = Text2

L = Text3

K = Text4

ReDim P(M, N) As Single

For i = 1 To M

For j = 1 To N

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

Print P(i, j);

Next

Print

Next

P1 = 1

For i = 1 To M

If i = L Or i = K Then

For j = 1 To N

P1 = P1 * P(i, j)

Next

End If

Next

Print "Произведение P1=" & P1

End Sub

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

9