| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
some_one
Administrator
Dołączył: 17 Lis 2007
Posty: 11
Przeczytał: 0 tematów
|
 Wysłany: 16.03.2008 (Nie) 20:04 Temat postu: ALGORYTMY |
|
| Kod: | program sortowanie;
const
n=10;
var
tab:array[1..n] of longint;
i, nr, pom: longint;
begin
for i:=1 to n do
begin
write('podaj');
read(tab[i]);
end;
writeln('naciscij klawisz');
readln;
for nr:=1 to n-1 do
for i:=1 to n-nr do
if tab[i]>tab[i+1] then
begin
pom:=tab[i];
tab[i]:=tab[i+1];
tab[i+1]:=pom;
end;
for i:=1 to n do
writeln(tab[i]);
readln;
end. |
Ostatnio zmieniony przez some_one dnia 16.03.2008 (Nie) 22:42, w całości zmieniany 2 razy
|
|
| Powrót do góry |
|
 |
|
|
 |
some_one
Administrator
Dołączył: 17 Lis 2007
Posty: 11
Przeczytał: 0 tematów
|
| Wysłany: 06.04.2008 (Nie) 15:31 Temat postu: |
|
oto program sortowanie przez wstawianie z wartownikiem
| Kod: | program sortzwart;
{posortowane}
const
n=160000;
var
tab:array[0..n] of longint;
i, nr : longint;
begin
for i:=1 to n do
begin
TAB[i]:=i;
end;
writeln(' nacisnij klawisz aby wyswietlic tablice ');
readln;
for i:=1 to n do
begin
writeln(tab[i]);
end;
writeln(' naciscij klawisz, aby zaczac sortowanie');
readln;
for nr:=2 to n do
begin
tab[0] := tab[nr];
i:=nr-1;
while tab[i]>tab[0] do
begin
tab[i+1]:= tab[i];
i:=i-1;
end;
tab[i+1]:= tab[0];
end;
writeln(' sortowanie zakonczone czy wyslwietlic');
readln;
for i:=1 to n do
writeln(tab[i]);
readln;
end. |
| Kod: | program sortzwart;
{random}
const
n=20000;
var
tab:array[0..n] of longint;
i, nr : longint;
begin
randomize;
for i:=1 to n do
begin
TAB[i]:= random(n+1);
end;
writeln(' nacisnij klawisz aby wyswietlic tablice ');
readln;
for i:=1 to n do
begin
writeln(tab[i]);
end;
writeln(' naciscij klawisz, aby zaczac sortowanie');
readln;
for nr:=2 to n do
begin
tab[0] := tab[nr];
i:=nr-1;
while tab[i]>tab[0] do
begin
tab[i+1]:= tab[i];
i:=i-1;
end;
tab[i+1]:= tab[0];
end;
writeln(' sortowanie zakonczone czy wyslwietlic');
readln;
for i:=1 to n do
writeln(tab[i]);
readln;
end. |
| Kod: | program sortzwart;
{odwrotnie posortowane}
const
n=20000;
var
tab:array[0..n] of longint;
i, nr,l : longint;
begin
l:=n;
for i:=1 to n do
begin
TAB[i]:=l ;
l:=l-1;
end;
writeln(' nacisnij klawisz aby wyswietlic tablice ');
readln;
for i:=1 to n do
begin
writeln(tab[i]);
end;
writeln(' naciscij klawisz, aby zaczac sortowanie');
readln;
for nr:=2 to n do
begin
tab[0] := tab[nr];
i:=nr-1;
while tab[i]>tab[0] do
begin
tab[i+1]:= tab[i];
i:=i-1;
end;
tab[i+1]:= tab[0];
end;
writeln(' sortowanie zakonczone czy wyslwietlic');
readln;
for i:=1 to n do
writeln(tab[i]);
readln;
end.
|
Ostatnio zmieniony przez some_one dnia 06.04.2008 (Nie) 15:31, w całości zmieniany 1 raz
|
|
| Powrót do góry |
|
|
|
|
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
|
|
