Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ применение строк при решении задач

Автор: Happy User!!! 1.12.2006 3:51

Помогите:
Дана строка символов, среди которых есть одна раскрывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри скобок.

Автор: мисс_граффити 1.12.2006 4:04

идешь циклом от позиции открывающейся скобки до позиции закрывающейся.

Автор: Happy User!!! 1.12.2006 4:21

Напиши пожалуйста код,очень нужно......а то не получается сделать!!!

Автор: мисс_граффити 1.12.2006 4:25

а ты пробовал?
что-то я не представляю, что здесь может не получиться.
Для определения положения скобок используют ф-цию pos.
цикл - видимо, со счетчиком, раз известно начальное и конечное значение.

в общем, если пробовал - показывай, как именно.

Автор: volvo 1.12.2006 4:27

  writeln( copy(s, succ(pos('(', s)), pred(pos(')', s) - pos('(', s))) );

rolleyes.gif

Автор: Happy User!!! 1.12.2006 4:30

Я щас на работе...мне очень нужно решить эту программу....ПОЖАЛУЙСТА....желательно полный код

Автор: volvo 1.12.2006 4:33

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

Цитата
Вывести на экран все символы, расположенные внутри скобок
- я показал, как это делается... Строка у тебя ДАНА, ты же не показываешь, КАК ИМЕННО она дана... С чего я тебе должен показывать код полностью?

Автор: Happy User!!! 1.12.2006 4:41

строка данна случайна..т.е. ты ее сам набираешь.
Вот к примеры к этой строке 1 2 ( 3 4 ) 5

Автор: Bokul 1.12.2006 9:47

Happy User!!!, советую почитать Faq yes2.gif


var s:string;
begin
readln(s);
writeln( copy(s, succ(pos('(', s)), pred(pos(')', s) - pos('(', s))) );
readln;
end.


Автор: Happy User!!! 1.12.2006 21:18

спасибо....