Строка

["Эльнара"]

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

[_-Re@l-_]

Ну вот можно так определять

Uses CRT;
Var
    x:integer;
    s:string;
    i:integer;
Begin
     readln(s);
     x:=0;
     for i:=1 to length(s) do
     begin
          if Pos('(',s)>Pos(')',s) then
          begin
                write('No!');
                readln;
                exit;
          end;
          if Pos('(',s)<>0 then x:=1;
end;
Write('Yes');
readln;
end.

P.S.Код проверен разными случаями

[Serge_Bliznykov]

Код проверен разными случаями

Уверены?

ну-ка, что для строчки:
())(


"классический" алгоритм заключачается в следующем,
счётчик в ноль.
идём по строке, если встретили открывающую скобку, счётчик увеличиваем на один,
если встретили закрывающую, счётчика уменьшаем на единицу и сразу проверяем - если он меньше единицы, то закрывающая БЕЗ открывающей скобки - сразу NO и выход.
Когда строчка закончилась - счётчик должен быть равен нулю, если равен, баланс скобок верный, если счётчик больше нуля - то есть открытые скобки, для который отсутствуют закрывающие.

Программа элементарная, писать нечего!, тем более тут на форуме это было (и даже в более сложных вариантах).

[_-Re@l-_]

Тогда так:

Uses CRT;
Var
    x:integer;
    s:string;
    i:integer;
Begin
     readln(s);
     x:=0;
     for i:=1 to length(s) do
     begin
          if Pos(')',s)<>0 then
          begin
                x:=x-1;
                if x<=0 then
                begin
                write('No!');
                readln;
                exit;
          end;      end;
          if Pos('(',s)<>0 then x:=x+1;
end;
Write('Yes');
readln;
end.

[ZaRDaK]

Твоя прога постоянно будет выдавать 'No!'
Скорми ей несколько правильных вариантов и увидишь.
А если в cтроке не будет символа ')', то прога всегда будет выдавть 'Yes!'
Скорми ей строку типа '((((('
Перебирать надо не Pos'ом, а
if S[i] = ')' \ if S[i] = '('
Проверяй перед тем, как постиш.

[dxdy]

На тестах долго не проверял, но алгоритм должен быть верен:

#include <iostream>
#include <stack>
using namespace std;

bool CheckString(char *str);
bool QCheckString(char *str);

int main(){
	if( QCheckString("()") )
		cout << "Good" << endl;
	else
		cout << "Bad" << endl;
	return 0;
}

//-------------------
bool CheckString(char *str){
	stack<char> Stack;
	while(*str){
		if(*str == '('){
			Stack.push(*str);
		}
		else{
			if(*str == ')'){
				if( Stack.empty() ){
					cout << "Error" << endl; break;
				}
				else{
					Stack.pop();
				}
			}
		}
		str++;
	}

	return Stack.empty();
}

//---------------------------
bool QCheckString(char *str){
	int Stack = 0;
	while(*str){
		if(*str == '('){
			Stack++;
		}
		else{
			if(*str == ')'){
				if( Stack > 0 ){
					Stack--;
				}
				else{
					cout << "Error" << endl; Stack = -1; break;
				}
			}
		}
		str++;
	}

	return Stack == 0;
}

Две функции, только одна функция реализована через стек, которая в больших проектах должна хорошо себя показать, а вторая просто для примера счетчик int-типа. Возможно и другие алгоритмы...

["Эльнара"]

Спасибо большое вам!..)

["Эльнара"]

Помогите если знаете !! Даны символы S1,....Sn известно, что символ S1 отличен от пробела и что среди S2 S3 имеется хотя бы один пробел .Рассмотримваються S1.....Sn-символы предшествующие первому пробелу. Преобразовать последовательность следующим образом:
а)удалить из нее все символы ,не являющиеся латинскими буквами

[evg_m]

j:=1;
while j<length(s) do
begin
  case s[j] of
 'A'..'Z','a'..'z': j:=j+1;//латинские символы
 ' ': break; // до первого пробела
 else Delete(s,j,1); //все остальное удаляем
end;

Рассмотримваються S1.....Sn-символы предшествующие первому пробелу

Не совсем понятно, что делать с символами после этого пробела
1. оставить на месте (никакой обработки)
2. тоже чистить (зачем тогда это условие)
3. удалить все тогда: ' ': Delete(s,j, length(s));

[_-Re@l-_]

Проверяй перед тем, как постиш.

1.Почитай отзыв, который я тебе написал. Правда до единого слова.
2.Уровень твоего ума несравнимо мал по сравнению с моим.
3. Если убрать знак раво в цикле, становится норм(поставил случайно)

Uses CRT;
Var
    x:integer;
    s:string;
    i:integer;
Begin
     readln(s);
     x:=0;
     for i:=1 to length(s) do
     begin
          if Pos(')',s)<>0 then
          begin
                x:=x-1;
                if x<0 then
                begin
                write('No!');
                readln;
                exit;
          end;      end;
          if Pos('(',s)<>0 then x:=x+1;
end;
Write('Yes');
readln;
end.