Помогите решить задачу на паскале, очень нужно:
10-11 класс
|
Дана строка, удалить текст находящийся в скобках (вместе со скобками)
Я тут начал делать, вот только с удалением у меня ничего не получается, напишите как можно сделать
Вот как я делал:
program zd;
uses crt;
var s:string; i,l,n,t,y:integer;
begin
clrscr;
writeln('Введите строку');
readln(s);
l:=length(s);
for i:=1 to n do begin
if s[i]='(' then
t:=i; {здесь присваивал номер найденной скобки}
if s[i]=')' then
y:=i; {так же, как и выше}
delete (s,t,i); {у меня получается, что он удаляет с открывающей скобки и всё что находится вправо, а левая часть до скобки остается нетронутой}
end;
writeln('Данный результат =', s);
readln;
end.
var a, b, i :integer;
s :string;
begin
readln (s);
a:=pos('(',s);
b:=pos(')',s);
if b=0 then write ('ERROR') else
begin
while s[a]<>')' do delete (s,a,1);
delete (s,a,1);
writeln (s);
end;
end.
Случай -----(---- учитывать? (нету правой скобки)
нет, должна быть и открывающая и закрывающая, например:
компьютер (111) апп
а нужно, чтобы осталось только:
компьютер апп
Спасибо всем, кто тоже пытался чем-нибудь помочь ;)
Другие вопросы из категории
содержала путь в формате ОС Unix, то есть заменить каждый символ "\" на символ "/".Путь DOS:
Дано массивы А1(N1,M1), A2(N2,M2), A3(N3,M3). Сформировать одномерные массивы В1, В2, В3, каждый из которых состоит из 2-ух элементов. В первом из них количество положительных элементов массивов А1,А2,А3 соответственно, во втором количество отрицательных элементов массивов А1,А2,А3 соответственно. Определение количества отрицательных и положительных элементов в исходном массиве и формирование одномерного массива осуществить в подпрограмме.
закачал ровно половину файла, скорость увеличилась в три раза. Какое время ему понадобится, чтобы скачать весь файл. Ответ записать в часах, округлив по математическим правилам до целых чисел
Волк и волчонок, медведь и медвежонок, лис и лисёнок решили переправиться с
левого берега реки на правый берег. У них была лодка, в которую помещались
любые двое из них. Как им переправиться на другой берег, если нельзя оставлять
детёнышей с чужими родителями.
Как вернуть всё обратно?помогите пожалуйста
Читайте также
уникальных чисел в массиве....заранее спасибо...
Дана строка.Перенести последнюю букву слова в начало слова
10 этапов соревнований «Формула-1». После 10 этапа участник с порядковым номером 4 выбыл из соревнований. Изменить массив так, чтобы в нем не было результатов бывшего гонщика.
а первом фото 4 с процедурой, 8 с функцией.
На втором фото 8 с рекурсивной процедурой.