Autor: Grzegorz Ciaglo (sinc_at_free.polbox.pl)
Data: Mon 28 Apr 1997 - 20:02:29 MET DST
Wojciech Potaczek <potaczek_at_student.uci.agh.edu.pl> napisał(a) w artykule
<33646C00.486F_at_student.uci.agh.edu.pl>...
> Mam do Was malutką prośbę.
> Czy ma ktoś może pod ręką "szkolne" programiki do sortowania bąbelkowego
> (ew. innych także)?
> Przydałyby mi się dla kolegi a ja już dawno zapomniałem składni TP i nie
> zdąże sam napisać.
> Z góry dziękuję za podesłanie.
> Będę wdzięczny.
>
> Pozdrowionka.
>
> Wojtek
>
Wstukalem ci taki najprostrzy ale nie kompilowalem wiec moze zadziala;)
var
komorka: integer;
i,j,n: integer;
element: array [1..n] of byte;
procedure sortuj;
begin
for i:=1 to n do
for j:=1 to n do
if element[j]>element[j+1]
then begin
komorka:=element[j];
element[j]:=element[j+1];
element[j+1]:=komorka
end;
end;
begin
wczytaj;
sortuj;
wyswietl;
end.
-- //'''' Grzegorz Ciaglo || //'''' Clean Up The IT World ! \\,,,|| \\,,// mailto:sinc_at_free.polbox.pl http://www.free.polbox.pl/s/sinc/
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 16:03:54 MET DST