Dze je subor www.TrSek.com/zadania/subor_pa.pas{ SUBOR_PA.PAS }
{ Program spocita pocet suborov s koncovkou pas. }
{ Zoznam suborov sa nachadza v textovom subore Subory.txt. }
{ }
{ Author: Juraj Pupak }
{ Date : 27.10.2006 http://www.trsek.com }
program Subor_Pas;
uses crt;
var
Tsubor : Text;
dlzka_textu : integer;
Cstr,Cstr_1 : string;
i : integer;
pocet_suborov : integer;
begin
clrscr;
writeln('Program spocita pocet suborov s koncovkou pas.');
Assign(Tsubor,'Subory.txt');
Reset(Tsubor);
while not Eof(Tsubor) Do
begin
Readln(Tsubor,Cstr);
dlzka_textu := length(Cstr);
For i := 1 To dlzka_textu Do
begin
If Cstr[i] = '.' THEN
begin
Cstr_1 := copy(Cstr,i + 1,3);
IF Cstr_1 = 'PAS' THEN
begin
pocet_suborov := pocet_suborov + 1;
end;
end;
end;
end;
writeln('V subore Subory.txt sa nachadza ', pocet_suborov, ' suborov s koncovkou pas');
readln;
end.