Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 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
execom
Редкий тунеядец
Форумчанин
 
Аватар для execom
 
Регистрация: 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.
{Конец}
execom вне форума
Старый 03.12.2006, 00:30   #3
Виктория
 
Регистрация: 28.11.2006
Сообщений: 2
По умолчанию

Спасибо...
Виктория вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сложная задача 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