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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 21

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Вычислить произведение и количество отрицательных элементов одномерного массива Р размерности M, входящих в интервал [-10; -3]. Для отладки программы значения M и Р выбрать самостоятельно. Для отладки программы значения N и W выбрать самостоятельно.

2. Определение состава входных и выходных данных. Входные данные: - размерность M массива P - элементы массива P Выходные данные: - произведение и количество отрицательных элементов из интервала [-10; -3] одномерного массива Р

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

1. Р

   0

   3

   12

   1

   Начало

   M

   Конец

   

   i<=M

   

   нет

   да

   P1, n

   15

   

   16

   

   2

   i=1

   

   P1=P1*P(i)

   

   4

   P(i)

   10

   

   i<=M

   

   да

   нет

   

   7

   i=1

   

   8

   n=0

   

   5

   i=i+1

   

   14

   i=i+1

   

   P(i)

   6

   

   11

   

   P(i)>=-10 and <=-3

   

   да

   нет

   

   9

   P1=1

   13

   

   n=n+1

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

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

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

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

M = Text1

ReDim P(M) As Single

Print "P=";

For i = 1 To M

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

Print P(i);

Next

Print

P1 = 1

n = 0

For i = 1 To M

If P(i) >= -10 And P(i) <= -3 Then

P1 = P1 * P(i)

n = n + 1

End If

Next

Print "Произведение отрицательных элементов из интервала [-10;-3] P1=" & P1 & ", их количество n=" & n

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

Задание №2

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

1. Словесное описание задачи. В квадратной матрице S размерности М заменить нулевые элемен­ты на главной диагонали значениями сумм элементов строк, в ко­торых они расположены. Проанализировать выполнение программы на примере:

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

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

1. Р

   0

   8

   1

   Начало

   M

   

   j=j+1

   55

   

   j<=M

   

   нет

   да

   

   26

   i=1

   

   6

   S(i,j)

   

   S(i,j)

   7

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

35

Конец

i<=M

нет

да

S

22

i=i+1

9

46

j=1

14

j=1

12

i<=M

да

нет

16

C=C+S(i,j)

17

j=j+1

10

C=0

13

S(i,i)=0<=N

да

нет

21

20

i=i+1

18

C=0

19

S(i,i)=C

11

i=1

15

j<=M

да

нет

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

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

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

M = Text1

ReDim S(M, M) As Single

For i = 1 To M

For j = 1 To M

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

Print S(i, j);

Next

Print

Next

C = 0

For i = 1 To M

If S(i, i) = 0 Then

For j = 1 To M

C = C + S(i, j)

Next

S(i, i) = C

C = 0

End If

Next

Print

For i = 1 To M

For j = 1 To M

Print S(i, j);

Next

Print

Next

End Sub

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

9