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

[Ellsa]

что-тоо я неочень поняла свои ошибки...только одну нашла...и лишний цикл бегин и енд...ты то напечатал?

[Bokul]

ты то напечатал?

Да, его я убрал.

что-тоо я неочень поняла свои ошибки...только одну нашла...

Ну с ошибками я погорячился, но одну из-за которой прога, вылетает не отработав до конца, видно отчётливо:
Для чего ты в цикле закрываешь файл?

           
close(f1);
close(f2)

Исправив это, хоть увидишь, что она делает...

Сообщение отредактировано: Bokul - 9.12.2006 22:33

[Ellsa]

Bokul


черт,спасибо большое! А если у меня будет опять ошибка 104:?Файл недоступен для чтения?

я повешусь тогда....
а как тут плюсики поставить?Или нельзя?

[Bokul]

А если у меня будет опять ошибка 104:?Файл недоступен для чтения?

То приходи еще

а как тут плюсики поставить?Или нельзя?

Какие плюсики?

[мисс_граффити]

к репутации
Ellsa, ты пока что сама не можешь - мало сообщений.

[Ellsa]

я приду еще с домашним заданием за весь курс....
ну надеюсь,я смогу его сделать....ну если не сегодня,то до 24-го-то....
а чем может быть вызвана ошибка 104?Я ввожу с расширенем,и с кавычками пробовала и без....и файл в папке лежит,что я указываю....
а плюсики-репутация....я ждумала это как респекты на многих форумах.

[Bokul]

а чем может быть вызвана ошибка 104?Я ввожу с расширенем,и с кавычками пробовала и без....и файл в папке лежит,что я указываю....

А что ты вводишь и где лежит файл с данными? У меня твоя прога отработала, хоть и с не правильным результатом, ну это уже пустяки...

а плюсики-репутация....я ждумала это как респекты на многих форумах.

И в нас такое есть...

Сообщение отредактировано: Bokul - 9.12.2006 22:44

[Ellsa]

у тебя неправильно отработала та прога,что ты исправил?ТО есть она неверна?
а я указываю как у вас тут кто-то указывал в какой-то теме
C:\pascal.txt

[Bokul]

у тебя неправильно отработала та прога,что ты исправил?ТО есть она неверна?

Не понял. Та, что полностью моя, работает отлично, в твоей же я только сделал форматирование и убрал пару очевидных ошибок. С алгоритмом я не разбирался...

а я указываю как у вас тут кто-то указывал в какой-то теме C:\pascal.txt

А файл с таким именем там есть?
+
исправь в своем коде

assign(f2,'d:\result.txt');

на путь, где ты хочешь получить файл-ответ, например с:\result.txt, у тебя нету, наверное, диска d
и

write(f2,sred);

на
writeln(f2,sred);

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

[Ellsa]

спасибо.Я попробую сегодня ночью еще.
Большое всем спасибо!

[Bokul]

Вот моя прога без функций:

uses crt;
const
   Separators=',.!? ';
var ts,tr:text;
    s,n,i:byte;
    buf,SourceFile,ResultFile:string;
begin
  clrscr;
  writeln('Enter the path to source file');
  readln(SourceFile);
  assign(ts,SourceFile);
  {$I-}
  reset(ts);
  {$I+}
  if IoResult<>0 then
     begin
       writeln('SourceFile does not exist');
       readln;
       exit;
     end;
  writeln('Enter the path to result file');
  readln(ResultFile);
  assign(tr,ResultFile);
  {$I-}
  rewrite(tr);
  {$I+}
  if IoResult<>0 then
     begin
       writeln('Cannot create result-file');
       readln;
       exit;
     end;
  while not eof(ts) do
        begin
             readln(ts,buf);
             s:=0;
             n:=0;
             for i:=1 to length(buf) do
                 if pos(buf[i],separators)=0 then
                    inc(s)
                 else
                     if ((pos(buf[i-1],separators)=0) and ((i-1)<>0)) then
                        inc(n);
             if pos(buf[length(buf)],separators)=0 then
                inc(n);
             writeln(tr,s/n:0:2);
        end;
  close(ts);
  close(tr);
end.

Сообщение отредактировано: Bokul - 9.12.2006 23:28

[Ellsa]

и все-таки знаете...никак от ошибки 104 не могу избавится...
уже почти несмешно....все-таки в пн сдавать....а он находит файл,но открыть для чтения не может,если я правильно понимаю....
ну подскажите что-нибудь,пожалуйста!

[Bokul]

никак от ошибки 104 не могу избавится...

Возьми мой код, или там тоже самое?

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

[Ellsa]

ну ведь у тебя она шла....твоя прога работает и работает даже в моими файлами.И я не могу понять,почему моя не работает с ними.Ты говорил,что моя у тебя пошла,хоть и результат неверн был...

[Bokul]

Ты говорил,что моя у тебя пошла,хоть и результат неверн был..

Так оно и есть. Попробуй запустить это:

 
var str1,str2,imya1,imya2:string;
    f1,f2:text;
    kol,k,i,n:integer;
    sred,c:integer;
begin
  writeln('vvedite imya fajla:');
  readln(imya1);
  assign(f1,imya1);
  {$I-}
  reset(f1);
  {$I+}
  if IOResult<>0 then
     begin
          writeln('owibka v imeni fajla-source');
          readln;
          exit;
     end;
  assign(f2,'c:\result.txt');
  {$I-}
  rewrite(f2);
  {$I+}
  if IOResult<>0 then
     begin
          writeln('owibka v imeni fajla-result');
          readln;
          exit;
     end;
  while not(eof(f1)) do
        begin
             readln(f1,str1);
             n:=length(str1);
             i:=1;
             kol:=0;
             while i<=n do
                   begin
                        k:=0;
                        repeat k:=k+1;
                               i:=i+1;
                        until (str1[i]=' ') or (i>n);
                        kol:=kol+k;
                        i:=i+1;
                   end;
            writeln(kol);
            for i:=1 to n do
                if (str1[i]=' ') then c:=c+1;
            if (str1[1]=' ') then c:=c-1;
            if (str1[n]=' ') then c:=c-1;
            writeln(c+1);
            sred:=trunc(kol/(c+1));
            writeln(f2,sred);
        end;
close(f1);
close(f2);
readln;
end.

[Ellsa]

зачем ты пишешь
readln
exit
и в самомо конце еще readln?
что это дает?

[Bokul]

что это дает?

Делает задержку. Программа не будет выполнятся дальше, пока ты не нажмешь на Enter. Для чего надо? Без задержки, в случае возникновения ошибки, например здесь,

  if IOResult<>0 then
     begin
          writeln('owibka v imeni fajla-source');
          readln;
          exit;
     end;

ты бы не успела увидеть вывод твоего сообщения writeln('owibka v imeni fajla-source');, для тебя прога просто бы закрылась. А по какой причине, ты бы не узнала. Попробуй специально ввести неверный путь к файлу, з readln, а потом - без. Увидела разницу?

Ну как, не было 104-ой?

[Ellsa]

ошибку вроде твоя не выдает,но считает неправильно... у меня цикл работал...а теперь нет....странно....
но...
что ты изменил такого значительного,что открывает файл?
Просто readln и exit добавил....
не понимаю... =(
мне просто отладку надо будет писать еще....

[Bokul]

что ты изменил такого значительного,что открывает файл?

assign(f2,'c:\result.txt');
Было d, прога нормально открывала файл данных, но она не могла создать файл-ответ.

но считает неправильно

Я ж тебе уже давно говорил.

у меня цикл работал...а теперь нет....странно....

В цикле я ничего не менял, он как был не рабочим, таким и остался...

Сообщение отредактировано: Bokul - 10.12.2006 21:35

[Ellsa]

просто дело в том,что цикл работал и считал правильно для одной строки....безошибочно...а теперь....
а про диск c...
я его и в своей проге уже меняла...все равно не открывал....я не понимаю...
не понимаю,что ему там не нравилось.

утопия какая-то....