Строки в текстовом файле., Помогите найти ошибку пожалуйста. Опции

[Bokul]

неразделитель...

Молодец!
Наверно я чуть не понятно написал коментарии.
Вот переписал паскалевский код:

Если i-ый символ строки buf не есть разделитель то
   увеличим счетчик количества букв в строке
в другом случае
  если (символ перед  i-ым элементом строки buf был не разделителем) и (i не является единицей) то
      увеличим счетчик количества слов в строке

Может так будет понятнее.

Сообщение отредактировано: Bokul - 11.12.2006 7:16

[Ellsa]

так...написано в твоем сообщении,что если i-тый символ-буква,прибавляем ее...
если i-1-ый элемент не буква и не начало строки,то прибавляем слово....так я поняла?

Сообщение отредактировано: Ellsa - 11.12.2006 7:23

[Bokul]

так...написано в твеом сообщении,что если i-тый символ-буква,прибавляем ее...
если i-1-ый элемент не буква и перед 1-ыи и не начало строки,то прибавляем слово....так я поняла?

Почти...

если i-1-ый элемент не буква

убери не, тогда будет правильно.
У нас есть два множества:
1 разделители
2 не разделители = буквы
=>

символ перед i-ым элементом строки buf был не разделителем

можно заменить на

символ перед i-ым элементом строки buf был буквой

Сообщение отредактировано: Bokul - 11.12.2006 7:31

[Ellsa]

символ перед i-ым элементом строки buf был букой

а почему тогда слово-то прибавляем?

[Bokul]

Мы делаем проверку символа перед i, только чтобы бороться с ситуациями когда несколько разделителей идут в подряд, например

123   1

{три пробела}
Представь что у нас нету этой проверки. Тогда алгоритм упростится до такового:

Если i-ый символ строки buf есть буквой то
   увеличим счетчик количества букв в строке
в другом случае
   увеличим счетчик количества слов в строке

Пройдись с этим алгоритмом по приведенной строке и ты увидишь необходимость делать эту поверку.

[Ellsa]

черт!Я поняла!
неужели в самом деле.

решила вставить процедуру....

program kyrs;
const
   Iscl=',.!?:;- ';
var f1,f2:text;
    kolb,kolc,i:byte;
    str,SourceFile,ResultFile:string;
    procedure schet_slov (var kolc:byte;var str:string);
    var i:byte;
    begin
    if ((pos(str[i-1],Iscl)=0) and ((i-1)<>0)) then
                        inc(kolc);
             if pos(str[length(str)],Iscl)=0 then
                inc(kolc);
                end;
begin
  writeln('‚ўҐ¤ЁвҐ Ё¬п д ©« -Ёбв®з­ЁЄ ');
  readln(SourceFile);
  assign(f1,SourceFile);
  {$I-}
  reset(f1);
  {$I+}
  if IoResult<>0 then
     begin
       writeln('ЋиЁЎЄ  ў Ё¬Ґ­Ё д ©« ');
       readln;
       exit;
     end;
  writeln('‚ўҐ¤ЁвҐ Ё¬п д ©« -१г«мв в ');
  readln(ResultFile);
  assign(f2,ResultFile);
  {$I-}
  rewrite(f2);
  {$I+}
  if IoResult<>0 then
     begin
       writeln('ЋиЁЎЄ  ў Ё¬Ґ­Ё д ©« ');
       readln;
       exit;
     end;
  while not eof(f1) do
        begin
             readln(f1,str);
             kolb:=0;
             kolc:=0;
             for i:=1 to length(str) do
                 if pos(str[i],Iscl)=0 then
                    inc(kolb)
                 else
                 schet_slov(kolc,str);
             writeln(f2,kolb/kolc);
        end;
  close(f1);
  close(f2);
end.

считает неверно.


а меня не забанят за такую "активность"?

Сообщение отредактировано: Ellsa - 11.12.2006 7:51

[Bokul]

              
kolb:=0;
kolc:=0;
 for i:=1 to length(str) do
       if pos(str[i],Iscl)=0 then
          inc(kolb)
       else
             schet_slov(kolc,str);

Ты должна сделать процедуру с всего этого. Посмотри на мой процедурный вариант этой проги, там так и есть.

 writeln(f2,kolb/kolc);

Вместо этой строки поставь то, что написано здесь: Строки в текстовом файле.
Естественно изменив соответствующие переменные.

а меня не забанят за такую "активность"?

За желание знать тут не банят.

Сообщение отредактировано: Bokul - 11.12.2006 8:01

[Ellsa]

блок-схемки теперь мне нарисовать только....=)
но знаки эти я все равно не ставила в ответе.
ты уж извини.

[Bokul]

но знаки эти я все равно не ставила в ответе.

Знаки (форматированный вывод) не главное, главное - эта проверка количества слов на 0

if n<>0 then
   writeln(tr,s/n)
else
   writeln(tr,0);

Без проверки прога вылетит с ошибкой Division by zero в случае, когда n=0.

Сообщение отредактировано: Bokul - 11.12.2006 8:20

[Ellsa]

Знаки (форматированный вывод) не главное, главное - эта проверка количества слов на 0

if n<>0 then
   writeln(tr,s/n)
else
   writeln(tr,0);

Без проверки прога вылетит с ошибкой Division by zero в случае, когда n=0.

никогда еще в жизни не встречалась с такой отзывчивостью.Спасибо.