Страница 1 из 2
Сортировка массива на Паскале
Добавлено: 03 май 2008, 18:23
MayBe
Помогите, please!
нужно срочно решить задачку...
В матрице С (5х7) переставить столбцы по возрастанию сумм столбцов матрицы.
Re: Сортировка массива на Паскале
Добавлено: 03 май 2008, 19:02
Medved
Опять... Начинается... Тут уже КУЧА таких задач разбиралась...
Re: Сортировка массива на Паскале
Добавлено: 04 май 2008, 11:34
Хыиуду
См. раздел "Алгоритмы".
Re: Сортировка массива на Паскале
Добавлено: 04 май 2008, 14:41
MayBe
Хыиуду, спасибо)
Re: Сортировка массива на Паскале
Добавлено: 04 май 2008, 15:52
MayBe
хм... я попыталась написать программку... но она не работает(
Я конечно понимаю, что там наверняка оч много ошибок... но... аааа, я не знаю, где они...
ну не могу я понять эти массивы....
помогите, плиииз....
вот...
Код: Выделить всё
type aa1=array[1..5] of integer;
aa2=array[1..7] of aa1;
bb1=array[1..7] of integer;
var a1:aa1; a2:aa2; b1:bb1;
k,i,j,s:integer;
begin
s:=0;
for i:=1 to 7 do
for J:=1 to 5 do
readln(a2[i,j]);
for j:=1 to 7 do
begin
s:=s+a2[i,j];
1[j]:=s;
end;
for k:=1 to 4 do
for i:=1 to 6 do
if b1[j]>b1[j+1] then
begin
i:=b1[j];
b1[j]:=b1[j+1];
b1[j+1]:=i;
a1:=a2[j];
a2[j]:=a2[j+1];
a2[j+1]:=a1;
end;
for i:=1 to 7 do
begin
for j:=1 to 5 do
write (a2[i,j]:6);
writeln;
end;
end.
Re: Сортировка массива на Паскале
Добавлено: 05 май 2008, 09:10
Vovchik
MayBe,пользуйтесь тегами
[ code]
[ /code]
а то безних не совсем привычно смотреть на код
!!!!!!!!!!!!!
Re: Сортировка массива на Паскале
Добавлено: 05 май 2008, 14:39
MayBe
Vovchik, хорошо, я учту на будущее)
Re: Сортировка массива на Паскале
Добавлено: 05 май 2008, 16:42
un4-funeral
вернее
совсем не привычно ((=
Re: Сортировка массива на Паскале
Добавлено: 05 май 2008, 21:10
MayBe
=)) все, я исправилась))
Re: Сортировка массива на Паскале
Добавлено: 08 май 2008, 13:13
Хыиуду
Исправиться исправилась, а оформление не изменилось... вы хоть пробелы расставьте в начале строк, чтобы было понятно, какой бегин к какому энду относится...