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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 8

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Заполнить одномерный массив М размерности n так, чтобы значе­ния каждого элемента было на единицу меньше значения его ин­декса. Для отладки программы принять n=5.

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

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

1. Р

   3

   Начало

   Конец

   

   i<=N

   

   нет

   да

   

   7

   

   4

   M(i)=i-1

   

   5

   i=i+1

   

   M(i)

   6

   

   2

   i=1

   

   0

   16

   N

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

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

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

Dim M() As Single, N As Integer, i As Integer

N = Text1

ReDim M(N) As Single

Print "M=";

For i = 1 To N

M(i) = i - 1

Print M(i);

Next

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

Задание №2

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

1. Словесное описание задачи. Пересчитать значения элементов матрицы S размерности 4*m по правилу: S_ij =S_ij /(i+j). Исходный и полученный массивы напечатать. Проанализировать выполнение программы на самостоятельно выб­ранном контрольном примере.

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

3. Математическое описание. S_ij =S_ij /(i+j) i=[1; 4] j=[1; M], M=1, 2, 3, …

1. Р

   0

   Начало

   

   2

   i=1

   

   i<=4

   

   16

   M

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

3

Конец

i<=4

нет

да

18

i=i+1

9

11

да

нет

10

i=1

17

i=i+1

8

j=j+1

5

j<=M

да

6

S(i,j)

76

S(i,j)

нет

4

j=1

13

j<=M

да

нет

12

j=1

16

j=j+1

14

S(i,j)=S(i,j)/(i+j)

156

S(i,j)

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

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

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

M = Text1

ReDim S(4, M) As Single

For i = 1 To 4

For j = 1 To M

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

Print S(i, j);

Next

Print

Next

Print

For i = 1 To 4

For j = 1 To M

S(i, j) = S(i, j) / (i + j)

Print S(i, j);

Next

Print

Next

End Sub

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

9