задача на строки

[Ananim-Pbl6ak]

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

[Sazary]

Так?

uses crt;

var
s,outs : string;
i,len : integer;
ch : char;

begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
write('Vvedite simvol: ');
readln(ch);
writeln('---------');

outs := '';
len := length(s);
for i:=1 to len do
 begin
 if s[i]=ch then
   while s[i]<>' ' do
    begin
    i := i+1;
    if i=len then break;
    end
 else outs := outs + s[i];
 end;

writeln(outs);

readln;
end.

[Ananim-Pbl6ak]

теперь можно расписать что от куда для чего?

[Sazary]

outs := '';
len := length(s);     - запоминаем длину строки
for i:=1 to len do    - посимвольно идем от начала строки к концу
 begin
 if s[i]=ch then       - если текущий символ является искомым, то...
   while s[i]<>' ' do   - посимвольно идем, пока не встретим пробел
    begin
    i := i+1;
    if i=len then break;   -если достигли конца строки - выходим из цикла
    end
 else outs := outs + s[i];  - пишем символ в выходную строку
 end;

[Ananim-Pbl6ak]

а можно ее с помощью Delete сделать который даляет из строки S подстроку дли-ной Len, начиная с позиции Start. В результате строка S модифицируется (изменяется), следовательно, в качестве S не может быть ис-пользована бес-типовая строко-вая константа

[Sazary]

Ananim-Pbl6ak С помощью delete:

uses crt;

var
s : string;
i,k : integer;
ch : char;

begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
write('Vvedite simvol: ');
readln(ch);
writeln('---------');

i:=1;
while true do
 begin
  if s[i]=ch then
   begin
   k := pos(' ',copy(s,i,length(s)-i));

   if k=0 then
    begin
    k:=length(s)-i+1;
    delete(s,i,k);
    break;
    end;
   delete(s,i,k);
   end

  else
   begin
   k := pos(' ',copy(s,i,length(s)-i));
    if k=0 then break;
    i := i+k;
   end;

 {--}
 if keypressed then break;
 end;


writeln;
writeln(s);

readln;
end.

[Ananim-Pbl6ak]

а что переменные i и k обозначают?

[Sazary]

а что переменные i и k обозначают?

Они указывают на определенные позиции в строке. (то есть на символы)

[Ananim-Pbl6ak]

слов в тексте? можно так же расписать пояснительный текс а то что то не очень понятны действия некоторые

[Sazary]

uses crt;

var
s : string;
i,k : integer;
ch : char;

begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
write('Vvedite simvol: ');
readln(ch);
writeln('---------');

i:=1;           
while true do        - вход в цикл
 begin
  if s[i]=ch then      - если символ является искомым, то...
   begin
   k := pos(' ',copy(s,i,length(s)-i));    - k указывает на первый пробел после слова(которое сейчас удалим)

   if k=0 then                  - если после слова нет пробела, значит это последнее слово в строке
    begin
    k:=length(s)-i+1;        - теперь k указывает на последний символ строки
    delete(s,i,k);             - удаляем слово
    break;                      - выходим из цикла (все что надо удалено)
    end;
   delete(s,i,k);            - если после слова пробел, то удаляем слово
   end

  else                         - если символ не является искомым (т.е. слово не надо удалять), то...
   begin
   k := pos(' ',copy(s,i,length(s)-i));   - k указывает на первый пробел после слова
    if k=0 then break;                      - если пробел не найден, значит слово последнее
    i := i+k;                                   
   end;

 {--}
 if keypressed then break;          - это на всякий случай. Можно удалить. Использовал для защиты от зацикливания.
 end;


writeln;
writeln(s);

readln;
end.