Форум iPhone в България

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

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

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

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

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

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

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;

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

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

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

@victor11 не ти е написал цялата програма а най трудното

защо си хванал паскал като незнаеш дори най лесното ?

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

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

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

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

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

Странно ..... все още имало хора, които се занимават с Pascal

(това не беше ли забранено със закон

)

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

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

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

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

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

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

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;

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

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

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

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

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

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

victor11 написа:Операторът if какво е?

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

Форум iPhone в България

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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