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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 19

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Заполнись одномерный массив S размерности 13 значениями функ­ции Sin² X, где Х меняется от 0⁰ до 360⁰ с шагом 30⁰. Полученный массив напечатать в столбец.

2. Определение состава входных и выходных данных. Входные данные: - начальное значение Xn - конечное значение Xk - шаг изменения dX Выходные данные: - массив S

3. Математическое описание. 0≤X≤360, dX=30 i=[1;N], N=(Xk-Xn)/dX+1

1. Р

   5

   1

   Начало

   Xn, Xk, dX

   Конец

   

   X<=Xk

   

   нет

   да

   

   10

   

   2

   N=int((Xk-Xn)/dX+1)

   

   6

   S(i)=sin(X)^2

   

   7

   i=i+1

   

   S(i)

   8

   

   3

   X=Xn

   

   4

   i=1

   

   9

   X=X+dX

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

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

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

Dim S() As Single, X As Single, Xn As Single, Xk As Single, dX As Single, N As Integer, i As Single

Xn = Text1

Xk = Text2

dX = Text3

N = Int((Xk - Xn) / dX) + 1

ReDim S(N) As Single

i = 1

For X = Xn To Xk Step dX

S(i) = Sin(3.1415 * X / 180) ^ 2

Print S(i)

i = i + 1

Next

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

Задание №2

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

1. Словесное описание задачи. Транспонировать матрицу В размерности n. Напечатать матрицу В и полученную матрицу ВТ. Проанализировать выполнение программы на примере.

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

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

1. Р

   0

   Начало

   

   2

   i=1

   

   16

   N

   

   j<=N

   

   12

   j=1

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

3

Конец

i<=N

нет

да

18

i=i+1

9

11

i<=N

да

нет

10

i=1

16

i=i+1

8

j=j+1

5

j<=N

да

6

B(i,j)

76

B(i,j)

нет

4

j=1

13

да

нет

15

j=j+1

14

BT(j,i)=B(i,j)

176

BT

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

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

Dim B() As Single, BT() As Single, N As Integer, i As Single, j As Integer

N = Text1

ReDim B(N, N) As Single, BT(N, N) As Single

For i = 1 To N

For j = 1 To N

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

Print B(i, j);

Next

Print

Next

Print

For i = 1 To N

For j = 1 To N

BT(j, i) = B(i, j)

Next

Next

For i = 1 To N

For j = 1 To N

Print BT(i, j);

Next

Print

Next

Print

End Sub

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

9