PROGRAM R9Z2; { Uzyskasz rekurencyjnie zadane slowo wspak } var txt : String; procedure wspak(i:Integer; txt:String); { 'i' - numer znaku w tekscie 'txt', kt˘ry ma byc pokazany } begin if i=length(txt) then write(txt[i]) { jesli jest to ostatnia litera - drukujemy ja } else begin { w przeciwnym przypadku } wspak(i+1,txt); { wywolujemy funkcje rekurencyjnie } write(txt[i]) { a potem drukujemy te litere } end { taka! kolejnosc ostatnich dwu procedur zapewnia wyswietlanie wpierw liter dalszych ze zmiennej 'txt' } end; { procedury wspak } begin writeln('Podaj tekst'); readln(txt); writeln('wspak: '); wspak(1,txt); readln end.
thot2