Witam. Pani z programowania nie daje nam spokoju... Zadała nam "ostatnie zadanie w tym roku"... Mam napisać program w turbo pascalu który wylosuje elementy tablicy dwuwymiarowej 5 x 4 z zakresu podanego przez uŻytkownika. Wyswietli zawartośc tablicy a nastepnie posortuje jej elementy malejąco i wyswietli jeszcze raz. Mam wykorzystać algorytm sortowania przez wybór.
Narazie mam takie coś :
Kod:
program Selection_Sort;
program abc;
var
d : array[1.5,1..4] of integer;
var
i,j,x,pmin : integer;
begin
writeln(' Sortowanie przez wybor ');
writeln('------------------------');
writeln;
randomize;
for i := 1 to N do d[i] := random(100);
writeln('Przed sortowaniem:'); writeln;
for i := 1 to N do write(d[i] : 4);
writeln;
for j := 1 to N - 1 do
begin
pmin := j;
for i := j + 1 to N do
if d[i] < d[pmin] then pmin := i;
x := d[pmin]; d[pmin] := d[j]; d[j] := x;
end;
writeln('Po sortowaniu:'); writeln;
for i := 1 to N do write(d[i] : 4);
writeln;
writeln('Nacisnij Enter...');
readln;
end.
To jednak nie jest do końca to o co mi chodzi. PomóŻcie mi napisac ten program tak aby dzialal wlasciwie.
