入力した整数値の最大公約数を出力するプログラムを再帰呼び出しの形式で作れ、という課題が出ました。
再帰でない形式は下のように作れたのですが、再帰形式がどうしてもできません。どなたかご教授ください。
function gcd(a,b:integer):integer; {関数部}
var tmp:integer;
begin
if a<b then
begin
tmp:=b;
b:=a;
a:=tmp
end;
repeat
tmp:=b;
b:=a mod b;
a:=tmp
until b=0;
gcd:=a
end;
repeat {計算部、i=n=入力した個数、max=入力できる最大数}
i:=i+1;
n:=n+1;
data[i]:=x;
writeln('値:');
readln(x);
until (x=0) or (i=max);
if i>=2 then
begin
p:=gcd(data[1],data[2]);
if i>=3 then
begin
for i:= 3 to n do
begin
p:=gcd(p,data[i])
end;
writeln('最大公約数:',p)
end
else
begin
writeln('最大公約数:',p)
end;
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) vba 最大値 条件分岐 4 2022/12/10 10:20
- Visual Basic(VBA) VBA 行削除した連番 4 2023/06/27 16:00
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- C言語・C++・C# C#の問題で2つの整数a,bの最大公約数(GCD)を求めるユークリッドの互除法は,aをbで割った余り 2 2022/06/26 16:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
タイムアウトする仕組みを作りたい
-
verilogのcase文
-
レコードセットにnullの場合
-
EXCEL VBA 文字 アドレス 検...
-
他のフォームから別のフォーム...
-
エクセルVBAでテキストボッ...
-
【VB6.0】 あるフォームから他...
-
perlによるxmlファイルの取得
-
C#のループでtextboxに値を入れ...
-
sublimit textっていうエディタ...
-
三項でたとえば交換って
-
C言語のサフィックスについて
-
VS CodeでTEXファイルにPDF形式...
-
pthread_cond_waitとptherad_co...
-
二点の座標から距離や角度を求...
-
【VB.NET】テキストボックスに...
-
VB.NETでのイベントの途中終了
-
VB6のFriendについて
-
アクセスできない保護レベルエ...
-
【VBS】クリップボード操作につ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レコードセットにnullの場合
-
タイムアウトする仕組みを作りたい
-
subsequentとnextの違いってな...
-
verilogのcase文
-
vbsのmsgboxランダム表示について
-
【FPGA】VHDLのprocessとevent
-
TreeViewのTag情報取得
-
Verilogの文法
-
リスト間のアイテム移動について
-
日付の重複
-
エクセルVBAついて ①if•••••the...
-
文字の連結がうまくいかない
-
Scilabの&と&&に関する質問です
-
なんで? cEn-P^-1AP=P^-1(cEn-AP)
-
delphi
-
vb2010webページのリンクをクリ...
-
EXCEL VBA 文字 アドレス 検...
-
整順リスト形式の英単語辞書(pa...
-
Matlab
-
三項でたとえば交換って
おすすめ情報