Programowanie w turbo pascalu

Wszystko co dotyczy tworzenia i optymalizacji stron internetowych oraz programowania
kamilw61

Użytkownik
Posty: 1
Rejestracja: 18 maja 2012, 21:07

Programowanie w turbo pascalu

Post18 maja 2012, 21:10

Prosze o pomoc czy mógł by mi ktos napisac gdzie mam błąd??

-- 18 maja 2012, 21:10 --

prosze o pomoc czy ktos mógł by mi powiedziec gdzie mam błąd??

{Winnicki kamil, sortowanie sprawdzian gr2}
program sortowanie;
uses crt;
const k=10;
var i,j:integer;
tab:array[1..k] of integer;

procedure wpisz;
begin
randomize;
for i:=1 to k do tab[i]:=Random(100)+100;
end;

procedure sortuj;
var temp:integer;
begin
for i:=1 to k do
for j:=i downto 2 do
begin
if tab[i]>tab[i+1] then
begin
temp:=tab[i];
tab[i]:=tab[i+1];
tab[i+1]:=temp;
end;
end;
end;

procedure wypisz;
begin
for i:=1 to k do write(tab[i]:4);
end;

begin
clrscr;
wpisz;
writeln(' Tablica przed sortowaniem');
writeln;
wypisz;
sortuj;
writeln;
writeln;
writeln(' Tablica posortowana');
writeln;
wypisz;
readln;
end.

Awatar użytkownika
lewy

Ekspert
Posty: 1462
Rejestracja: 15 gru 2009, 11:10

Programowanie w turbo pascalu

Post19 maja 2012, 09:48

To sortowanie chyba bąbelkowe, a więc drugą pętlę obróć i po niej zrób.

Kod: Zaznacz cały

for (i=0;i<5; i++){
        for (j=0; j<5-1; j++){
            if (tab[j]>tab[j+1]){
                                 temp=tab[j+1];
                                 tab[j+1]=tab[j];
                                 tab[j]=temp;
                                 }
           
        }
}



  • Reklama

Wróć do „Webmastering i programowanie”



Kto jest online

Użytkownicy przeglądający to forum: Obecnie na forum nie ma żadnego zarejestrowanego użytkownika i 3 gości