ab.com コミュニティ

コード: 全て選択

#N88BASIC

Const abc(x) = x * (x-1) * 50
Const xyz(x) = x * 50


print abc(2+1)  'x * (x-1) * 50 : 2+1 * (2+1-1) * 50
                               '= 2+ (2+1-1) * 50
                               '= 2+ 2 * 50
                               '= 102 となってしまいます。
                               ' ご確認ください。

print abc(3)    'x * (x-1) * 50 : 3 * (3-1) * 50
                               '= 3 * 2 * 50
                               '= 300


print

print xyz(4)    ' x * 50 : 4 * 50
                        '= 200
                        
print xyz(3+1)  ' 3+1 * 50 : 3 + 50
                          '= 53

コード: 全て選択

Const HIBYTE(w) = ( ( (w) >> 8) and &HFF )
Const LOBYTE(w) = ( (w) and &HFF)
Const HIWORD(dw) = ( ( (dw) >> 16) and &HFFFF)
Const LOWORD(dw) = ( (dw) and &HFFFF )

Const MAKEWORD(a,b) = ( ((a) and &HFF) or (((b) and &HFF)<<8) )
Const MAKELONG(a,b) = ( ((a) and &HFFFF) or (((b) and &HFFFF)<<16) )

コード: 全て選択

Const HIBYTE(w) = (w >> 8) and &HFF
Const LOBYTE(w) = w and &HFF
Const HIWORD(dw) = (dw >> 16) and &HFFFF
Const LOWORD(dw) = dw and &HFFFF

Const MAKEWORD(a,b) = (a and &HFF) or ((b and &HFF)<<8)
Const MAKELONG(a,b) = (a and &HFFFF) or ((b and &HFFFF)<<16)