|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
02.12.2006, 23:15 | #1 |
Регистрация: 28.11.2006
Сообщений: 2
|
Матерые программисты решите!!!
Дана строка символов, среди которых есть одна раскрывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри скобок. Пример строки: 1 2 3 ( 4 5 6 ) 7 8 9 0 Заранее спасибо!!! Пыталась сделать но не получилось....Знаю что должно быть что-то вроде этого!! var s:string; begin readln(s); writeln( copy(s, succ(pos('(', s)), pred(pos(')', s) - pos('(', s))) ); readln; end. - напишите полный код...и что-бы вид был нормальный.....спасибо!!! Последний раз редактировалось SuperVisor; 03.12.2006 в 17:07. |
02.12.2006, 23:49 | #2 |
Редкий тунеядец
Форумчанин
Регистрация: 29.10.2006
Сообщений: 595
|
{Что-то вроде этого Единственное,
что если в строке будет несколко комбинаций скобок то он отобразит последнюю и если скобки не закрыты то вообще не выводится. Хотя в принципе эти условия не оговаривались} Program SKOBKI; var a,b,c,d,e:integer; st:string; begin write('CTPOKA--> '); readln(st); for a:=1 to length(st) do if st[a]='(' then c:=a+1; for b:=1 to length(st) do if st[b]=')' then d:=b-1; for e:=c to d do write(st[e]); readln; end. {Конец} |
03.12.2006, 00:30 | #3 |
Регистрация: 28.11.2006
Сообщений: 2
|
Спасибо...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сложная задача | asale | Microsoft Office Excel | 6 | 07.04.2009 20:36 |
Слишком сложная формула | RUBEY | Microsoft Office Excel | 1 | 21.07.2008 18:51 |
Сложная работа | Hallo | Фриланс | 3 | 09.01.2007 16:19 |