Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
PROGRAM
sort;
USES
crt;
TYPE
tablica=ARRAY[1..3000] of integer; {tablica liczb}
VAR
tab:tablica; {tablica z wyznacznikami}
wiersze:integer;
procedure wypelnij_tablice(var t:tablica;l_w:integer);
var
i:integer;
begin
randomize;
for i:=1 to l_w do {wiersze}
begin
t[i]:=random(10);
end;
writeln('Tablica zostala wypelniona liczbami pseudolosowymi.');
writeln;
end;
procedure wyswietl_tablice(t:tablica;l_w:integer);
var
i:integer;
begin
for i:=1 to l_w do {wiersze}
begin
writeln(t[i]);
end;
end;
procedure sortuj_tablice(var t:tablica;l_w:integer);
var
i,j,tymczasowa:integer;
begin
j:=l_w-1;
for i:= 1 to j do
if t[i] < t[i+1] then
begin
tymczasowa:= t[i];
t[i]:= t[i+1];
t[i+1]:=tymczasowa;
tymczasowa:=0;
end;
end;
BEGIN
clrscr;
writeln('Oto program sluzacy do sortowania tablic.');
write('Podaj liczbe wierszy: ');
readln(wiersze);
writeln;
writeln('Tablica zostanie wypelniona liczbami pseudolosowymi:');
wypelnij_tablice(tab,wiersze);
writeln;
writeln('Oto tablica:');
wyswietl_tablice(tab,wiersze);
writeln;
writeln('Teraz tablica zostanie posortowana.');
sortuj_tablice(tab,wiersze);
writeln('Oto posortowana tablica:');
wyswietl_tablice(tab,wiersze);
readln;
END.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment