Проверить правильность расстановки круглых скобок

@symbian159 · Регистрация: 27.12.2012

Студворк — интернет-сервис помощи студентам

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

@vampire6666 · 28.12.2012, 18:16

symbian159,

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var s:string;
    i,j:Integer;
begin
Readln(s); j:=0;
for i:=1 to Length(s) do  begin
if s[i]='(' then j:=j+1;
if s[i]=')' then j:=j-1;
                          end;
 if j=0 then writeln('Vse verno!') else Writeln('Dopushena oshibka!');
 Readln;
end.

@volvo · 28.12.2012, 18:31

Попробуй проверить вот эту строку: '())(' Общий баланс соблюдён, но вложенность - нет. Эту проверку (на J < 0) надо делать внутри цикла.

@Mawrat · 29.12.2012, 01:54

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var
  i, Cnt : Integer;
  S : String;
begin
  S := Memo1.Text;
  Cnt := 0;
  for i := 1 to Length(S) do begin
    if S[i] = '(' then Inc(Cnt)
    else if S[i] = ')' then Dec(Cnt);
    if Cnt < 0 then Break;
  end;
  if Cnt = 0 then
    ShowMessage('Круглые скобки расставлены правильно.')
  else
    ShowMessage('Круглые скобки расставлены неверно.');
end;

@symbian159 · 29.12.2012, 10:26 **[ТС]**

спасибо все работает

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@symbian159 0 / 0 / 0 Регистрация: 27.12.2012 Сообщений: 22

	Проверить правильность расстановки круглых скобок 28.12.2012, 17:31. Показов 1772. Ответов 4 Метки нет (Все метки) помогите пожалуйста. дан текст в котором могут быть круглые скобки. Проверить правильность расстановки круглых скобок 0

@volvo Супер-модератор 33379 / 21503 / 8236 Регистрация: 22.10.2011 Сообщений: 36,899 Записей в блоге: 12
	28.12.2012, 18:31
	Попробуй проверить вот эту строку: '())(' Общий баланс соблюдён, но вложенность - нет. Эту проверку (на J < 0) надо делать внутри цикла. 1

@symbian159 0 / 0 / 0 Регистрация: 27.12.2012 Сообщений: 22
	29.12.2012, 10:26 [ТС]
	спасибо все работает 0