このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 150代目 #480 # [1] 授業単元: C言語 # [2] 問題文(含コード&リンク): # ユーザーIDとパスワードを入力すると残金が表示されるようなプログラムを作る # # ID    パスワード   残金 # 10001   1122     0 # 10002   9521     50000 # 20001   5588     100 # 20002   0428     300 # 20003   3618     20000 # 40004   0777     8000 # # 残金('10001','1122',0). 残金('10002','9521',50000). 残金('20001','5588',100). 残金('20002','0428',300). 残金('20003','3618',20000). 残金('40004','0777',8000). ユーザーIDとパスワードを入力すると残金が表示される :- ユーザーIDとパスワードを入力すると(_ユーザーID,_パスワード), 残金が表示される(_ユーザーID,_パスワード). ユーザーIDとパスワードを入力すると(_ユーザーID,_パスワード) :- ユーザーIDと(_ユーザーID), パスワードを入力すると(_パスワード). ユーザーIDと(_ユーザーID) :- write('ユーザーID : '), 行入力(_ユーザーID). 行入力(_行) :- read_line_to_codes(current_input,_文字コードならび), atom_codes(_行,_文字コードならび). パスワードを入力すると(_パスワード) :- write('パスワード : '), パスワード入力(_パスワード). 残金が表示される(_ユーザーID,_パスワード) :- 残金(_ユーザーID,_パスワード,_残金), writef('残金は %t です\n',[_残金]). パスワード入力(_パスワード) :- パスワード入力はrawmodeで覆面入力される(_パスワード). パスワード入力はrawmodeで覆面入力される(_パスワード) :- rawmode, 覆面入力(_パスワード), norawmode. 覆面入力(_パスワード) :- パスワード文字ならびを得る(_パスワード文字ならび), atomic_list_concat(_パスワード文字ならび,_パスワード). パスワード文字ならびを得る(_パスワード文字ならび) :- findall(_文字,( 文字を連続して入力(_文字),(_文字='\n',!,fail;put_code(42))),_パスワード文字ならび). 文字を連続して入力(_文字) :- repeat, get_char(_文字). rawmode :- shell('stty 1:1:bd:a31:7:7:7f:15:4:0:1:0:0:0:0:0:0:0:0:0:0:0:73:0:0:0:0:0:0:0:0:0:0:0:0:0'). norawmode :- shell('stty 500:5:bd:8a3b:3:1c:7f:15:4:0:1:0:11:13:1a:0:12:f:17:16:0:0:73:0:0:0:0:0:0:0:0:0:0:0:0:0').