[Pascal] Problem sortowania. PILNE!

[Night Knight 0]

Witam czy mógłby mi ktoś podać kod programu, (lub ew. pomocne linki do stron www) który przesortuje ciąg jakiś liter

metodą prostego wybierania w pascalu?

 

na przykład

 

użytkownik wpisuje ciąg:

ILOVEYOU

a posortowany napis będzie wyglądał tak:

EILOOUVY

 

Na marginesie udało mi się z notatek zrobić program sortujący liczby, program się kompiluje ale...:

 

const
Mz:=100;
type tab=array[1..Mz] of real;

  function szuk_ind_min(var t:tab;ip,ik:integer):integer;
  var
  m:real;
  im,i:integer;

 begin
 m:=t[ip];
 im:=ip;
 for i:=ip+1 to ik do
 if t[i]<m then

	begin
	m:=t[i];
	im:=i;
	end;
 szuk_ind_min:=im;
 end;

  Procedure sortuj_pr_wy(var A:tab;n:integer);
 Var
  x,i:integer;
  w:real;
	 begin
	 for i:=1 to n-1 do
		begin
		x:=szuk_ind_min (A,i,n);
		W:=A[x];
		A[x]:=A[i];
		A[i]:=W;
		end;
	 end;

 

begin

?????

end.

 

ale nie wiem co mam wstawić w końcowy begin i end aby wyświetlić wynik na ekran.

[Evertras 0]

Zgodnie z twoim przykładem żeby wyświetlić trzeba napisać:

 

BEGIN

sortuj_pr_wy(tablica,rozmiar_tablicy);			   // wywołujesz procedurę, która ma posortować tablicę

for i:=1 to n-1 do
				begin
	 writeln(A[i]);														 // wypisujesz poszczególne elementy posortowanej tablicy
				end;

readln;										
END.

 

Na przyszłość radzę takie rzeczy robić w funkcjach, które zwracają nową, posortowaną tablicę, a nie nadpisujesz tą główną. Nie podałeś w ogóle kodu związanego z wczytywaniem danych do tablicy więc rozumiem, że to już masz.

 

I polecam poczytać trochę o algorytmach sortujących. One rozwiążą twoje problemy. Na przykład zobacz sobie na algorytm bąbelkowy (bubble sort), quicksort, sortowanie kubełkowe. To proste algorytmy w postaci kilkulinijkowych funkcji, które posortują bez zbędnych kombinacji. Jeżeli chcesz żeby użytkownik wprowadzał wyraz to musisz go potem jakoś zamienić na tablicę, ja niestety nie wiem jaka funkcja do tego służy w pascalu.

[Night Knight 0]

chodzi o to, ze nic nie mam i w ogóle nie wiem jak ma to wyglądać

[spinaker 0]

string tak naprawdę jest tablicą charów, więc wczytaj sobie informacje od użytkownika a potem baw się tak jak na tablicach.

niewielka modyfikacja algorytmu i będzie działać

[Night Knight 0]

ok dzięki jakoś sobie poradziłem, temat można zamknąć ;]