Razeni dle abecedy – Pascal – Fórum – Programujte.com

Cau, pred nedavnem jsem zacal s pascalem, ale ted jsem narazil na problem.

Mym ukolem je napsat program, ktery precte libovolny text a seradi pouzita pismena dle abecedy.

Bohuzel po nekolika hodinovem badani jsem stale na nic neprisel.. Snazil jsem se vyuzit pole a fce char, ale bez vysledku..
Nejake rady prosim?

var

   c: char;

   s: string;

   i,j: integer;

begin

  s := 'Albert Einstein';

  writeln(s);

  for i := length(s) - 1 downto 1 do

    for j := 1 to i do

      if s[j] > s[j + 1] then

      begin

        c := s[j];

        s[j] := s[j + 1];

        s[j + 1] := c;

      end;

  writeln(s);

end.

Parada, fakt diky! Sice libovolnym textem jsem myslel takovy, co zadava sam uzivatel, ale to nevadi, to uz si snad nejak prepisu..

Diky za pomoc :-)

Ha, dobrá náhoda.
Tento týden jsem totiž napsal takový textík o řazení podle abecedy.
Podívej se sem:
http://www.int21h.ic.cz/?id=106