Всё для Учёбы — студенческий файлообменник
1 монета
pdf

Студенческий документ № 058258 из НИУ МЭИ

Если задача заключается в красном тексте (Зел+КР=решение).

Если в зеленом (Зел-Красн=решение) т.е. на красный не обращать внимания.

FL - флаг (как правило первая подпрога)

FF - функция

PP - процедура

Содержание:

Отрицетельные/положит и min/max:

FL1 Проверка на отриц/положит эл-ты.

PP2 Найти количество положит/отрицат эл-тов в левой части матр.

FF3 Найти min/max отриц/положит эл-нт над/под ГД.

FF3 Найти сумму отриц эл-тов лежащих выше/ниже ГД (по типу FF2).

FF4 В зад стр найти min эл-нт

PP5 Найти max среди отрицат/положит и его индексы.

FL6 Если max/min эл-нт матр находится в левой половине}

Перестановки и прочее:

PP7 Поменять местами левую часть с правой

PP8 Транспонировать матрицу

PP9 Найти среднее арифм/найти кол-во нечетных по знач эл-тов

FF10 Есть ли хотя бы один столбец/строка только с отрицат эл-тами

PP11 Разделить эл-ты последней стр на соотв эл-ты первой строки

Убыв/возрастание:

FL12 Если эл-ты в ГД располож в порядке убывания/возр

FL12 Eсли в матр есть отриц эл-ты (делать по типу FL6)

PP13 Упорядочить элементы строки по возрастанию

Заданное число:

FL14 Если в матр разность между max и min знач больше/меньше зад числа

PP15 Найти № 1ой стр и sum эл-тов, где сумма эл-тов больше заданного числа

FL16 Если в 1ом столбце все эл-ты по модулю больше заданной величины z. FL17 Если в 1ой стр не окажется эл-тов, по модулю меньших зад величины

FL1 Проверка на отриц/положит эл-ты} Function FF(A:matr):boolean; var i,j:integer; begin fl:=false; for i:=1 to N do begin for j:=1 to M do

if A[i,j]0) fl:=true end;

FF:=fl; end;

PP2 Найти количество положит/отрицат эл-тов в левой части матр}

Function Kpol(A:matr):integer; var i,j,k:integer; begin k:=0; for i:=1 to m do for j:=1 to n/2 do if A[i,j]>0 then k:=k+1;

Kpol:=k; end;

FF3 Найти min/max отриц/положит эл-нт над/под ГД и его индексы} Procedure min (A:matr;n,p:byte; var m,im,jm:integer); var i,j:integer; m:real; begin m:=A[1,1];

for i:=1 to N-1 do (for i:=2 to N do) begin

for j:=i+1 to P do (for j:=1 to I-1 do) if (A[i,j]>m) then m:=A[i,j]; end; IM:=i; JM:=j; end;

FF4 В зад стр найти min эл-нт

Function FF (X:matr;n,m,k:integer):integer;

Var j:byte; begin min:=x(k,1); For i:=1 to m do

If x[k,j]max then begin max:=A[i,j];

IM:=I; JM:=J; end; END.

FL6 Если max/min эл-нт матр находится в левой половине}

Function max(A:matr; n,m:byte):boolean; var i,j:byte; mL MP begin fl:=false; begin

mL:=A[1,1]; for i:=1 to n do begin for j:=1 to m/2 do if A[i,j]>mL; mL:=A[i,j]; end; end; begin mP:=A[1,m/2+1]; for i:=1 to n do begin for j:=m/2+1 to m do if A[i,j]>mP; mP:=A[i,j]; end; end; If mP0 then k:=k+1;

(Sum:=Sum+A[i,j];) end; end;

(Sr:=Sum/Kol;) end;

FF10 Есть ли хотя бы один столбец/строка только с отрицат эл-тами} Fuction FF(A:matr; n,m:byte):boolean; var i,j:integer; begin fl:=true;

for j:=1 to m do (for i:=1 to n do) begin

for i:=1 to n do (for j:=1 to m do) if A[i,j]>=0 then fl:=false; end;

FF:=fl; end;

PP11 Разделить эл-ты последней стр на соотв эл-ты первой строки

procedure PP(A:matr; n,m:integer); var j:integer; begin for j:=1 to n do a[m,j]:=a[m,j]/a[1,j]; end.

FL12 Если эл-ты в ГД располож в порядке убывания/возр}

Function FF(A:matr; n:byte):boolean; var i,j:integer; begin max:=A[1,1]; fl:=true; for i:=1 to n do

if A[i,i]>max then (if A[i,i]A(k,j+1) then begin p:=1;

C:=A(k,j); A(k,j)>A(k,j+1); A(k,j+1):=C; end;

end; end;

FL14 Если в матр разность между max и min знач больше/меньше зад числа} procedure PP(A:matr; n,m:integer, D:real; var fl:boolean); var i, j, min, max, B:integer; begin max:=A[1,1]; min:=A[1,1]; for i:=1 to n do begin for j:=1 to m do begin if A[i,j]>max then max:=A[i,j]; if A[i,j]D then fl:=true; end;

PP15 Найти № 1ой стр и sum эл-тов, где сумма эл-тов больше заданного числа.

Procedure PP(X:matr;n,m,z:byte; var nom,sum:integer); var i,j:integer;

Begin Nom:=0; i:=1;

While (i Begin

writeln('Введите матрицу); for i:=1 to 4 do for j:=1 to 4 do read(A[i,j]); PP1(A,f); if f=true then begin PP2(A);

writeln('Наибольший отрицательный элемент над ГД=',c); end else begin

PP3(A,min);

writeln('Минимальный элемент матрицы=',min); end; end.

Показать полностью…
175 Кб, 17 января 2017 в 5:35 - Россия, Москва, НИУ МЭИ, 2017 г., pdf
Рекомендуемые документы в приложении