Реферат

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

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 5.2.2025





МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ЭКОНОМИКИ, СТАТИСТИКИ И ИНФОРМАТИКИ.
КАФЕДРА МАТЕМАТИЧЕСКОГО ОБЕСПЕЧЕНИЯ И АДМИНИСТРИРОВАНИЯ ИНФОРМАЦИОННЫХ СИСТЕМ.
ЛАБОРАТОРНАЯ РАБОТА № 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



1. Реферат Самостоятельное существование малого бизнеса
2. Реферат Маркетинг в страхование
3. Реферат на тему История развития математики
4. Реферат на тему Процессуальное право средневековой Сербии
5. Биография на тему Окинклосс Луис Стантон
6. Реферат на тему John Donne Vs Hemingway Essay Research Paper
7. Реферат Тематика и типы древнерусских книг
8. Курсовая Музыкальное сопровождение в магазинах
9. Сочинение на тему Чехов а. п. - Большие темы маленьких рассказов а. п. чехова
10. Реферат Золотоносные месторождений в пределах Тынаготского района