Question

Elaboraţi un program, care numără cîte cuvinte conţine fişierul t1.txt.
program pascal

Answer 1

Program P94;

function este_litera(c:char):boolean;
var este_litera_mica,este_litera_mare:boolean;
begin
este_litera_mare:=(ord(c)>=ord('A')) and (ord(c)<=ord('Z'));
este_litera_mica:=(ord(c)>=ord('a')) and (ord(c)<=ord('z'));
if este_litera_mare or este_litera_mica then
  este_litera:=true
else
  este_litera:=false  
end;

var F : text;
 c,c0 : char;
 nr_cuvinte:integer;
begin
nr_cuvinte:=0;
assign(F,'t2.txt');
 reset(F);
  { deschide F pentru citire }
    read(F,c0);  
 while not eof(F) do
 begin
 while not eoln(F) do
 begin
 read(F,c);
 if not este_litera(c) and este_litera(c0) then
 nr_cuvinte:=nr_cuvinte+1;
 
 write(c);
 c0:=c;
 end;
 readln(F); writeln;
 end;
 close(F);
 readln;
 writeln('Nr cuvinte este:',nr_cuvinte);
end.