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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 21

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Пересчитать элементы вектора Р размерности N по правилу: P_i=P_i+P₁ Исходный и полученный векторы напечатать. Для отладки программы принять n=6, вектор Р выбрать самостоя­тельно.

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

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

1. Р

   0

   3

   10

   1

   Начало

   N

   Конец

   

   i<=N

   

   нет

   да

   P

   12

   

   13

   

   2

   i=1

   

   P(i)=P(i)+k

   

   4

   P(i)

   9

   

   i<=N

   

   да

   нет

   

   8

   i=1

   

   5

   i=i+1

   

   11

   i=i+1

   

   P(i)

   6

   

   7

   k=P(1)

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

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

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

Dim P() As Single, N As Integer, i As Single, k As Single

N = Text1

ReDim P(N) As Single

Print "P=";

For i = 1 To N

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

Print P(i);

Next

Print

Print

k = P(1)

Print "P=";

For i = 1 To N

P(i) = P(i) + k

Print P(i);

Next

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

Задание №2

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

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

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

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

1. Р

   0

   35

   8

   1

   Начало

   N

   Конец

   

   i<=N

   

   нет

   да

   10

   

   i=i+1

   

   j=j+1

   9

   55

   

   j<=N

   

   нет

   да

   

   26

   i=1

   

   46

   j=1

   

   6

   I1(i,j)

   

   I1(i,j)

   7

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

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

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

Dim I1() As Single, N As Single, i As Single, j As Integer

N = Text1

ReDim I1(N, N) As Single

For i = 1 To N

For j = 1 To N

I1(i, j) = 1

Print I1(i, j);

Next

Print

Next

End Sub

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

9