PCTuning fórum

program project1;
{vypište, z jakých cifer se skládá zadané číslo. Např. číslo 35554 se skládá z cifer 3, 4 a 5.}
{$APPTYPE CONSOLE}

uses
SysUtils;

var vstup, vystup, a : string; // proměnné typu string
opakovani, i : integer; // proměnné čísleného typu integer
begin
writeln ('Zadejte cislo:'); // zadání hodnoty
readln (vstup); // načtení hodnoty
opakovani:= length (vstup); // počet opakování

for i:=1 to opakovani do begin // cyklus pro zjištění cifer které jsou zadány
a:= copy (vstup,i,1); // uložení cifry do proměnné a
if pos (a,vystup)=0 then // zjištění aby se cifra neopakovala
vystup:=vystup + a + ' ' ; // pokud není tak jí zapíšeme

end; // ukončení cyklu for
writeln (vystup); // vypsání hodnoty výstupu
readln; // ukončení programu až po stiknutí klávesy enter
end.

ahoj, program funguje jak má ale potřeboval bych poradit jak seřadit výstup podle velikosti. Děkuji

no misto sortu bych pouzil pole s promennyma 1,2,3,atd a podle toho ktera cisla bych nasel bych ulozil do pole jako true a pak vypsal, delat sort na 10 znaku mi prijde zbytecne

bool pole[10];
pak
pole[a]:= true;
a pak
for (i=0, i<10, i++) if pole=true writeln (i)

(syntax asi nebude spravne ale smysl je snad jasny)