11-10-2006, 10:37
|
|
|
|
חבר מתאריך: 15.08.06
הודעות: 465
|
|
אתה לא מבצע שום פעולה על המחרוזת, למה אתה מצפה? :|
תעשה כך,
קוד:
program tar8;
uses crt;
var
mah:string;
function mahrozet(mah:string; n:integer):string;
begin
if n=1 then
mahrozet:=(mah)
else
begin
mah:=copy(mah,1,length(mah)-n)+copy(mah,length(mah),1)+copy(mah,length(mah)-n+1,n-1);
mahrozet:=mahrozet(mah,n-1);
end;
end;
begin {main}
mah:='abc';
writeln(mahrozet(mah,length(mah)));
end.
_____________________________________
Any sufficiently advanced bug is indistinguishable from a feature
|