PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 19128 | 03/03/24 21:47:06 | RE(8):PB6: 数学的な処理(ゴミレスのゴミレス) By めめ |
| 19127 | 03/03/24 18:58:45 | RE(7):PB6: 数学的な処理(ゴミレス) By M.M |
| 19116 | 03/03/24 02:00:50 | RE(6):PB6: 数学的な処理 By めめ |
| 19115 | 03/03/23 17:06:44 | RE(5):PB6: 数学的な処理 By めめ |
| 19081 | 03/03/17 18:05:50 | RE(4):PB6: 数学的な処理 By CaseLabo |
| 19080 | 03/03/17 15:59:11 | RE(3):PB6: 数学的な処理 By M.M |
| 19079 | 03/03/17 14:42:36 | RE(2):PB6: 数学的な処理 By Taka |
| 19078 | 03/03/17 13:34:11 | RE(1):PB6: 数学的な処理 By M.M |
| 19076 | 03/03/17 11:50:11 | PB6: 数学的な処理 By CaseLabo |
カテゴリ：スクリプトの記述
日付：2003年03月24日 02:00 発信者：めめ
題名：RE(6):PB6: 数学的な処理
(続きです)
インデントはなくなってしまうので、追加して下さい。
【関数宣言】
//----------------------------------------------------------------------
integer f_pattern( integer max, long val, long ref pattern[] )
戻り値 : 組み合わせの数
max : 最大値
val : 関数内部で使用するワーク変数
pattern : 組合せ結果の配列
【関数スクリプト】
//----------------------------------------------------------------------
Long i, j, ll_ret, ll_value
For i = 1 To max
If Not Match( String( val ), String( i ) ) Then
ll_value = val * 10 + i
If Len( String( ll_value ) ) = max Then
pattern[UpperBound( pattern ) + 1] = ll_value
Continue
Else
ll_ret = f_pattern( max, ll_value, pattern )
End If
End If
Next
ll_ret = UpperBound( pattern )
Return ll_ret
//----------------------------------------------------------------------
【呼び出し側スクリプト】
//----------------------------------------------------------------------
Long ll_max, ll_cnt, ll_pattern[]
ll_max = 4 // インプットが 4 の場合
ll_cnt = f_pattern( ll_max, 0, ll_pattern )
//----------------------------------------------------------------------
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows 2000
DBMS Sybase SQL Anywhere Client
Browser (記載なし)
Server SoftWare
OS Windows 2000
DBMS Sybase SQL Anywhere Server
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.