この記事について
| 環境 | Windows、UWSC |
|---|---|
| 目的 | 八桁の乱数を50個テキストファイルに出力する |
| 結果 | RANDOM(89999999) + 10000000 をFOPEN/FPUTで50回書き出す |
乱数が必要になったので覚書
// ファイルを開く
fid = FOPEN("ransuu.txt", F_WRITE)
// 1行出力
for i = 1 TO 50
r = RANDOM(89999999) + 10000000
FPUT(fid, r)
// 1行出力
next
// ファイルを閉じる
FCLOSE(fid)//作ったファイルを開く
exec("notepad ransuu.txt")