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

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

Вид работы: реферат

Рубрика: Информатика

Размер файла: 87.86 Kb

Скачать файл: referat.me-132817.docx

Краткое описание работы: МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ЭКОНОМИКИ, СТАТИСТИКИ И ИНФОРМАТИКИ. КАФЕДРА МАТЕМАТИЧЕСКОГО ОБЕСПЕЧЕНИЯ И АДМИНИСТРИРОВАНИЯ ИНФОРМАЦИОННЫХ СИСТЕМ.

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

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

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

ЛАБОРАТОРНАЯ РАБОТА № 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

Похожие работы

  • Вычисление суммы бесконечного ряда с точностью епсилон

    МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ Государственный университет информатики и искусственного интеллекта Д050103.1.01.10/080.ЛР Кафедра программного обеспечения интеллектуальных систем

  • Официальный сайт департамента здравоохранения города Москвы

    Московский государственный медико-стоматологический университет Кафедра медицинской информатики Тема: Официальный сайт департамента здравоохранения города Москвы

  • Turbo Paskal Операции над матрицами

    Государственный Комитет Российской Федерации по Высшему Образованию Санкт-Петербургский Государственный Электротехнический Университет «ЛЭТИ»

  • Решение практической задачи на паскале

    ГОУ ВПО «Московский государственный открытый университет» Чебоксарский политехнический институт (филиал) Кафедра информационных технологий и программирования

  • Программная обработка структурных данных

    Министерство обраразования Российской Федерации Московский государственный университет Экономики, статистики и информатики (МЭСИ) Лабораторная работа №2

  • Построение логической модели исследуемой системы

    Тульский институт экономики и информатики Кафедра информационных технологий Контрольная работа По дисциплине: Интеллектуальные информационные системы

  • Основы программирования и алгоритмизации 2

    Министерство образования и науки РоссийскойФедерации Кафедра информатики Курсовая работа Основы программирования и алгоритмизации г.Челябинск

  • Основные свойства проекта

    Федеральное агентство по образованию ГОУВПО «Московский Государственный Текстильный Университет им. А. Н. Косыгина» Кафедра АСОИ и У Лабораторная работа №1

  • Технология мультимедиа

    Минский филиал государственного образовательного учреждения высшего профессионального образования «Московский государственный университет экономики, статистики и информатики (МЭСИ)»

  • Компьютерная томография 3

    МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ МЕДИКО-СТОМАТОЛОГИЧЕСКИЙ УНИВЕРСИТЕТ Кафедра медицинской информатики Итоговая работа На тему: «компьютерная томография»