掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
数列の・・・・・ (ID：31682)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
もちろん文字列変換して取得する方法もありますが、 私ならこうします。 //n桁目の値を取得 function Getdigitvalue(value:Integer; digit:Byte):Byte; // value:Integer; 元になる数値 // digit:Byte 知りたい桁 1は１の位 ２は10の位... //例 123456の100の位を知りたければ // 123456 / 100 = 1234 余り 56 // 1234 / 10 = 123 余り (4)←これが求めたい値 var p,q:Integer; begin q:=1; for p:= 2 to digit do q:=q*10; p := value div q; Result := p mod 10; end; procedure TForm1.Button1Click(Sender: TObject); var i,p:Integer; begin i := 123456; for p := 1 to 7 do ShowMessage(IntToStr(i) + 'の' + IntToStr(p) + '桁目の数字は = ' + IntToStr(Getdigitvalue(i,p))); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.