Задача со строковым типом

[dcLout]

Даны символы S1,... Sn. Известно, что символ S1 отличен от пробела и что среди S1, S2,... имеется хотя один пробел. Рассматриваются S1,... Sn - символы, предшествующие первому пробелу (n заранее неизвестно). Преобразовать последовательность.
- Удалить из нее все символы, не являющиеся буквами (латинскими).

[Serge_Bliznykov]

какой язык программирования?
Какие трудности?

можно первую часть написать так:

Delete(S, 1, Pos(' ',S)-1);

или так:

i:=1;
while s[i]<>' ' do inc(i);
Delete(S, 1, i-1);

вариантов, короче - вагон и маленькая тележка!

[dcLout]

Язык паскаль!
Вот код который я написал,но он не доделан

Program z9;
const
A : set of char = ['a'..'z','A'..'Z'];
var
S : string;
i,c,h :integer;
begin
WRiteln('Vvedite stroku simvolov : ');
Readln(S);
 While S[1] ='' do
  begin
   Writeln('Ne pravilno vvedena stroka,vvedite druguy');
   Readln(S);
  end;
h := pos('',S);
c := h+length(S)+1;
delete(S,h,c);
   For i := 1 to h-1 do
     begin
       If  Then
        begin
         S :=S[i];
        end;
     end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Sna1L]

для начала:
'' - не является пробелом.

Цикл for тут не прокатит, поскольку при удалении символов длина строки будет меняться.
Напишите примерно как указал человек во втором сообщени:

while s[i]<>' ' do
    begin
    if not ( s[i] in ['a'..'z','A'..'Z'] ) then 
           delete(s,i,1)
    else //обязательно из-за смещения
           inc(i);
    end;

А дальше просто удалите все после i

[Serge_Bliznykov]

удаление написано НЕПРАВИЛЬНО! Вы удаляете ПОСЛЕ пробела, а надо - ДО!

дальше, если Вы уже делаете проверку на корректность введённой строки, так сделайте её законченной - проверяйте не только, что первый символ - не пробел, но и то, что пробел в строке имеется!

а в целом - нормально. вполне нормально мыслите!

[dcLout]

О спасибо друзья,сейчас попробую!

[Serge_Bliznykov]

ну, и чтобы было интереснее. после того, как закончите свой вариант
можете посмотреть на один из вариантов решения (я набросал свой, на основе вашего кода):

Program z9;
const
A : set of char = ['a'..'z','A'..'Z'];
var
S : string;
i,h :integer;
begin
  WriteLn;
  repeat
    Write('Vvedite stroku simvolov : ');
    Readln(S);
    h := Pos(' ', S);
    if (Length(S)<1) then 
        Writeln('Ne pravilno vvedena stroka: ona ne dolgna byt` pustoy! Poprobyyte eshe raz!')
    else
      if (S[1]=' ') or ( h=0 ) then begin
        h:=0;
        Writeln('Ne pravilno vvedena stroka: pervyi symvol doljen byt` ne probel, no probel v stroke dolgen byt`! '); 
        Writeln('Poprobyyte eshe raz!');
      end;
  until (Length(S)>0) and (h>0);

  {удалим из строки все символы, предшествующие первому пробелу }
  delete(S,1,h-1);


  {Удалить из нее все символы, не являющиеся буквами (латинскими). }
  for i:=Length(S) downto 1 do
    if Not (S[i] in A) then Delete(S, i, 1);

  WriteLn('Resultat: ',S);

  Readln;
end.

p.s.

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

Цикл for тут не прокатит, поскольку при удалении символов длина строки будет меняться.

Sna1L прав. Но я показал, как можно обойти эту проблему, использовав цикл FOR ("трюк" в том, что движемся от конца строки к началу. Поэтому удаляемые символы (изменяющаяся длина строки) не оказывают влияние на цикл.. но можно и через while/Repeat решить эту же задачу. Любой вариант подойдёт ( если он корректный, конечно )