Задача за програмиране на pascal

[radomir4y]

Трябва ми програма, която да подрежда числата във възходящ ред.Например емаме 3,1,7 и да се подредят 1,3,7.Ако можете помогнете

[victor11]

Гугъл няма ли за вас: http://en.wikipedia.org/wiki/Bubble_sort
Ето и на Паскал: http://www.codecodex.com/wiki/Bubble_sort#Pascal

[radomir4y]

Кое от всичко възможно е това което ми трябва ?

[victor11]

Вторият линк е точно към процедурата на Паскал.

[radomir4y]

Не мисля че е това защото господина дето ни преподава каза че решението е 6 реда

[victor11]

Код за потвърждение: Избери целия код

repeat
            Flag := true;
            for I := 1 to N - 1 do
                if (A[I] > A[I+1]) then
                    begin
                    Temp := A[I]; 
                    A[I] := A[I+1]; 
                    A[I+1] := Temp;
                    Flag := false;
                    end;
        until (Flag)

Целта на булевата променлива Flag е да се избегне излишното обхождане на целия масив, ако сортирането е завършено преди края на цикъла.
Без нея кодът би изглеждал така:

Код за потвърждение: Избери целия код

for I := 1 to N - 1 do
                if (A[I] > A[I+1]) then
                    begin
                    Temp := A[I]; 
                    A[I] := A[I+1]; 
                    A[I+1] := Temp;
                    end;

[radomir4y]

Много благодаря

[radomir4y]

Въведох го в Паскал но ми изписвя грешка.Всичко съм го написал както е показано.Можете ли да помогнете

[intruder]

Човек седни малко да почетеш! Тука колкото и големи разбирачи да има как да познаят какви грешки ти дава, какъв компилатор точно ползваш и т.н.

[anedko]

@victor11 не ти е написал цялата програма а най трудното
защо си хванал паскал като незнаеш дори най лесното ?

всяка програма започва с

program abc;
var описваш завсиси от програмата

след последния end; от писаниците на viktor11

трябва да опишеш какво да прочете от програмата и какво да изпише наекарата с

readln [четеш]
writeln [Отпечатват на екрана]
накрая всчка програма завъшва с end.

[cvalio]

Странно ..... все още имало хора, които се занимават с Pascal
(това не беше ли забранено със закон )

[anedko]

Странно ..... все още имало хора, които се занимават с Pascal
(това не беше ли забранено със закон )

Уча го в училище ? к'ви закони к'ви 5 леа ?

[radomir4y]

Тва ми трпябва за училище за тва ви искам решение на задачата

[radomir4y]

АКо някой все пак може да ми напише цялата програма ще съм му много благодарен

[radomir4y]

Помогнете !!!

[victor11]

В твой интерес е да седнеш и да си научиш уроците. Така не си правиш услуга, но все пак ето: чукни тук.
Трябва само да заместиш съобщенията с текст по твой вкус.

[radomir4y]

procedure bubblesort(var x:data;n:integer);
var i,j:integer;t:byte;
begin
for i:=1 to n-1 do
for j:=1 to n-1 do
if x[j]>x[j+1] then
begin
t:=x[j];
x[j]:=x[j+1];
x[j+1]:=t;
end;
end;


това ли ми трябва

[victor11]

Toва е само сортиращият алгоритъм. Ти нали последно искаше цялата програма?

[radomir4y]

На мене ми трябва за училище и цялото решение е около 6 реда .

[victor11]

Шест реда е само сортиращият алгоритъм, не и цяла работеща програма.

[radomir4y]

Задачата трябва да се направи с условен оператор

[victor11]

Операторът if какво е?

[anedko]

Операторът if какво е?

Колега той незнае ,че всяка програма започва с program abc; ти искаш да знае if