Паскаль. Файлы

[playboy]

Дан текстовый файл. Найти количество абзацев в тексте, если каждый абзац начинается с красной строки (5 пробелов). Пустые строки между абзацами не учитывать.

uses crt;
var
   f: text;
   k:boolean;
   i, n, m: byte;
   s: string;
BEGIN
     clrscr;
     assign (f, '#17in.txt');
     reset (f);
           k:=false;
           n:=0;
             while not eof (f) do
                   begin
                        inc (m);
                        readln (f, s);
                        if (s[1] = ' ')and(s[2] = ' ')and(s[3] = ' ')and(s[4] = ' ')and(s[5] = ' ')and(length(s)>5) then
                        k:=true else k:=false;
                   end;
             if k=true then
             n:=n+1;
             writeln (n);
             writeln ('KOJI cTpoK = ',m);
                        readln;
     close (f);
END.

чет не пойму как грамотно счётчик организовать. подскажите пожалуйста (= СПАСИБО

[alex_fcsm]

uses crt;
var
f: text;
n, m: byte;
s: string;
BEGIN
clrscr;
assign (f, 'c:\1.txt');
reset (f);
n:=0;
while not eof (f) do
begin
inc (m);
readln (f, s);
if (s[1] = ' ')and(s[2] = ' ')and(s[3] = ' ')and(s[4] = ' ')and(s[5] = ' ')and(length(s)>5) then
inc(n);
end;
close (f);
writeln (n);
writeln ('KOJI cTpoK = ',m);
readln;
END.

У Вас все верно практически. Если нашли абзац сразу меняйте счетчик на 1(inc(n) - равносильно n:=n+1). Ну и некоторые переменыые удалил т.к. не нужны они

[DENCREAT]

Сообщение от alex_fcsm

uses crt;
var
f: text;
n, m: byte;
s: string;
BEGIN
clrscr;
assign (f, 'c:\1.txt');
reset (f);
n:=0;
while not eof (f) do
begin
inc (m);
readln (f, s);
if (s[1] = ' ')and(s[2] = ' ')and(s[3] = ' ')and(s[4] = ' ')and(s[5] = ' ')and(length(s)>5) then
inc(n);
end;
close (f);
writeln (n);
writeln ('KOJI cTpoK = ',m);
readln;
END.

У Вас все верно практически. Если нашли абзац сразу меняйте счетчик на 1(inc(n) - равносильно n:=n+1). Ну и некоторые переменыые удалил т.к. не нужны они

неверно будет считать программа, т.к. переменная m лишь объявлена целым типом и никакого начального значения не присвоено, т.е. функция inc(m) неизвестно какое число будет наращивать.

[playboy]

alex_fcsm спасибо большое

[XuTpbIu]

DENCREAT
Переменная m здесь вообще по-моему лишняя. Нас не просят найти кол-во строк.

[Stilet]

А я бы исходя из условия так написал:

var
f: text;
n: byte;
s: string;
BEGIN
clrscr;
assign (f, 'c:\1.txt');
reset (f);
n:=0;
while not eof (f) do begin
 readln (f, s);
 if pos('     ',s)<>0 then inc(n);
end;
close (f);
writeln (n);
readln;
END.

Так оптимальнее.

[XuTpbIu]

Stilet
а если у меня в середине строки 5 пробелов будет? твой код не прокатит
Вот мой вариант) Чуток изменю вариант Stilet-а

var
f: text;
n: byte;
s: string;
BEGIN
clrscr;
assign (f, 'c:\1.txt');
reset (f);
n:=0;
while not eof (f) do begin
  readln (f, s);
  if copy(s, 1, 5)<>'     ' then 
    inc(n);
end;
close (f);
writeln (n);
readln;
END.

[Stilet]

XuTpbIu

Не буду спорить.

[Tkirill]

if pos(' ',s)=1 then inc(n);

[XuTpbIu]

А это что такое?? Тут же у нас надо учесть что абзац с 5 прбелов начинается не с 1