| Автор |
Сообщение |
Человек
Репутация: 0
Сообщения: 6
Стаж: 1 год 4 месяца
|
[]  18.05.2007 17:39 Срочно нужна помощь, не пишется прога на pascal |
 |
|
В общем такое дело, дали мне в вузе написать прогу, условие: Создать с помощью датчика случайных чисел чилес Random целочисленную матрицу размером n*n. Отсортировать элементы каждой строки матрици в порядке возрастания, а сами строки в порядке возрастания сумм их элементов.
Вот что я написал:
Код: PROGRAM Z3;
const x=3;
VAR
A:Array[1..x, 1..x] of integer;
summa:array[1..x] of integer;
str,j,n,stlb,p,q:integer;
max:integer;
BEGIN
begin
begin
Randomize;
WriteLn('ichodnyi massiv: ');
For stlb:=1 to x do
Begin
For str:=1 to x do
Begin
A[str,stlb]:=Random(50);
Write(A[str,stlb],' ');
End;
WriteLn;
End;
For stlb:=1 to x do
Begin
For str:=1 to x-1 do
Begin
max:=a[str,stlb]; n:=str;
For j:=str+1 to x do
Begin
if a[j,stlb]<max then
Begin
max:=a[j,stlb]; n:=j;
End;
End;
a[n,stlb]:=a[str,stlb];
a[str,stlb]:=max;
End
End;
WriteLn;WriteLn('otsortirovannyi massiv: ');
For stlb:=1 to x do
Begin
For str:=1 to x do
Write(A[str,stlb],' ');
WriteLn;
End;
WriteLn;
readln;
end;
{vichiclenie symmi elementov}
for stlb:=1 to x do
for str:=1 to x do
summa[stlb]:=summa[stlb]+A[str,stlb];
writeln('--------');
for str:=1 to x do
writeln(summa[str]:4);
writeln;
readln;
end;
for str:= 1 to x-1 do
begin
max:=summa[str];
n:=str;
for j:=str+1 to x do
begin
if summa [j]<max then
begin
max:= summa[j];
n:=j;
end;
end;
summa[n]:=summa[str];
summa[str]:=max;
end;
writeln;
writeln('otsort massiv');
begin
for str:=1 to x do
writeln(summa[str]);
writeln;
readln;
end;
Помогите кодом, прошу. уже сил нет ее решать. Жепа!!!
|
|
| Вернуться к началу |
|
 |
Человек
Репутация: 0
Сообщения: 6
Стаж: 1 год 4 месяца
|
|
| Вернуться к началу |
|
|
Tiffany
Клёвая девчонка
Репутация: +14
Возраст: 20
Гороскоп:  
Пол: 
Откуда: Санкт-Петербург
Сообщения: 2745
Стаж: 4 года 2 месяца
|
| [] 23.05.2007 13:52 |
|
|
Что не работает-то?
Сам массив не менется?
_________________
Луна, я вижу лишь тебя. Но ты видишь несоизмеримо больше.
Ответь мне, Луна, смотрит ли та, чьё имя я берегу, вечерами вверх, на небо.
Или, быть может, мысли её столь высоки, что нет нужды поднимать взгляда? (с) А. Чёрный
|
|
| Вернуться к началу |
|
|
Человек
Репутация: 0
Сообщения: 6
Стаж: 1 год 4 месяца
|
| [] 26.05.2007 2:06 |
|
|
Да да да, он самы не меняется, точнее мне не додумать как сделать чтоб он менялся синхронно с массивом сумм!!!
|
|
| Вернуться к началу |
|
|
Tiffany
Клёвая девчонка
Репутация: +14
Возраст: 20
Гороскоп:
Пол:
Откуда: Санкт-Петербург
Сообщения: 2745
Стаж: 4 года 2 месяца
|
| [] 26.05.2007 9:28 |
|
|
Пыталась что-то сделать, но времени маловато.
Попробуйте аналогично замене элементов по возрастанию, только со строками, используя временный массив 1xN.. типа строка.. И туда переписывать не поэлементно, а по строкам сразу...
Добавлено спустя 7 минут 40 секунд:
И сумму можно же высчитывать сразу при заполнении массива. Зачем еще цикл делать о_О
_________________
Луна, я вижу лишь тебя. Но ты видишь несоизмеримо больше.
Ответь мне, Луна, смотрит ли та, чьё имя я берегу, вечерами вверх, на небо.
Или, быть может, мысли её столь высоки, что нет нужды поднимать взгляда? (с) А. Чёрный
|
|
| Вернуться к началу |
|
|
|
|
|
