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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 2

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Пересчитать элементы вектора А размерности N по правилу: А_i = B_i*C_i /A_i, при A_i0 где В и С - заданные векторы той же размерности. Для отладки программы контрольный пример выбрать самостоятель­но.

2. Определение состава входных и выходных данных. Входные данные: - размерность N массивов - элементы массива A - элементы массива B - элементы массива C Выходные данные: - Пересчитать элементы вектора А

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

1. Р

   0

   3

   9

   1

   Начало

   N

   Конец

   

   i<=N

   

   нет

   да

   A

   11

   

   12

   

   2

   i=1

   

   A(i)=B(i)*C(i)/A(i)

   

   4

   A(i), B(i), C(i)

   8

   

   i<=N

   

   да

   нет

   

   7

   i=1

   

   5

   i=i+1

   

   10

   i=i+1

   

   A(i), B(i), C(i)

   6

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

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

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

Dim A() As Single, B() As Single, C() As Single, N As Single, i As Single

N = Text1

ReDim A(N) As Single, B(N) As Single, C(N) As Single

Print "A=";

For i = 1 To N

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

Print A(i);

Next

Print

Print "B=";

For i = 1 To N

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

Print B(i);

Next

Print

Print "C=";

For i = 1 To N

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

Print C(i);

Next

Print

Print

Print "A=";

For i = 1 To N

A(i) = B(i) * C(i) / A(i)

Print A(i);

Next

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

Задание №2

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

1. Словесное описание задачи. Заполнить в памяти ЭВМ матрицу L размерности m*n так, чтобы значение каждого элемента было равно индексу строки, в которой он расположен. Напечатать столбец с номером n. Проанализировать выполнение программы на примере m=4, n=5.

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

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

1. Р

   0

   Начало

   

   2

   i=1

   

   16

   M, N

   

   126

   L(i,N)

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

3

Конец

i<=M

нет

да

14

i=i+1

9

11

i<=M

да

нет

10

i=1

13

i=i+1

8

j=j+1

5

j<=N

да

6

L(i,j)=i

76

L(i,j)

нет

4

j=1

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

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

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

M = Text1

N = Text2

ReDim L(M, N) As Single

For i = 1 To M

For j = 1 To N

L(i, j) = i

Print L(i, j);

Next

Print

Next

Print

For i = 1 To M

Print L(i, N)

Next

End Sub

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

9