Bs Опции

[Connected]

выдает - "ошибка листинга"
в чем дело?


Сообщение отредактировано: Connected - 5.04.2007 21:52

[volvo]

Значит, ошибка листинга...

Ты на какой ответ надеешься вообще? Телепатов ищешь? Что за BS? Какая версия? Текст программы? Это все нам надо догадаться?

[Connected]

Значит, ошибка листинга...

Ты на какой ответ надеешься вообще? Телепатов ищешь? Что за BS? Какая версия? Текст программы? Это все нам надо догадаться?

Это программа для составления блок-схем по написанной программе.
Версия 1.0
Текст программы не важен, потому что он 100%-но правельный.

[volvo]

Ну, тогда ВСЕ блоки Var и Const удаляй, и первую строку каждой процедуры/функции/основной программы комментируй !\, а после последней строки тех же самых процедур - добавляй \\

Сообщение отредактировано: volvo - 5.04.2007 22:28

[Connected]

не пашет..

[volvo]

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

[Connected]

uses 
        crt;
var 
     i,a : integer;
     s   : string;
begin 
         clrscr;
         begin
                  readln(s);
                  for i:=1 to length(s)do begin
                  if (s[i]=' ') and (s[i+1]=' ') then begin
                 a:=i;
         repeat
                   delete(s,a,1);
         until 
                (s[a+1]<>' ');
                                    end;
         end;
        writeln(s);
        readln;
 end;
 END.

[volvo]

Исходник как положено отформатировать можно было? Вот так запусти, все прекрасно рисуется:

Код

!\ begin
  clrscr;
  readln(s);
    for i:=1 to length(s) do begin
      if (s[i]=' ') and (s[i+1]=' ') then begin
        a:=i;
        repeat
          delete(s,a,1);
        until (s[a+1]<>' ');
      end;
    end;

  writeln(s);
  readln;

end.
\\

[Connected]

я вот не пойму.
это мне надо в самой программе писать? или как?
если да, то не пашет - только что приверил.

[volvo]

Блин... Что ты за человек-то такой? Я, наверное, тоже проверил, как ты думаешь?

Смотри:

[Connected]

всё. я разобрался. я изменения делал в самом файле *.pas (потому что при browse требовался файл с таким расширением). это меня и сбило с толку.

спасибо за помощь.

Сообщение отредактировано: Connected - 5.04.2007 23:32