Обработка двумерных массивов матриц . МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ЭКОНОМИКИ, СТАТИСТИКИ И ИНФОРМАТИКИ. КАФЕДРА МАТЕМАТИЧЕСКОГО ОБЕСПЕЧЕНИЯ И АДМИНИСТРИРОВАНИЯ ИНФОРМАЦИОННЫХ СИСТЕМ. ЛАБОРАТОРНАЯ РАБОТА № 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