Skocz do zawartości

rekurencyjnie - odwrodność zapisu


Ciochu

Polecane posty

ma być to program który z wpisanego zdania przestawi litery. czyli wpisując komputer otrzymamy retupmok.

z zapisem w tradycyjny sposób sobie poradziłem ale potrzebuje wersji rekurencyjnej. jesli ktoś sie zna na tym to byłbym wdzieczny gdyby to wytłumaczył :)

dziekuje z góry :rolleyes: :rolleyes:

Link do komentarza
Udostępnij na innych stronach

program w wersji "normalnej"

 

Program LITERY;

uses crt;

var

slowo,podciag,slowo2:string;

i,n:byte;

dlugosc:byte;

 

 

begin

CLRSCR;

writeln('wpisz slowo do zmiany');

readln(slowo);

dlugosc:=length(slowo);

 

n:=dlugosc+1;

begin

repeat

n:=n-1;

podciag:=copy(slowo,n,1);

slowo2:= concat(slowo2,podciag);

until (n=1)

end;

 

writeln(slowo2);

 

readln;

end.

 

 

 

 

 

 

i próba stworzenia rekurencji

 

 

Program LITERYrekurencyjnie;

uses crt;

var

slowo,podciag,slowo2:string;

i,n:byte;

dlugosc:byte;

 

 

function new (slowo:string; n,dlugosc:byte):string;

begin

n:=dlugosc+1;

repeat

n:=n-1;

new:=concat(new+slowon,n,1);

until (n=1)

end;

 

begin

CLRSCR;

writeln('wpisz slowo do zmiany');

readln(slowo);

dlugosc:=length(slowo);

 

write(new);

 

writeln(slowo2);

 

readln;

end.

 

 

 

 

 

 

 

 

prosze o pomoc.

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...