|
TwojePC.pl © 2001 - 2024
|
 |
A R C H I W A L N A W I A D O M O Ś Ć |
 |
| |
|
[Pascal]Sortowanie liczb , MiloX 5/01/05 12:32
Dostaliśmy zadanie na informatyce, próbuje je zrobić ale jakoś nie daje rady. Zadaine polega na posortowaniu liczb na głównej przekątnej macierzy malejąco. Dodatkowo macierz ma pierwszą kolumne tylko 0 a ostatnią tylko 1, czyli coś takiego
0 x x 1
0 x x 1
0 x x 1
0 x x 1
macierz jest kwadratowa. Wymyśliłem coś takiego ale nie za abrdzo chce to działać(w każdym razie tak mniej więcej powinno to wyglądać.
For i:=1 to roz do
for j:=1 to roz do
begin
If i=j then
begin
repeat
If A1[i,j]<A1[i+1,j+1] then
t:=A1[i,j];
A1[i,j]:=A1[i+1,j+1];
A1[i+1,j+1]:=t;
r:=r+1;
until (r=roz);
end;
end;
end;
Siedze nad tym zadaniem i nie moge go rozwiązać ;/ a 11 zaliczenie z informatyki..:Adopcja, Adaptacja, Improwizacja:. - jeżeli dobrze zrozumialem , BONUS 5/01/05 15:23
r:=0;
repeat
r:=r+1;
if A1[r+1,r+1]>A1[r,r] then {czy następny jest większy jezeli }tak to
begin
t:=A1[r,r];
A1[r,r]:=A1[r+1,r+1];
A1[r+1,r+1]:=t;
r:=0; { i zonwu zaczynamy przegladac przekatna}
end;
Pozdro
BONUS
until ((r+1)<roz);- Autopoprawka -dawno nie pisalem w pascalu :( , BONUS 5/01/05 15:41
r:=1;
repeat
r:=r+1;
if A1[r+1,r+1]>A1[r,r] then {* czy następny jest większy jezeli tak to}
begin
t:=A1[r,r];
A1[r,r]:=A1[r+1,r+1];
A1[r+1,r+1]:=t;
r:=1; { i zonwu zaczynamy przegladac przekatna}
end;
until (r=(roz-1));
Pozdro
BONUS
- Wielkie dzięki , MiloX 5/01/05 20:21
Chociaż u mnie to działa gdy r:=0 ^^.:Adopcja, Adaptacja, Improwizacja:.
|
|
|
|
 |
All rights reserved ® Copyright and Design 2001-2024, TwojePC.PL |
 |
|
|
|
