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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 19

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Вычислить произведение элементов с индексами 2, 4, 6, 8 од­номерного массива M размерности К. Проанализировать выполнение программы на примере М={2; 4; 6; -3; 8; 12; -6, 1}

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

3. Математическое описание.

1. Р

   0

   3

   10

   1

   Начало

   K

   Конец

   

   i<=K

   

   нет

   да

   P

   12

   

   13

   

   2

   i=1

   

   P=P*M(i)

   

   4

   M(i)

   9

   

   i<=K

   

   да

   нет

   

   7

   P=1

   

   8

   i=2

   

   5

   i=i+1

   

   11

   i=i+2

   

   M(i)

   6

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

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

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

Dim M() As Single, K As Integer, i As Integer, P As Single

K = Text1

ReDim M(K) As Single

Print "M=";

For i = 1 To K

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

Print M(i);

Next

Print

P = 1

For i = 2 To K Step 2

P = P * M(i)

Next

Print "Произведение элементов массива с четными индексами равно " & P

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

Задание №2

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

1. Словесное описание задачи. Вычислить сумму элементов первого столбца и последней строки матрицы S размерности М*N. Для отладки программы принять N=З; М=4. Значение элементов матрицы выбрать самостоятельно.

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

3. Математическое описание. M=1, 2, 3, ... N=1, 2, 3, ...

1. Р

   0

   8

   1

   Начало

   M, N

   

   j=j+1

   55

   

   j<=N

   

   нет

   да

   

   26

   i=1

   

   6

   S(i,j)

   да

   

   S(i,j)

   7

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

35

Конец

i<=M

нет

да

S1

19

18

i=i+1

9

46

j=1

15

j=2

12

i<=M

нет

16

S1=S1+S(M,j)

176

j=j+1

10

S1=0

14

j<=N

да

нет

i=i+1

14

11

i=1

13

S1=S1+S(i,1)

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

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

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

M = Text1

N = Text2

ReDim S(M, N) As Single

For i = 1 To M

For j = 1 To N

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

Print S(i, j);

Next

Print

Next

S1 = 0

For i = 1 To M

S1 = S1 + S(i, 1)

Next

For j = 2 To N

S1 = S1 + S(M, j)

Next

Print "Сумма S1=" & S1

End Sub

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

9