с клавитуры водится срока,удалить из нее все звездочки.

[skrino]

с клавитуры водится срока,удалить из нее все звездочки.
помогите срочно!!!!

[Mad_Cat]

while pos('*',s)<>0 do delete(s,pos('*',s),1);

[Arigato]

Не рациональное решение, рациональнее так:

res := '';
for i := 1 to Length (s) do
  if s[i] <> '*' then res := res + s[i];

[Mad_Cat]

Не рациональное решение

зато у меня именно "удаление" а не
"получение новой строки без '*' " ) хотя черт его знает чего там у процедуры в "кишках")

[Poma][a]

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

Не рациональное решение

зато более эффективное! ваша программа будет проверять каждый символ.

А

Не рациональное решение

просто найдет *
З.Ы только единственное может на самом деле лучше в строку загонять. т.к. нужно будет удалить, потом сдвинуть массив, так что наверно лучше в строку

[Arigato]

Poma][a, а функция Pos, по вашему, каждый символ не проверяет.
Я поясню нерациональность:
1. Для каждого Pos циклом проходим от 1-го символа до искомого.
2. В коде 2 раза вызывается одна и та же Pos, т.е. число шагов умножаем на 2.
3. Delete для удаления символа производит посимвольный сдвиг строки влево.

[Poma][a]

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

Poma][a, а функция Pos, по вашему, каждый символ не проверяет.

нет не проверяет! почти ВСЕ стандартные процедуры паскаль эффективнее решения в лоб (которое было представлено Вами).

В коде 2 раза вызывается одна и та же Pos, т.е. число шагов умножаем на 2.

Заметим это не мой код

Delete для удаления символа производит посимвольный сдвиг строки влево.

эта проблема тоже была рассмотрена в МОЕМ посте

[Silverstone]

for k:=1 to length(x)+1 do
   begin
      while x[1]='*' do
        delete(x,1,1);
   end;

[Arigato]

Сообщение от Poma][a

нет не проверяет! почти ВСЕ стандартные процедуры паскаль эффективнее решения в лоб (которое было представлено Вами).

Давайте замерим:

const N = 10000;

var
  Str, s, res: string;
  T: Cardinal;
  I, j, p: Integer;

begin
  Str := '';
  for I := 1 to 2048 do
    if Random (5) = 0
      then Str := Str + '*'
      else Str := Str + Chr (32 + Random (95));
  WriteLn (Str);
  T := GetTickCount;
  for I := 1 to N do
  begin
    s := Str;

    {while pos('*',s)<>0 do delete(s,pos('*',s),1);{}

    {res := '';
      for j := 1 to Length (s) do
        if s[j] <> '*' then res := res + s[j];
    s := res;{}

    {repeat
      p := pos ('*', s);
      if p > 0 then delete (s, p, 1);
    until p = 0;{}

  end; {for}
  WriteLn;
  WriteLn (s);
  WriteLn;
  WriteLn ('Time: ', GetTickCount - T);
  ReadLn;
end.

Генерируется строка длинной в 2048 символов, проводится 10000 испытаний. Разкомментируем нужный блок и получим:
1. Решение Mad_Cat у меня отработало за 12484 миллисекунд.
2. Мое решение за 4579 миллисекунды.
3. Еще один вариант с одним вызовом pos (для чистоты эксперимента) за 7578 миллисекунд.

Делайте выводы о решении "в лоб"

[Poma][a]

а если Randomize поставить?