Napisz progrqam znaki, który poda ilość znaków występujących w pliku tekstowym o podanej nazwie. (funkcja zwracająca długość łańcucha tekstowego to LENGTH(ciag). Program sprawdza poprawność wprowadzanej nazwy (istnienie pliku).
Ja napisałem cos takiego:
Kod: Zaznacz cały
program znaki;
var plik:file;
i:integer;
begin
writeln;
writeln('Oto prosty program, ktory poda, ilosc znakow wystepujacych w ciagu zawartym w');
writeln('pliku "ZNAKI.TXT". Dodatkowo program sprawdza, czy podany plik istnieje.');
writeln;
Assign(plik, 'znaki.txt');
Reset(plik);
i:=FileSize(plik);
if i:=0 then writeln('Plik ZNAKI.TXT nie istnieje, lub wprowadzona nazwa pliku jest nieprawidlowa');
writeln('W pliku "ZNAKI.TXT" wystepuje ',i,' znakow.');
close(plik);
end.
Kod: Zaznacz cały
[ Dodano: Pią Lis 25, 2005 4:51 pm ]
Już nie trzeba. Napisałem )