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

Петербургский Государственный

Университет Путей Сообщения

Кафедра Информатики и информационной безопасности

Отчет

По лабораторной работе №6

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

Вариант 9

Студент Группы ЭУТ-403

03.03.05

А.А. Гришков

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

2005

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

1.1 Словесное описание задачи. Пересчитать одномерный массив R размерности N по правилу: Ri=Ri/ i Проанализировать выполнение программы на примере: R={10; 20; 30; 40; 50}

1.2 Определение состава входных и выходных данных. Входные данные: N, R(N) Выходные данные: - пересчитанный массив R

2. Математическое описание. 2.1 Определение всех зависимостей, связывающих входные и выходные данные: i=[1;N], N=1, 2, 3, ... 2.2 Выбор метода решения:

Использование Visual Basic

3

0

3

1

Начало

N, {R}

Конец

{R}

R(i)=R(i)/i

4

i<=N

да

нет

7

i=1

i=i+1

6

2

5

. Схема алгоритма.

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

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

N = Text1

ReDim R(N) As Single

Print "R=";

For i = 1 To N

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

Print R(i);

Next i

Print

Print "R=";

For i = 1 To N

R(i) = R(i) / i

Print R(i);

Next i

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

6. Конец

Задание №2

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

1.1 Словесное описание задачи. Заполнить матрицу SC размерности 25*2 значениями функции SinX (первый столбец) , CosX (второй столбец). Х меняется от 0 до 2 с шагом /12 Полученную матрицу напечатать в два столбца.

1.2 Определение состава входных и выходных данных. Входные данные: Выходные данные: - заполненная матрица SC

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

3

0

Начало

X<=2*pi

X=X+pi/12

2

i=1

16

pi=3,141592

3

X=0

SC(i,1)=sin(X)

5

. Схема алгоритма.

4

Конец

нет

да

SC(i,j)

16

8

11

j=1

10

i<=25

да

нет

14

j=j+1

9

i=1

12

j<=2

да

нет

13

15

i=i+1

6

SC(i,2)=cos(X)

7

i=i+1

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

Dim SC(25, 2) As Single, i As Integer, j As Integer, X As Single

Const pi As Single = 3.141592

i = 1

For X = 0 To 2 * pi Step pi / 12

SC(i, 1) = Sin(X)

SC(i, 2) = Cos(X)

i = i + 1

Next x

For i = 1 To 25

For j = 1 To 2

Print SC(i, j);

Next

Print

Next

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

6. Конец

8