Строки Опции

[org777]

Задача в картинке, первая сверху.
Вот то, что сделал я, но оно че-то не катит((( Помогите, а?

Program org;
var c,s1:string;
begin
writeln('Vvedite stroku: ');
readln©;
while(c<>'') do
begin
if pos('absd',c)<>0 then
begin s1:=s1+copy(c,1,pos('abcd',c)-1);
delete(C,1,pos('absd',c)+3); end
else begin s1:=s1+c;
delete(c,1,length©); end;
end;
writeln('s1= ',s1);
readln;
end.

P.S. От этой задачи зависит мой автомат на сессии. Если я ее не сдам - придется экзамен сдавать((( Эту задачу сдать мне надо уже завтра... Помогите пожалуйста

Сообщение отредактировано: org777 - 19.12.2008 19:36

[volvo]

напиши код пожалуйста, если можешь...

Да я-то смогу... Только тогда зачем тебе дано N? Ну ладно, удалить из строки - так из строки...

Program org;
var
  s: string;
  p: integer;
begin
  writeln('Vvedite stroku: ');
  readln(s); { s := 'ab abcd aabcd  bcdabcabcd'; }
  repeat
    p := pos('abcd', s);
    delete(s, p, 4); { <--- Можно добавить условие if p > 0 then, можно и не добавлять }
  until p = 0;
  writeln(s);
  readln;
end.

Update: Да, была небольшая опечатка... Поправил.

Сообщение отредактировано: volvo - 20.12.2008 15:34