Anonymní profil Laaca – Programujte.com

Elegantnější je třídit už v průběhu načítání. Načítat do spojového seznamu nebo ještě lépe do binárního stromu.

Freepascal umí Assign a spol. úplně stejně jako Turbo pascal. Dokonce i pro dlouhé názvy souborů. Chyba je tedy mezi židlí a klávesnicí :-)
Co se týče tvého postupu - uvědom si, že používáš funkce určené pro binární, nikoliv textové soubory. Taky mi není úplně jasné, co po svém programu chceš. Jestli prostě vypsat čísla od 0 do 100, tak musíš provést konverzi z typu Longint na typ String:

uses sysutils, crt;

Var I,F : Longint;

    s:string;



Begin

  F:=FileCreate ('testik.dat');

  If F=-1 then Halt(1);



  For I:=0 to 100 do begin

    s:=IntToStr(i)+#13#10;

    FileWrite(F, s[1], Length(s));

  end;



  FileClose(f);

end.

Endžoj:

uses Graph;

const s = 100;           

      n = 32000;      



var gd,gm:integer;

    x,y:integer;       

    a,d,pi2:real;    

begin

gd:=vga;

gm:=vgaHi;

InitGraph(gd,gm,'');

a:=0;

pi2:=pi*2;

repeat

 D:= (1+Sin(A)) * (1+0.9*Cos(8*A)) * (1+0.1*Cos(24*A)) * (0.9+0.05*Cos(200*A));

 X:= Round(D*Cos(A)*S);

 Y:= Round(D*Sin(A)*S);

 PutPixel(X+320, 400-Y, 2);

 A:= A + Pi2/N;

until A >= Pi2;

readln;

CloseGraph;

end.

Zdá se, že redakční systém má ještě mouchy ve zvýrazňování syntaxe, chichichi.

Buďto to můžeš řešit hrubou silou nebo v rukavičkách.
Hrubou silou znamená, že si uděláš pole 1..10000, budeš tam zapisovat nelezené prvky a pořád ho budeš procházet, jestli tam je prvek na vstupu. Jestli neni, tak ho tam přidáš a postup se opakuje. Algoritmus je jednoduchý, ale pomalý, protože čísla nejsou nijak tříděná a pole se většinou prochází zbytečně dlouho.

var data,prac:array[1..10000] of longint;

    a,b,c,p:integer;

    je_tam:boolean;

begin

write('Kolik zadas cisel? ');

readln(a);

for b:=1 to a do

    begin

    write('Zadej hodnotu c.',b,': ');

    readln(data);

    end;

{Data mame nactena, jdem je zpracovavat}

p:=0;

for b:=1 to a do

    begin

    je_tam:=false;

    for c:=1 to p do

        if prac[c]=data then begin je_tam:=true;Break;end;

    if je_tam=false then

       begin

       inc(p);

       prac[p]:=data;

       end;

    end;



writeln('Zadano bylo ',p,' ruznych hodnot.'#13#10'Tady jsou:');

for b:=1 to p do

    write(prac,', ');

writeln(#8#8' ');            {umaze posledni carku}

readln;

end.