Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
xitami napisał:funkcje eof eoln seekeoln
Cytat:Napisałem prog co sortuje liczby w pliku ale w tych liczbach nie może być zera, jak to zrobić aby prog brał pod uwagę zero?
uses crt,dos;
var fSource:file;
bufor:array[0..1023] of char;
i,o,p:word;
read:integer;
liczba:longint;
cyfr:byte;
znal_liczby:array[0..1023] of longint;
ind_znal_liczb:integer;
procedure SwapLI(var a,b:longint);
var tmp:longint;
begin
tmp := a;
a := b;
b := tmp;
end;
begin
clrscr;
assign(fSource,'findcy~1/przyk.txt'); {nazwa pliku do przeszukania}
reset(fSource,1);
liczba := 0; {ostatnia liczba}
cyfr := 0; {ilosc cyfr w liczbie}
ind_znal_liczb := 0;
while not eof(fsource) do {skanowanie pliku do konca }
begin
blockread(fSource,bufor,1024,read); {odczyt bloku}
for i := 0 to read-1 do {analizowanie przeczytanego bloku}
begin
if bufor[i] in ['0'..'9'] then {jesli liczba to dodaj do wyniku}
begin
liczba := liczba * 10 + ord(bufor[i]) - ord('0');
inc(cyfr);
end
else if cyfr>0 then {a jesli nie liczba a wynik sklada sie z conajmniej
jednej cyfry to zapisz ja do tablicy}
begin
znal_liczby[ind_znal_liczb] := liczba;
inc(ind_znal_liczb);
liczba := 0;
cyfr := 0;
end;
end;
end;
close(fsource); {zamkniecie plkiku}
writeln('ostatnia liczba w pliku to: ',znal_liczby[ind_znal_liczb-1]);
{ sortowanie bombelkowe (pierwsza liczba najwieksza) }
for i := 0 to ind_znal_liczb-2 do
for o := i+1 to ind_znal_liczb-1 do
if znal_liczby[i] < znal_liczby[o] then
SwapLI(znal_liczby[i],znal_liczby[o]);
for i:=0 to ind_znal_liczb-1 do
writeln(znal_liczby[i]);
readln;
end.
xitami napisał:
- bez sensu? no nie całkiem.
xitami napisał:- eof konieczny? wcale nie bo zobacz w programie Dialera wystarczy pętlę WHILE NOT EOF(FI) zastąpić przez REPEAT ...... UNTIL READ<1024 i co? eof jest konieczne?
