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

名前

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

本文

＞この解答用紙さんの答えはどっからどこまでが一個の問いなのか
＞教えていただけないでしょうか？お手数かけます(＞＜)
や、やっぱり超初心者さんでしたか・・・
分かりやすいように、上から順番に４つ並べています。
区別が付くようにコメントもいれてますが(^_^;)
//の後は、その行の後ろの文字はコメントなのでプログラムとは関係ありません

・n(&#8805;1)が入力として与えられたとき、a(n)の値を返す再帰的なプログラムを記述せよ。 
function a(n:word): Longword;
begin
  if (n<=1) then Result := n else Result := n * a(n-1)
end;
です

・上記の問題を再帰を用いないプログラムで記述せよ。
function a2(n:word): Longword;
  var a , i :Longword;
begin
  a := 1;
  if (n>1) then for i := 2 to n do  a := a * i;
  Result := a
end;

ほかも同じです。
function  〜
begin
〜
end;
が一個だと思ってください

変数と、関数(function)、  手続き(procedure)
のところを、とりあえず  がんばって覚えましょうね。

次からは自分でがんばってね。

---------------------------------------------------
下は動作出力確認用のためのものです。
問題とは直接確認ありません。
a2,b2の所をaとなっていたので訂正版は下

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := 'a('+Edit1.Text+') = ' +
  IntToStr(a(StrToInt(Edit1.Text)));
  Edit3.Text := 'a2('+Edit1.Text+') = ' +
  IntToStr(a2(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(b2(StrToInt(Edit1.Text)))
end;
---------------------------------------------------

解決したら  解決マーク押してね
＞←解決時は質問者本人がここをチェックしてください。

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

戻る