Pascal - program liczacy ilosc znakow

andrewto · Post autor: **andrewto** » 10 kwie 2005, o 15:54

Proszę o pomoc w napisaniu programu w Pascalu który ma liczyć ile znaków ma plik tekstowy

arigo · Post autor: **arigo** » 10 kwie 2005, o 16:01

mozesz to zrobic na wiele sposobw
najprostszym jest odczyt znak po znaku az do napotkania EOF
mozezs tez odczytywac buforowo az do momentu kiedy zwrocona ilosc znakow jest mniejsza od zazadanej
itd

andrewt · Post autor: **andrewt** » 10 kwie 2005, o 16:13

Powiedz proszę czy tak moze być :

program pliki_tekstowe;

procedure pokaz(nazwa: string);
var plik: text;
c: char;

begin
assign(plik,nazwa);
reset(plik);
if eof(plik) then writeln('Plik ', nazwa, ' jest pusty')
else
begin
repeat
read(plik,c);
write(c);
until eof(plik);
end;
end;

var nazwa: string;

begin
write('Podaj nazwe pliku, ktorego zawartosc mam wczytac: ');
readln(nazwa);
writeln('Zawartosc pliku ',nazwa,':');
pokaz(nazwa);
writeln('Koniec pliku.');
readln;
end.

Jeśli czegoś brakuje to będę wdzięczny za ewentualną poprawę.

arigo · Post autor: **arigo** » 10 kwie 2005, o 16:23

styl pozostawia wiele do zyczenia..... ale to tak na marginesie

gdzie zliczasz ilosc znakow ?:)

andrewt · Post autor: **andrewt** » 10 kwie 2005, o 16:28

To jest program wyświetlający zawartosć pliku ale jak zliczyć znaki ?

arigo · Post autor: **arigo** » 10 kwie 2005, o 16:30

Kod: Zaznacz cały

repeat
read(plik,c);
xxxxxxxxxxx
write(c);
until eof(plik);

tak jak pisalem powyzej np w miejscu xow inkrementowac jakas zmienna

andrewt · Post autor: **andrewt** » 10 kwie 2005, o 16:49

Sorry ale pierwszy raz słyszę o takim słowie jak "inkrementować"

arigo · Post autor: **arigo** » 10 kwie 2005, o 16:52

inkrementacja - zwiekszanie zawartosci zmiennej/rejestru itd o 1

andrewt · Post autor: **andrewt** » 10 kwie 2005, o 16:54

Więc moze na początku zdeklaruję zmienną ile typu byte ( W końcu to liczba)
w trakcie dokonam tej inkrementacji i wyswietle wynik w postaci tej zmiennej na koncu ?

arigo · Post autor: **arigo** » 10 kwie 2005, o 17:00

prawie dobrze:)
tylko ze uzyj wiekszego typu. nie pamietam dokladnie jakie typy mial pascal gdyz dawno w tym nie siedzialem ale o ile mnie pamiec nie myli to longint byl typem 32bitowym z zapisem bez znaku:)
i nie zapomnij na poczatku wyzerwoac tej zmiennej pomocniczej

andrewt · Post autor: **andrewt** » 10 kwie 2005, o 17:32

Dzięki za wszystko ! Idę i już nie przynudzam więcej