Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
LifeWind
4 / 4 / 2
Регистрация: 13.09.2012
Сообщений: 36
#1

Список и строка: Проверить, что открывающих и закрывающих квадратных скобок в строке одинаково - Free Pascal

17.01.2013, 20:15. Просмотров 280. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста решить вот эту задачку http://www.cyberforum.ru/free-pascal/thread756026.html ,но используя список, а не стэк
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.01.2013, 20:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Список и строка: Проверить, что открывающих и закрывающих квадратных скобок в строке одинаково (Free Pascal):

Стэк и строка: Проверить, что открывающих и закрывающих квадратных скобок в строке одинаково
Ввести строку и занести ее в стек(procedure push, pop). Проверить , что...

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

Проверить, имеется ли в формуле баланс открывающих и закрывающих скобок
Задача на обработку текстовых данных: Проверить, имеется ли в формуле баланс...

взаимно однозначное соответствие открывающих и закрывающих скобок
Проверить, имеется ли в заданном тексте баланс открывающих и закрывающих...

Составить процедуру подсчета отдельно открывающих и закрывающих скобок
Составить процедуру подсчета отдельно открывающих и закрывающих скобок в каждой...

Баланс открывающих и закрывающих скобок в выражении (Перевод программы в процедуру)
program Balance; uses crt; var s: string; dlina, flag, i : integer;...

2
Bringoff
СуперМодулятор
133 / 132 / 48
Регистрация: 03.11.2012
Сообщений: 974
18.01.2013, 18:36 #2
Лучший ответ Сообщение было отмечено LifeWind как решение

Решение

Список
А элементарно, "влоб", через строку не пойдет?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
 s:string;
 index,i:integer;
  begin
   Readln(s);
   for i:=1 to length(s) do
    begin
     if s[i]='[' then inc(index);
     if s[i]=']' then dec(index);
    end;
    if index=0 then Writeln('Yes')
    else Writeln('No');
  end.
0
LifeWind
4 / 4 / 2
Регистрация: 13.09.2012
Сообщений: 36
18.01.2013, 18:54  [ТС] #3
Цитата Сообщение от Izobara Посмотреть сообщение
А элементарно, "влоб", через строку не пойдет?
нет, надо именно через список
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.01.2013, 18:54
Привет! Вот еще темы с решениями:

Проверить баланс скобок в строке
Дана строка символов s, в которой могут быть скобки двух типов круглые и...

Проверить баланс расстановки скобок в строке
Дана строка, содержащая несколько круглых скобок. Если скобки расставлены...

Ввести произвольный текст. Проверить, в заданном тексте количество открытых скобок равно количеству закрытых скобок.
Помогите сделать задачу: Ввести произвольный текст. Проверить, в заданном...

Проверить, содержится ли строка S0 в строке S
Даны строки S и S0. Проверить, содержится ли строка S0 в строке S. Если...


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

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

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