Файлы

[Астасья]

Дан текстовый файл. Вывести количество содержащихся в нем символов и строк (маркеры концов строк EOLN и конца файла EOF при подсчете количества символов не учитывать).

[Stilet]

Ну а в чем сложность?

while not eof(f) do begin
  readln(f,s);
 Символов:=Символов+Length(s);
 inc(Строк);
end;

Где
f - переменка типа Text
s:string
Символов и Строк - Целые переменки
Файл ессно нужно открыть процедурой assign-reset и закрыть процедурой close после цикла, не забыв вывести на экран подсчитанное.

[New man]

program Po;
const FN='ne znayu';
var f:file;
     i:integer;
     arr:array of byte;
    simbol,strok:integer;
begin
  assignfile(f,fn);
  simbol:=filesize(f);
  if simbol<3 then 
   begin
     writeln('Pust');readln;exit;
   end;
  dec(simbol,2);
  SetLength(arr,filesize(f));
  reset(f,1);
  BlockREad(f,arr,sizeOf(arr));
  strok:=0;
closefile(f);
  for i:=0 to length(arr)-1 do
    if arr[i]=13 then
      begin
         dec(simbol);
         inc(Strok);
      end; 
  inc(Strok);
  writeln('V file:  ')
  wrilen('   ',simbol,'  simvolov');
   writeln('   ',strok,'   strok');
   readln;
end.

может пойдет, не проверял

[Астасья]

program fil;
uses crt;
var f:text;
a:array [1..5,1..5] of integer;
i,j,p,d:integer;
s:string;
begin
clrscr;
for i:=1 to 5 do
for j:=1 to 5 do
begin
a[i,j]:=random(9)
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j]:2);writeln;
end;
assign(f,'5.1.txt');
rewrite(f);
for i:=1 to 5 do
for j:=1 to 5 do
writeln(f, a[i,j]);
close(f);
reset(f);
begin
while not eof(f) do begin
readln(f,s);
begin
p:=p+Length(s);
inc(d);
close(f);
end;
writeln('кол символов',p);
writeln('кол строк ',d)
end;
end;
end.

у меня почти также ине получается????

[Stilet]

while not eof(f) do begin
 readln(f,s);
 p:=p+Length(s);
 inc(d);
end;

close(f);
writeln('кол символов',p);
writeln('кол строк ',d)

Так понятно? Ты в цикле закрывала файл, вот оно и не считало.

[Астасья]

СПАСИБО!!!!!!!