РЕБЯТА! Delphi

[Marika Polskyh]

спс но очень мудренно не катит (( по проще никак?
s:='asdfr. dfgdfdg. fdfd fdfdf.'; // это наш текст это
именно его я буду писать, а если мне что то другое писать?

[ByAlex]

Сообщение от Marika Polskyh

спс но очень мудренно не катит (( по проще никак?
s:='asdfr. dfgdfdg. fdfd fdfdf.'; // это наш текст это
именно его я буду писать, а если мне что то другое писать?

В строку s вы можете написать что угодно. Главное, чтобы после слов были точки - они заканчивают предложения.

[Marika Polskyh]

Дано символьний рядок S. Вважаємо, що в послідовності є"(" та ")". Вилучити з послідовності символи, розматашовані між дужками, разом з дужками
срочно надо уже экзамен

[Vanta11a]

[offtop]А нам все равно, а нам все равно, пусть боимся мы волка и сову...[/offtop]

Вам уже не раз говорили, ПЕРЕВОДИТЕ ЗАДАНИЕ НА РУССКИЙ ЯЗЫК!

[Marika Polskyh]

Дано символьная строка S. Считаем, что в последовательности есть "(" и ")". Исключить из последовательности символов розматашовани между скобками, вместе со скобками

[Marika Polskyh]

S O S HELP)))

[Vanta11a]

Способ первый, тупой, "в лоб".

repeat
sk_op_found := false;
sk_cl_found := false;
for i:=1 to lenght(s) do
begin
if s[i] = '(' then
begin
sk_op_found := true;
sk_op_pos := i;
end;
if (s[i] = ')') and (sk_op_found = true) then
begin
delete(s,sk_op_pos,lenght(s) - sk_op_pos + 1);
sk_cl_found := true;
end;
if (sk_cl_found = true) then 
begin
sk_cl_found := false;
break;
end;
end;
until (sk_cl_found <> true);

Обвязку (объявление переменных, ввод/вывод строки) писать не буду из принципа. Подскажу лишь, что переменные вида sk_*_found типа boolean, а pos расшифровывается как position, т.е. позиция.

Также код может (и, скорее всего, содержит) баги и глюки, ибо написан в браузере.

[Marika Polskyh]

Var
S: String;
k: integer;
p: integer;
begin
s:=edit1.text;

k:= pos ('(',S );
p:= pos (')', S)
while pos('(',S) > 0 do delete (S,K, p-k+1)

end;

end.

НЕ ТАКОГО ТИПА ТОЛЬКО

[Marika Polskyh]

ну такого типа только оно конечно же не работает((

[Vanta11a]

ЗАБИРАЙТЕ ДОКУМЕНТЫ ИЗ ВУЗА

Матчасть

И да, программа слегка поправлена