дана квадратная матрица порядка 10. упорядочить строки матрицы по убыванию, заменить все элементы главной диагонали и ниже нее нулями.
разбить задачу на подзадачи, чтобы решение каждой подзадачи описывалось процедурой, а программа состояла бы из последовательности вызова процедур. (использовать список формальных параметров)
проблема в том, что процедуры для меня - новая тема, я ее еще не достаточно освоила, а задание нужно к середине недели
for i:=1 to n do
for k:=1 to n-1 do
if j:=1 to n-k do
if a[i,j]<a[i,j+1] then
begin
t:=a[i,j];
a[i,j]:=a[i,j+1];
a[i,j+1]:=t;
end;
b:=0;
for i:=1 to n do
for j:=1 to i do
a[i,j]:=b;
procedure obnulenie;
begin
b:=0;
for i:=1 to n do
for j:=1 to i do
a[i,j]:=b;
end;
procedure n1;
var t:{тип}
begin
for i:=1 to n do
for k:=1 to n-1 do
if j:=1 to n-k do
if a[i,j]<a[i,j+1] then
begin
t:=a[i,j];
a[i,j]:=a[i,j+1];
a[i,j+1]:=t;
end;
end;
mamont001, и... ?
А матрицу что, глобально описывать? Тогда смысл в процедурах какой? Никакого...
18192123, пробуй так:
Type TMatrix = array[1 .. 10, 1 .. 10] of integer;
Procedure Obnulenie(Var mx: TMatrix); { Внутри процедуры работать с этой переменной }
begin
...
end;
uses crt;
const n=10;
type vect=array[1..n] of real;
matr=array[1..n] of vect;
var
a:matr;
i,j,t:integer;
k:real;
procedure sortirovka(var x:matr; a,b,m,l:integer;var c:real);
var y:matr;
begin
for a:=1 to m do
for l:=1 to m-1 do
for b:=1 to m-l do
if y[a,b]<y[a,b+1] then
begin
c:=y[a,b];
y[a,b]:=y[a,b+1];
y[a,b+1]:=c;
end
end;
procedure obnylenie(var x:matr; a,b,m:integer; var c:real);
var y:matr;
begin
c:=0;
for a:=1 to m do
for j:=1 to a do
y[a,b]:=c;
end;
begin
clrscr;
writeln ('vvedite massiv');
for i:=1 to n do
for j:=1 to n do read (a[i,j]);
sortirovka(a,i,j,n,t,k);
for i:=1 to n do
for j:=1 to n do writeln (a[i,j]:4 :1,' ');
obnylenie(a,i,j,n,k);
for i:=1 to n do
for j:=1 to n do writeln (a[i,j]:4 :1,' ');
readkey;
end.
М | http://forum.pascal.net.ru/index.php?showtopic=13392 не читаем? Просил же не пользоваться тегами PASCОDE... Есть замена. |
В процедуру сортировки зачем передаешь A, B, C? Лучше описать их локально внутри процедуры, иначе я повторяю - нет смысла делать процедуры, и заставлять их работать с глобальными переменными...
Второе: ты должна работать с той же самой матрицей, которую передаешь в процедуру. Иначе потом, когда тебе понадобится отсортировать не одну, а 2 матрицы, ты начнешь спрашивать, почему тебе для этого придется написать такую же процедуру два раза (чтобы матрица Y после второй сортировки не затерла первую...)
Насчет самой сортировки пузырьком - смотри в FAQ-е, надоело уже исправлять одну и ту же ошибку!
procedure sortirovka(var y: matr; m: integer);
var
a, b, L: integer;
c: real;
begin
for a:=1 to m do
for l:=1 to m-1 do
for b:=1 to m-l do
if y[a,b]<y[a,b+1] then begin
c:=y[a,b];
y[a,b]:=y[a,b+1];
y[a,b+1]:=c;
end
end;
procedure sortirovka(var y: matr; m: integer);
var
a, b, L: integer;
c: real;
begin
for a:=1 to m do
for l:=1 to m-1 do
for b:=1 to m-l do
if y[a,b]<y[a,b+1] then begin
c:=y[a,b];
y[a,b]:=y[a,b+1];
y[a,b+1]:=c;
end
end;
М | Не надо делать такие большие цитаты, когда это не необходимо. Уважай других участников форума. klem4. |