このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1308749241/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とパスワードを入力すると残金が表示される' :-
        write('ユーザーID : '),
        get_line(_ユーザーID),
        write('パスワード : '),
        get_passwd(_パスワード),
        残金(_ユーザーID,_パスワード,_残金),
        writef('残金は %t です\n',[_残金]).

get_passwd(_パスワード) :-
        rawmode,
        get_char(_文字),
        覆面入力(_文字,_文字ならび),
        concat_atom(_文字ならび,_パスワード),
        norawmode.

覆面入力('\n',[]) :- !.
覆面入力(_文字,[_文字|R]) :-
        put_char(*),
        get_char(_文字2),
        覆面入力(_文字2,R).