в чем дело?
Полная версия: Bs
выдает - "ошибка листинга"
в чем дело?
в чем дело?
Значит, ошибка листинга...
Ты на какой ответ надеешься вообще? Телепатов ищешь? Что за BS? Какая версия? Текст программы? Это все нам надо догадаться?
Ты на какой ответ надеешься вообще? Телепатов ищешь? Что за BS? Какая версия? Текст программы? Это все нам надо догадаться?
Цитата(volvo @ 5.04.2007 18:58) 
Значит, ошибка листинга...
Ты на какой ответ надеешься вообще? Телепатов ищешь? Что за BS? Какая версия? Текст программы? Это все нам надо догадаться?
Это программа для составления блок-схем по написанной программе.
Версия 1.0
Текст программы не важен, потому что он 100%-но правельный.
Ну, тогда ВСЕ блоки Var и Const удаляй, и первую строку каждой процедуры/функции/основной программы комментируй !\, а после последней строки тех же самых процедур - добавляй \\
не пашет..
У меня все отработало (даже на рекурсивной процедуре)... Если не хочешь показывать свою программу - извини, помочь тебе больше нечем...
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.
Исходник как положено отформатировать можно было? Вот так запусти, все прекрасно рисуется:
Код
!\ 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.
\\
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.
\\
я вот не пойму.
это мне надо в самой программе писать? или как?
если да, то не пашет - только что приверил.
это мне надо в самой программе писать? или как?
если да, то не пашет - только что приверил.
Блин... Что ты за человек-то такой? Я, наверное, тоже проверил, как ты думаешь?
Смотри:
Смотри:
всё. я разобрался. я изменения делал в самом файле *.pas (потому что при browse требовался файл с таким расширением). это меня и сбило с толку.
спасибо за помощь.
спасибо за помощь.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.