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

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

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

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

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

ОТЧЕТ

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

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

Структура «Синтез»

Вариант 9

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

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

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

Группы

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

2004

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

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

2. Определение состава входных и выходных данных. Входные данные: - размерность M массива B - элементы вектора B Выходные данные: - количество отрицательных элементов вектора В

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

1. Р

   0

   3

   11

   1

   Начало

   M

   Конец

   

   i<=M

   

   нет

   да

   n

   13

   

   14

   

   2

   i=1

   

   n=n+1

   

   4

   B(i)

   9

   

   i<=M

   

   да

   нет

   

   7

   i=1

   

   8

   n=0

   

   5

   i=i+1

   

   12

   i=i+1

   

   B(i)

   6

   

   10

   

   B(i)<0

   

   да

   нет

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

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

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

Dim B() As Single, M As Integer, i As Integer, n As Integer

M = Text1

ReDim B(M) As Single

Print "B=";

For i = 1 To M

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

Print B(i);

Next

Print

n = 0

For i = 1 To M

If B(i) < 0 Then

n = n + 1

End If

Next

Print "Количество отрицательных элементов n=" & n

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

Задание №2

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

1. Словесное описание задачи. Пересчитать первый столбец матрицы F размерности M так, чтобы значение каждого элемента было равно сумме элементов строки, в которой он находится. Проанализировать выполнение программы на примере: M=3, матрицу выбрать самостоятельно.

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

3. Математическое описание. i=[1;M] M=1, 2, 3, ...

1. Р

   0

   8

   1

   Начало

   M

   

   j=j+1

   55

   

   j<=M

   

   нет

   да

   

   26

   i=1

   

   6

   F(i,j)

   13

   

   да

   

   F(i,j)

   7

   

   19

   i=i+1

   

   18

   S=0

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

35

Конец

i<=M

нет

да

F

21

i=i+1

9

46

j=1

j=1

12

i<=M

нет

15

S=S+F(i,j)

16

j=j+1

10

i=1

14

j<=M

да

нет

11

S=0

20

17

F(i,1)=S

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

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

Dim F() As Single, M As Integer, i As Integer, j As Integer, S As Single

M = Text1

ReDim F(M, M) As Single

For i = 1 To M

For j = 1 To M

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

Print F(i, j);

Next

Print

Next

S = 0

For i = 1 To M

For j = 1 To M

S = S + F(i, j)

Next

F(i, 1) = S

S = 0

Next

Print

For i = 1 To M

For j = 1 To M

Print F(i, j);

Next

Print

Next

End Sub

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

9