Program pascal
1. Elaboraţi un program, care afişează conţinutul fişierului t1.txt pe ecran
2. Elaboraţi un program, care numără cîte cuvinte conţine fişierul t1.txt.
Răspunsuri la întrebare
raspuns la problema 1
Program P94;
var F : text;
c : char;
begin
assign(F,'d:\t2.txt');
reset(F);
{ deschide F pentru citire }
while not eof(F) do
begin
while not eoln(F) do
begin
read(F,c);
write(c);
end;
readln(F); writeln;
end;
close(F);
readln;
end.
Program text;
const fis:string ='t1.txt';
var f:file of char;
c:char;
i:longint;
b:boolean;
nr:integer;
begin
Assign(f,fis);
{$I-}reset(f);{$I+}
If IoResult<>0 then begin writeln('Nu am gasit fisierul cu numele: ',fis);exit end;
for i:=0 to filesize(f)-1 do begin seek(f,i);Read(f,c);Write(c) end;
b:=false;nr:=0;
for i:=0 to filesize(f)-1 do begin
seek(f,i);Read(f,c);
if ((c>='a')and(c<='z'))or((c>='A')and(c<='Z'))then begin
if not b then nr:=nr+1;
b:=true;
end
else b:=false;
end;
writeln('fisierul contine ',nr,' cuvinte');
close(f);
readln;
end.