опять я неправа думаю.

Ни в коем случае: первая показывает, поле какой ширины отдавать на ВСЁ число, а вторая - сколько из этого количества пойдет на представление дробной части...

Точно..

В чем ты не права? Я не понял, что ты хотела сказать. Просто старайся меньше использовать "..."

зачем ((i-1)<>0)) ?


а нет проги,которая бы сделала мне блок - схему,зная прогу?
Обратную я просто видела когда-то в интернете...

Bokul слушай,а ты учебник издать не хочешь?

Цикл идет от 1 и до длинны строки.
В следующим коде

(pos(buf[i-1],separators)=0)

как ты думаешь какой символ хранится в buf[i-1] при i=1? Ответ: там хранится длинна строки. Если интересно то ord(buf[0]) тоже самое, что и length(buf). Так вот, было бы не правильно, если бы мы попытались обратится к этому числу, как к символу, и чтобы не делать этой ошибки я и сделал эту проверку.


Есть Программа построения блок-схем

Сильно сомневаюсь, просто одну и туже схему можно реализовать многими способами.

я правда видела....
блин,спасибо тебе громадное!А по каким книгам ты это все изучал?или ты по паскалю просто шарил?
Так все хорошо объяснять...почему не ты у меня преподаешь!!!!!!
я бы весь паскаль выучила....

Форум этот научил, за что ему спасибо Потусуешься здесь, сама начнешь понимать . Так что не пропадай...

программа работает,но я не понимаю....опознование разделителя и не разделителя выглядят одинаково?

Конечно нет. Как ты думаешь эта строка определяет разделитель или не разделитель?

pos(buf[i],separators)=0

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

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

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

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

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

Почти...

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

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

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

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

123   1

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

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

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

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

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

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.

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


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

              
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);

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

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

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

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

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

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

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