Количество скобок Опции

[Metrax]

И так , условие: в файле iekavas.in хранится последовательность скобок, например )()())( записать в файл iekavas.out сколько скобок лишних (например 3(смотрите выше)) мой код:

program iekavas;
var
 i,j:integer;
 f,f1:text;
 ST:string;
begin
assign(f,'iekavas.in');
assign(f1,'iekavas.out');
reset(f);
while not eof(f) do
 read(f,ST);
i:=1;
while i<>length(ST) do
 if (ST[i]='(') and (ST[i+1]=')') then
    begin
     delete(ST,i,2);
     dec(i);
    end
 else inc(i);
rewrite(f1);
write(f1,length(ST));
close(f1);
end.

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

Сообщение отредактировано: volvo - 2.11.2006 16:50

[volvo]

Во-первых, как ты думаешь, что будет в строке ST после окончания вот этого цикла:

while not eof(f) do
  read(f,ST);

?

А во-вторых: в файле *.IN (если он текстовый) последняя строка должна быть пустая, т.е. если после введенной тобой строки не был нажат Enter, то Паскаль будет делать проблемы...

Тегами, кстати, тоже пользуйся...

[Гость]

Во-первых, как ты думаешь, что будет в строке ST после окончания вот этого цикла:

while not eof(f) do
  read(f,ST);

?

А во-вторых: в файле *.IN (если он текстовый) последняя строка должна быть пустая, т.е. если после введенной тобой строки не был нажат Enter, то Паскаль будет делать проблемы...

Тегами, кстати, тоже пользуйся...

По окончанию цикла в строке будет содержимое файла, если нет то в чем ошибка????? ok можно изменить на writeln(f1,length(ST)) ???????