linweiwu 重新編輯於 2008-11-02 22:45:36， 註解 無‧

加解密那一題 :

假設 edit1.text 存 coded 讀入的字串.
edit2.text 存 還原原文後的字串.

procedure TForm1.Button1Click(Sender: TObject);
var astr : string;
ii, jj, kk, ll : integer;
begin
astr := trim(edit1.text);
ll := length(astr);
for ii := 1 to ll do begin
jj := ord(astr[ii]);
if ord(astr[ii]) in [65..90] then begin
kk := 26-(jj-64) 1;
astr[ii] := chr(kk 64);
end
else if ord(astr[ii]) in [97..122] then begin
kk := 26-(jj-96) 1;
astr[ii]:= chr(kk 96);
end;
end;
edit2.text := astr;

end;

讀檔寫檔的部份您應該可以應付的吧.
參考一下

學生成績那一題 :
很直觀啊, 就按提示那樣做就可以了,
如果不一定要按提示做法, 那我會用 tstringlist 來切字串.

級數那一題
procedure TForm1.Button1Click(Sender: TObject);
var aval : extended;

function factorial(n: integer) : int64;
begin
if n <= 1 then result := 1
else result := n * factorial(n-1);
end;

function formula1(n: integer) : extended;
var nnn : int64;
mmm : extended;
begin
nnn := factorial(n);
mmm := power(3, n);
result := mmm / nnn; // 可以改成 power(3,n)/factorial(n);
end;

begin
ii := 1;
aval := formula1(1);
while aval >= 0.000001 do begin
ii := ii 1;
aval := formula1(ii);
end;
showmessage(inttostr(ii) #13 floattostr(aval));
end;

參考一下

st33chen 重新編輯於 2008-11-03 08:47:03， 註解 無‧
st33chen 重新編輯於 2008-11-03 08:55:08， 註解 無‧
st33chen 重新編輯於 2008-11-03 09:52:50， 註解 無‧
st33chen 重新編輯於 2008-11-03 09:56:03， 註解 無‧