Turbo pascal

Zdravim potrebujem do programu zakomponovat takuto vec, chcem aby mi vztupny retazec prepisalo v opacnom poradi, cize zadam napr. krava a vypise mi avark, vopred dik!

Kód: Vybrať všetko

function odzadu(text:string; pismeno:integer);
var p:char;
begin
  if pismeno>length(text) then exit else begin 
    p:=text[pismeno];        
    odzadu(text,pismeno+1);  
  end;
  result:=slovo+p;           
end;

v programe to zavolas ako noveslovo:=odzadu('nejake slovo alebo veta',1);

Diky uz to mam

alebo by sa dalo aj bez rekurzie v cykle:

Kód: Vybrať všetko

for I:=length(slovo) downto 1 do write slovo[i];

Takto som to urobil ja, este mi poradte ako to efektivnejsie urobit, na to baziruju v skole

Program Slovo;
uses Grafika,crt;
var
retazec : String;
pocitadlo : Integer;
znak : Char;
retazec_naopak : String;

begin
clrscr;
WriteLn('Zadaj retazec :');
read (retazec);
retazec_naopak := '';
for pocitadlo := 1 to Length(retazec) do begin
znak := retazec[pocitadlo];
retazec_naopak := znak + retazec_naopak
end;
WriteLn('Retazec naopak je :', retazec_naopak)
end.

Vymeníš prvý znak s posledným, druhý z predposledným...

ak ide o efektivitu, tak jednoznačne moje druhé riešenie. Rekurzia určite nie, ty používaš znak a retaze_naopak ktoré netreba a chronové riešenie by si tiež pýtalo pomocnú premennú na výmenu (alebo bez nej, ale komplikovanejšie ako jeden riadok cyklu)

záleží na tom, čo chápu pod pojmom efektívnosť. Pri reťazcoch v Pascale je viac-menej jedno ako sa to urobí (pri dnešných PC). Rozdiel bude možno v mikrosekundách.

ja som to analyzoval skôr z pohladu pamäťovej ako časovej efektivity

chronove riesenie, s vymenou pismen je najefektivnejsie, pretoze ti na vypisanie N pismenoveho slova v opacnom poradi, staci N/2 iteracii

Príspevok od používateľa **Retne** » 08 apr 2008, 9:21

Tak dnes som sa s tym opat pohral a urobil to opacnym sposobom a myslim ze je to o dost jednoduchsie nie ?

program slovo;
uses grafika;
var s:string;
var i: integer;
begin
write('zadaj retazec ');
read(s);
for i:=length(s) downto 1 do begin
write(s);
end;
end.

no a ešte begin a end môžeš vynachať, lebo sa v tom cykle robí iba jeden príkaz (vypísanie znaku)