Turbo pascal.Строки.

[Avatonk]

Сделал программу по задаче,она должна удалять из введенной строки символы *

program zadacha2;
var
w:string;
n,i:integer;
begin
writeln('Введите тест');
readln(w);
n:=Length(w);
for i:=1 to n do begin if w[i]='*' then delete(w,i,n);
end;
writeln('итог-',w);
readln;
end.

Но,если я напишу что-то типа dateret***** то мне программа выдаёт верный ответ: dateret а если ввожу date*****ret то выдаёт date хотя должна выдавать date ret.

[Lasur]

Я не знаю паскаль, но:

1)Неужели индексация строки начинается с 1, а не с 0?

2)В функции delete 3 параметр указывает кол-во удаляемых символов. Так нафига ты удаляешь всю оставшуюся строку, если тебе нужно удалить этот конкретный символ? То есть 3 параметр не n, а 1.

[Avatonk]

если ставлю 1 то удаляет 3 звёздочки а не все которые напечатаны

[Stilet]

repeat  i:=pos(w,'*'); delete(w,i,1);until i=0;

Сойдет?

[Lasur]

Сообщение от Avatonk

если ставлю 1 то удаляет 3 звёздочки а не все которые напечатаны

Строка ведь сокращается при удалении, соответственно, указатель перескакивает 1 символ. Попробуй после if добавить еще i--

Опоздал, у Stilet код проще)

[Avatonk]

ок,спасибо!

[Serge_Bliznykov]

а ещё можно использовать "классический" приём - в случае, когда удаляются элементы структуры, по которым и идёт цикл (количество элементов при этом уменьшается) то удалять нужно в цикле ОТ конца структуры (от последнего элемента) к началу (к первому элементу).
примерно так:

for i:=n downto 1 do 
  if w[i]='*' then delete(w,i,1);