IT 3 Sem.

Wojtek

Liczy ilosc 'a' w pliku tekstowym

program aaaa;
uses crt;
var wiersz:string;
p:text;
a:char;
l:integer;

begin
clrscr;
assign(p,'text.txt');
reset(p);
l:=0;
while not eof(p) do
begin
if a='a' then l:=l+1;
readln(p,a);
end;
writeln('ilosc wierszy: ',l);
readln;
close(p);
end.

Wojtek

reset - otwiera istniejący plik i ustawia się na jego początku.

rewrite - czyści plik.

Wojtek

Pascal tutorial: [link widoczny dla zalogowanych]

Wojtek

Podstawy PASCALa – Kompendium

[link widoczny dla zalogowanych]