Обработка двумерных массивов матриц


МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ЭКОНОМИКИ, СТАТИСТИКИ И ИНФОРМАТИКИ.

КАФЕДРА МАТЕМАТИЧЕСКОГО ОБЕСПЕЧЕНИЯ И АДМИНИСТРИРОВАНИЯ ИНФОРМАЦИОННЫХ СИСТЕМ.

ЛАБОРАТОРНАЯ РАБОТА № 2

ОБРАБОТКА ДВУМЕРНЫХ МАССИВОВ (МАТРИЦ).

Выполнил студент группы ДМК – 101

Преподаватель: Сорока Р. И.

Москва 2010.

Оглавление:

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

Распечатка программы………………………………………………………………………………………………… 3

Распечатка результатов……………………………………………………………………………………………….. 4

Контрольный просчет…………………………………………………………………………………………………. 4

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

Удалить строки и столбцы матрицы, где все элементы являются числами Фибоначчи.

2. Распечатка программы.

Program pr1;

Var

A:array[1..20,1..20] of integer;

M, n, i, j, f0,f1,f2,k, l, d:integer;

F:boolean;

Begin

Writeln(‘введите m и n’);

Read(m, n);

Writeln(‘введите элементы’);

For i:=1 to m do

For j:=1 to n do

Read(a[i, j]);

For i:=1 to m do

Begin

F:=false;

For j:=1 to n do

Begin

F0:=1;

F1:=1;

While f1<a[i, j] do

Begin

F2:=f0+f1;

F0:=f1;

F1:=f2;

End;

If f1<>a[i, j] then f:=true;

End;

If f then

Begin

K:=k+1;

For l:=1 to n do

A[k, l]:=a[i, l];

End;

End;

For j:=1 to n do

Begin

F:=false;

For i:=1 to m do

Begin

F0:=1;

F1:=1;

While f1<a[i, j] do

Begin

F2:=f0+f1;

F0:=f1;

F1:=f2;

End;

If f1<>a[i, j] then f:=true;

End;

If f then

Begin

D:=d+1;

For l:=1 to n do

A[l, d]:=a[l, j];

End;

End;

For i:=1 to k do begin

Writeln;

For j:=1 to d do

Write(a[i, j],’ ‘); end;

Readln;

Readln;

End.

3. Распечатка результатов.

4. Контрольный просчет.

M=5

N=5

I

J

A[i, j]

F1(конечн)

F

K

L

A[k, l]

1

1

3

3

False

2

4

5

True

3

5

5

True

4

6

8

True

5

7

8

True

1

1 2 3 4 5

3 4 5 6 7

2

1

1

1

False

2

2

2

False

3

3

3

False

4

5

5

False

5

8

8

False

3

1

6

8

True

2

9

13

True

3

13

13

True

4

45

55

True

5

3

3

True

2

1 2 3 4 5

6 9 13 45 3

4

1

8

8

False

2

13

13

False

3

21

21

False

4

34

34

False

5

55

55

False

5

1

1

1

True

2

1

1

True

3

3

3

True

4

1

1

True

5

4

5

True

3

1 2 3 4 5

1 1 3 1 4

J

I

A[i, j]

F1(конечн)

F

D

L

A[l, d]

1

1

3

3

False

2

1

1

False

3

6

8

True

4

8

8

True

5

1

1

True

1

1 2 3 4 5

3 1 6 8 1

2

1

4

5

True

2

2

2

True

3

9

13

True

4

13

13

True

5

1

1

True

2

1 2 3 4 5

4 2 9 13 1

3

1

5

5

False

2

3

3

False

3

13

13

False

4

21

21

False

5

3

3

False

4

1

6

8

True

2

5

5

True

3

45

55

True

4

34

34

True

5

1

1

True

3

1 2 3 4 5

6 5 45 34 1

5

1

7

8

True

2

8

8

True

3

3

3

True

4

55

55

True

5

4

5

True

4

1 2 3 4 5

7 8 3 55 5

I, J

1

2

3

4

1

3

4

6

7

2

6

9

45

3

3

1

1

1

4



Зараз ви читаєте: Обработка двумерных массивов матриц