Jak odwrócić ciągi znaków w Pascalu?

Question

Witam wszystkich!!! Mam pytanie co do programowania w języku Pascal/Dephi. Przygotowuję się bowiem do konkursu informatycznego i pojawiło sie zadanie z odwracaniem ciągu znaków, polegające na wpisaniu do okna konsoli Pascala zdania, które komputer ma odwrócić np.

przed odwróceniem: jan kowalski

po odwróceniu: ikslawok naj

Jak zapisać funkcję wykonującą to zadanie?

Answer 1

Proszę bardzo: http://pascal.kurs-programowania.pl/turbo_pascal,operacje_na_tekstach.html

var s : string;
   tmp : char;
   i : Integer;
begin
 ReadLn(s);
 for i := 1 to Length(s) div 2 do {pętla tylko do połowy napisu}
   begin
     tmp := s[i]; {kopiujemy znak z początku}
     s[i] := s[Length(s) + 1 – i]; {wstawiamy znak z końca na początek}
     s[Length(s) + 1 – i] := tmp; {na koniec wstawiamy kopię znaku z początku}
   end;
  WriteLn(s);
end.

A tak na drugi raz to się troszku bardziej postaraj i spróbuj znaleźć samemu, pełno tego w internecie :)