это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ЭКОНОМИКИ, СТАТИСТИКИ И ИНФОРМАТИКИ.
КАФЕДРА МАТЕМАТИЧЕСКОГО ОБЕСПЕЧЕНИЯ И АДМИНИСТРИРОВАНИЯ ИНФОРМАЦИОННЫХ СИСТЕМ.
ЛАБОРАТОРНАЯ РАБОТА № 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 |
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников 
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован 
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн 
Выпускная квалификационная работа
Курсовая, Автоматизация технологических процессов и производств
Срок сдачи к 19 мар.
сделать отчет по практике
Отчет по практике, Производственная практика (научно-исследовательская работа)
Срок сдачи к 18 мар.
Формирование фонетических навыков речи на начальном этапе обучения китайскому языку в условиях дополнительного образования
Диплом, Китайский язык
Срок сдачи к 1 мая
Выполнить курсовую работу по уголовному праву. Е-02310
Курсовая, Уголовное право
Срок сдачи к 28 мар.
Современные тенденции и особенности формирования кредитных портфелей коммерческих банков и оценка их эффективности
Отчет по практике, Банковское дело
Срок сдачи к 28 мар.
требуется решить контрольную работу по водоснабжению, вариант №6
Контрольная, Водоснабжение и водоотведение
Срок сдачи к 20 мар.
Написать контрольную
Контрольная, Дисциплина "Технология анализа информации о персонале"
Срок сдачи к 17 мар.
Управление операционной эффективности предприятия на основе бережливого производства (на примере ооо «хлебный дом»)
Курсовая, Экономика
Срок сдачи к 18 мар.
Отчет по правоприменительной практике в мо мвд (отдел дознания)
Отчет по практике, Уголовное право
Срок сдачи к 4 апр.
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Принимаем к оплате
© 2011—2026 Всё сдал!
Заполните форму и узнайте цену на индивидуальную работу!
Мы ВКонтакте 
Трейлер о сайте