אלוהים1980
New member
הנה שיטה בפסקל...
קודם כל, יותר נוח לעבוד על מחרוזות: function hafuh (st:string); var i:integer; tmp:string; begin if length(st)=1 then hefuh:=st else begin tmp:=´´; for i:= 1 to length(st)-1 do tmp:=tmp+st; hefuh:=st[length(st)]+hafuh(tmp); end; end; מקווה שזה יעזור לך.
קודם כל, יותר נוח לעבוד על מחרוזות: function hafuh (st:string); var i:integer; tmp:string; begin if length(st)=1 then hefuh:=st else begin tmp:=´´; for i:= 1 to length(st)-1 do tmp:=tmp+st; hefuh:=st[length(st)]+hafuh(tmp); end; end; מקווה שזה יעזור לך.