[Tensh]

Есть задание:

Написать программу, которая инвертирует слова строки, оставляя порядок слов прежним.

Я только только начал изучать этот язык и ещё не совсем всё понимаю.
Нужно сделать программу используя такие функции как Copy, Pos, Insert и т.д.
Но вот как их объединить не понятно.
Заранее спасибо.

[Кодер]

Поподробнее пожалуйста, транслит нужно?

[lmikle]

Да не. просто инвертация строки.
Собственно, что надо:
1. Надо разбить строку на слова.
2. Каждое слово инвертировать (написать буквы в обратном порядке).

Для первого надо спользовать функции Pos и Copy.
второе пишется примерно так:

Код:

function InvertString(S : String) : String;
var
  I : Integer;
begin
  Result := '';
  For I := Length(S) Downto 1 Do 
    Result := Result + S[i];
end;

[ЖабаДушитКота]

Ээ.. Вот так? Прошу прощения за небольшой плагиат

Код:

function InvertWord(s: ShortString): String;
var
  I : Integer;
begin
  Result := '';
  For I := Length(S) Downto 1 Do
    Result := Result + S[i];
end;

function InvertString(s: String): String;
var
  b: Byte;
begin
  Result:='';
  b:=Pos(' ',s);
  While b<>0 do begin
    Result:=Result+InvertWord(Copy(s,1,b-1))+' ';
    If b=Length(s) then exit;
    s:=Copy(s,b+1,Length(s));
    b:=Pos(' ',s);
  end;
  Result:=Result+InvertWord(s);
end;

Работает вне зависимости от наличия пробелов в начале или конце строки.