Pagalbos su programa

Sveiki!Taigi mokytoja dave uzduociu ir nezinau, kaip viena isspresti.O ji skamba taip:Uzpildykite masyva penkiais skaiciais ivesdami juos klaviatura(pvz.:5,1,3,4,2,6).Atsakyma turite gauti didejimo tvarka:1,2,3,4,5,6.Kiek parasiau, tai:

program didejimo_tvarka;
type masyvas=array[1..100] of integer;
var A:masyvas;

procedure Ivesti(A:masyvas);
var i:integer;
begin
   for i:=1 to 6 do
   Write('A[',i,']= ');
end;


begin
 WriteLn('Labas');
 Readln;
end.

Bet nezinau ka toliau daryti, kiek speju, tai reiktu dar viena procedura sukurti, kuri paskaiciuotu ir sustatytu nuo maziausio skaiciaus iki didziausio...Dekui kas pades! :)

Tau reikia rūšiavimo funkcijos, vienas paprasčiausių būdų: bubble sort:

Procedure BubbleSort(A : masyvas; size : Integer);
Var i, j, temp : Integer;
Begin
For i := size-1 DownTo 1 do
 For j := 2 to i do
  If (A[j-1] > A[j]) then
   Begin
    temp := A[j-1];
    A[j-1] := A[j];
    A[j] := temp;
   End;
End.

čia size yra masyvo ilgis, šiuo atveju reikės perduoti 5.

Tiesa, ta procedura 'įvesti' neteisinga. Reikėtų daryti taip:

for i=1 to 5 do 
begin
 Readln(A[i]);
end;

Pagrindinėj programoj išsikviesk abi funkcijas. Jei nori, gali dar atspausdinti rezultatą:

for i=1 to 5 do writeln(A[i]);

Tikiuosi nieko neprivėliau.

Situs jeigu gali paaiskink:

 For i := size-1 DownTo 1 do
 For j := 2 to i do

Dekui, kad padedi!

Apie tai gali pasiskaityti wikipedijoje: http://lt.wikipedia.org/wiki/Burbulo_rikiavimo_algoritmas

Toje vietoje yra du ciklai: išorinis ir vidinis, jie vykdomi nuosekliai.

O šiaip čia yra rušiavimo algoritmas, nemanau, kad mokykloj labai būtina jį gerai suprasti. Nežinau, ką dar pasakyti, paskaityk linką ir suprast turėtum ;)

Apie tai gali pasiskaityti wikipedijoje: http://lt.wikipedia.org/wiki/Burbulo_rikiavimo_algoritmas

Toje vietoje yra du ciklai: išorinis ir vidinis, jie vykdomi nuosekliai.

O šiaip čia yra rušiavimo algoritmas, nemanau, kad mokykloj labai būtina jį gerai suprasti. Nežinau, ką dar pasakyti, paskaityk linką ir suprast turėtum ;)

Principa jau supratau, ka ten aiskina, bet ko nesuprantu,tai kodel ivedam naujus kintamuosius j ir N ir is j atimame 1.Butu gerai jei kas nors paaiskintu, nes vistiek norisi suprasti, ka as cia rasau.Ir kodel po pirmojo for nerasome begin vikipedijos pavyzdyje?