Program polega na wczytywaniu liczb z pliku txt (liczby po enterze). Chodzi aby program pobrał je z pliku, posortował i zapisał do innego pliku.
Witam udało mi się napisać coś takiego ale niestety nie działa (problem w wyświetlaniem wczytanych liczb):
Siedze prawie cały dzień i jestem laikiem od razu mówię. Proszę bardzo nie krytykować :)
procedure TForm1.Button3Click(Sender: TObject); //procedura do przycisku POSORTUJ LICZBY
type
a1=array [1..9999] of integer;
b1=array [1..9999] of integer;
var
LICZ:TStringlist;
N: integer;
t:text;
w:integer;
i,j,s:integer;
a:a1;
b:b1;
function fp(x,y : integer) : boolean;
begin
fp := (x <= y)
end;
begin
LICZ:= TStringlist.Create;
LICZ.LoadFromFile('przedsortowaniem.txt');
N:=LICZ.Count-1;
LICZ.Free;
ShowMessage(FloatToStr(N));
begin
AssignFile(t, 'przedsortowaniem.txt');
reset(t);
for i:=0 to N do
begin
readln(t,w);
a[i]:=w;
end;
for i := N - 1 downto 1 do
begin
j := i + 1;
while (j <= N) and not fp(a[i],a[j]) do
begin
a[j-1] := a[j];
inc(j);
end;
a[j - 1] := a[i];
end;
for i := 1 to N do ShowMessage(i:4, b[i]:9, a[i]:9);
end;
end;
Prosił bym o informację co jet źle i co muszę poprawić.