Нужна помошь в решение задачи!..По теме Файлы, не знаю как решать! Опции

[F@RTEM]

Тема:Файлы(текствовые);
ЗАДАЧА:
Дан текст, в котором есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок.

Причём нужна брать текст из файла вывести на экран...
А в тесте несколько строчек!
Нужен Текст задачи!!
P.S.
Лучше решить задачу в делфи...
Но можно и в паскале...сам потом передалаю

ЗАРАНЕЕ спасибо!!

[Tan]

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

Uses crt;
Const filename = 'Data.txt';
Var f : Text;
    s : string;
    i : integer;
   openn,closee : boolean;
begin
Clrscr;
assign (f,filename);
Reset (f);
while not eof(f) do
  begin
    readln (f,s);
      openn := False;
      Closee := False;
      writeln;
      for i := 1 to Length(S) do
                     begin
                        if s[i] = '(' then openn := True else if s[i] = ')' then Closee := True;
                        if (Openn and Not(Closee)) and  (s[i] <> '(') then write (s[i] : 2);
                      end;
   end;
Close (f);
readkey;
end.

Сообщение отредактировано: Tan - 16.06.2007 18:42