この問題を解くには？どなたか答えを教えてください！！ (ID:12371)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

function a(n:word): Longword;
 // a(n)=1×2×...×n  、n(≧1)
 // 再帰を用いる
begin
  if (n<=1) then Result := n
   else Result := n * a(n-1)
end;

function a2(n:word): Longword;
 // a(n)=1×2×...×n  、n(≧1)
 // 再帰を用いない
  var a , i :Cardinal;
begin
  a := 1;
  if (n>1) then for i := 2 to n do  a := a * i;
  Result := a
end;

function b(n:word): Longword;
 // b(n)=b(n-1)＋b(n-2)、 b(1)=1、 b(0)=0、n(≧1)
 // 再帰を用いる
begin
  if (n<=1) then Result := n
   else Result := b(n-1) + b(n-2)
end;

function b2(n:word): Longword;
 // b(n)=b(n-1)＋b(n-2)、 b(1)=1、 b(0)=0、n(≧1)
 // 再帰を用いない
  var b, b_1,b_2 , i : Longword;
begin
  b_1 := 1; b_2 := 0; b := 1;
  if (n>1) then
    for i := 2 to n do
    begin
      b := b_1 +b_2;
      b_2 := b_1;
      b_1 := b;
    end;
  Result := b
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := 'a('+Edit1.Text+') = ' +
  IntToStr(a(StrToInt(Edit1.Text)));
  Edit3.Text := 'a2('+Edit1.Text+') = ' +
  IntToStr(a(StrToInt(Edit1.Text)))
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit2.Text := 'b('+Edit1.Text+') = '  +
  IntToStr(b(StrToInt(Edit1.Text)));
  Edit3.Text := 'b2('+Edit1.Text+') = '  +
  IntToStr(b(StrToInt(Edit1.Text)))
end;

←解決時は質問者本人がここをチェックしてください。

戻る