Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 14, средняя оценка - 4.93
Gizard
0 / 0 / 1
Регистрация: 08.06.2014
Сообщений: 8
#1

Дана строка символов, среди которых есть одна открывающая и одна закрывающая скобки - PascalABC.NET

08.06.2014, 13:52. Просмотров 3033. Ответов 7
Метки нет (Все метки)

Помогите плиз! Дана строка символов, среди которых есть одна открывающая и одна закрывающая скобки. Вывести на экран все символы, расположенные внутри скобок.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.06.2014, 13:52
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дана строка символов, среди которых есть одна открывающая и одна закрывающая скобки (PascalABC.NET):

На вход программе подается набор символов (в одной строке), среди которых есть хотя бы одна цифра.
На вход программе подается набор символов (в одной строке), среди которых есть...

Дана строка символов, среди которых есть <<->>. Определить, сколько символов от него до конца строки.
Дана строка символов, среди которых есть &lt;&lt;-&gt;&gt;. Определить, символов от него до...

Дано натуральное число n и символы s1, s2, ... sn, среди которых есть хотя бы одна точка
Дано натуральное число n и символы s1, s2, ... sn, среди которых есть хотя бы...

Выяснить, имеется ли у него одна самая короткая строка или таких строк несколько. Вывести одна или не одна.
дaн текстовый файл с произвольным именем. Выяснить, имеется ли у него одна...

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

Заданы три числа. Определить, есть ли среди них хотя бы одна пара одинаковых чисел
Решите, пожалуйста, такую задачу: Заданы три числа. Определить, есть ли среди...

7
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
09.06.2014, 11:54 #2
Pascal
1
For i:=Pos('(',St)+1 to Length(St) do If St[i]<>')' then Write(St[i]) else Break;
0
Sergio Leone
2462 / 1107 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
09.06.2014, 12:14 #3
без цикла не проще?
Pascal
1
  WriteLn( copy(s, Pos('(',s)+1, Pos(')',s)-Pos('(',s)-1 ));
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
09.06.2014, 12:38 #4
не слишком проще...
например как отработает строка?: abc)def(ghi)jkl
0
Sergio Leone
2462 / 1107 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
09.06.2014, 13:16 #5
Цитата Сообщение от APALoff Посмотреть сообщение
Например как отработает строка?: abc)def(ghi)jkl
а Вы задание ВНИМАТЕЛЬНО перечитайте... сколько в строке открывающих и сколько закрывающих скобок.
и вопрос, как отработает - отпадёт
кстати, ошибок не будет - будет пустая строка, т.к. нарушены условия задачи...

p.s. строго говоря, в задании ничего не сказано, как скобки расположены.
поэтому я не уверен, что для строки aaa)bbbb(ddd
ваш код нормально отработает!
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
09.06.2014, 14:38 #6
Да действительно, про количество не заметил.

Цитата Сообщение от Sergio Leone Посмотреть сообщение
что для строки aaa)bbbb(ddd
ваш код нормально отработает!
так же как и ваш - пустой строкой.
0
Gizard
0 / 0 / 1
Регистрация: 08.06.2014
Сообщений: 8
09.06.2014, 19:57  [ТС] #7
я вот ещё сам попробовал написать вот что получилось:
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var s: string;
    i: byte;
begin
writeln('Введите фразу:');
readln(s);
for i:=pos('(',s)+1 to pos(')',s)-1 do
    write(s[i]);
readln;
end.
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
09.06.2014, 20:31 #8
Тогда уж лучше как у Sergio Leone - цикл действительно не нужен.
0
09.06.2014, 20:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2014, 20:31
Привет! Вот еще темы с решениями:

Дана строка символов. Проверить, есть ли в строке полный набор всех цифровых символов
Дана строка символов. Проверить, есть ли в строке полный набор всех цифровых...

Дана строка символов; подсчитать, сколько раз среди символов строки встречается буква "х"
Здрасьте товарищи! спасите от еменуемой пересдачи пожалуйста!я глупая и...

Определить, является ли одна строка подстрокой другой
var t:boolean; i,j:integer; s1,s2:string; begin t:=true; ...

Вывести на экран ученика у которого есть одна задолженность
С клавиатуры водится данные следующей структуры 1. Порядковый номер 2....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru