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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 15

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

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

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

Группы ФМ-408

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

2004

Задание №1

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

1. Словесное описание задачи. Найти сумму элементов с нечетными индексами одномерного масси­ва М размерности К. Проанализировать выполнение программы на примере М={-3; 6; -4; 0; 2; -11; 8}.

2. Определение состава входных и выходных данных. Входные данные: - количество элементов K массива M - элементы массива M Выходные данные: - сумма элементов с нечетными индексами масси­ва М

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

1. Р

   0

   4

   10

   1

   Начало

   K

   Конец

   

   i<=K

   

   нет

   да

   S

   12

   

   13

   

   36

   i=1

   

   S=S+M(i)

   

   26

   S=1

   

   5

   M(i)

   9

   

   i<=K

   

   да

   нет

   

   8

   i=1

   

   i=i+1

   7

   

   i=i+2

   11

   

   M(i)

   6

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

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

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

Dim M() As Single, K As Integer, i As Integer, S As Single

K = Text1

ReDim M(K) As Single

Print "M=";

For i = 1 To K

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

Print M(i);

Next

Print

S = 0

For i = 1 To K Step 2

S = S + M(i)

Next

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

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

Задание №2

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

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

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

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

1. Р

   0

   8

   1

   Начало

   M, N, K

   

   j=j+1

   55

   

   j<=N

   

   нет

   да

   

   26

   i=1

   

   6

   P(i,j)

   

   11

   j=1

   

   12

   

   j<=N

   да

   нет

   

   P(i,j)

   7

   

   10

   P1=1

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

35

Конец

i<=M

нет

да

P1

16

i=i+1

9

46

j=1

13

P1=P1*P(K,j)

14

j=j+1

15

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

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

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

M = Text1

N = Text2

K = Text3

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 j = 1 To N

P1 = P1 * P(K, j)

Next

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

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

9