Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Поменять первую и вторую букву каждого слова.

[danteone]

неважно либо в дельфи либо в паскале
Цель работы: Используя процедуры и функции обработки строк, произвести необходимые операции над строками
Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Поменять первую и вторую букву каждого слова.

[fbus]

а в чем собственно проблема?
нужно программу за Вас написать?

[Valio]

1. Найти позицию пробела k. Если пробелов нет, то выход.
2. Проверить k + 1 и k + 2. Если там пробелы, то к пункту 1.
3. Меняем местами. К пункту 1.

[danteone]

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

1. Найти позицию пробела k. Если пробелов нет, то выход.
2. Проверить k + 1 и k + 2. Если там пробелы, то к пункту 1.
3. Меняем местами. К пункту 1.

нужно написать программу, я не очень хорошо в этом шарю))

[Last]

442195139
Добавляйтесь в аську, за 100 р сделаю вечером.

[danteone]

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

[denisbrain]

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

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

{

Цель работы: Используя процедуры и функции обработки строк, произвести необходимые операции над строками
Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Поменять первую и вторую букву каждого слова.
}
const
  WordChars:set of Char =['А'..'Я','а'..'я','A'..'Z','a'..'z','0'..'9','-']; // символы из которыйх состоит слово
 
var
   s:string;


{
на примере функции определения кол-ва слов в строке
http://netsoftware.ucoz.ru/news/prostye_zadachi_pascal_abc_opredelit_kolichestvo_slov_v_fajle_funkcija_dlja_pascal_abc/2012-05-18-70
   Function GetWordCount(s:string):integer;
 var y,x:integer;
     s2:string;
begin
  y:=0;
  s2:='';
  for X:=1 to length(s) do begin
    if  (s[x] in WordChars) then begin
       s2:=s2+s[x];
    end
     else begin
       y:=y+1;
      s2:='';
    end
  end;
  if s2<>'' then Y:=y+1;
  GetWordCount:=y;
end;
 }


   Function GetTextToUslovie(s:string):string;
 var start,y,x:integer;
     s2:string;
     ch:char;
begin
  y:=0;
  s2:='';
  start:=x;
  for X:=1 to length(s) do begin
    if  (s[x] in WordChars) then begin
    if s2='' then start:=x;
       s2:=s2+s[x];
    end
     else begin
       y:=y+1;
       if length(s2)>=2 then begin
       ch:=s[start];
       s[start]:=s[start+1];
       s[start+1]:=ch;
       end;
       start:=x;
      s2:='';
    end
  end;
  if s2<>'' then Y:=y+1;
  GetTextToUslovie:=s;
end;
   begin
    s:='неважно либо в дельфи либо в паскале Цель работы: Используя процедуры и функции обработки строк, произвести необходимые операции над строками Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Поменять первую и вторую букву каждого слова.';
    Writeln(GetTextToUslovie(s));
   end.