Prosty program we Free Pascalu

Question

Muszę napisać program we Free Pascalu,  który po wczytaniu słowa będzie wyświetlał jego lustrzane odbicie. Jest to zadanie po tematach tablice i łańcuchy (string). Nie mam pojęcia jak sobie z tym poradzić a muszę to dzisiaj wysłać, czy ktoś mógłby mi pomóc?

Answer 1

Psedokod:

Dane: word (string, który masz obrócić), n (długość napisu)

Wyjście: rword (odwrócony string)

Zakładam, że string to tablica [0...,n-1]

rword = "";
for i = n-1 to 0:
  rword = rword + word[i]

 

Przykład:

Niech word = "kot", wtedy:

1. rword = "";
2. i = 3 - 1 => 2
3. rword += 't' // rword == 't', i == 2
4. rword += 'o' // rword == 'to', i == 1
5. rword += 'k' // rword == 'tok', i == 0
6. Koniec

 

Answer 2

Hej!

Spróbuj tak, nie sprawdzalem ale powinno dzialac ;)

var
tekst,tekst_rev:string;
i:integer;

begin

for i:=High(tekst) downto 0 do //ewentualnie i:=Length(tekst)-1
tekst_rev:=tekst_rev+tekst[i];

writeLn(tekst_rev);

end;

Answer 3

uses crt;

var slowo:string;
       k:byte;
       esc:char;
       temp:char;
     
begin
clrscr;
repeat
writeln('Podaj slowo');
readln(slowo);
for k:=1 to length(slowo) div 2 do 
begin
temp:=slowo[length(slowo)-k+1];
slowo[length(slowo)-k+1]:=slowo[k];
slowo[k]:=temp;
end;
esc:=readkey;
until esc=#27;
end.