このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1312201995/790
#  [1] C言語演習 
#  [2] http://ime.nu/codepad.org/u4T8ly42 のプログラムを改良して、 
#  1を入力すると右から左へ、2を入力すると左から右へスクロールするように 
#  しなさい。 
#   [3.1] Windows7 
#   [3.3] C言語 
#  [4] 10/24 18時まで 
#  [5] 特になし 
#  わかる方どうかよろしくお願いします。 
# 
# 

'1を入力すると右から左へ、2を入力すると左から右へスクロールする'(_文字列,_スクロールした文字列) :-
        左スクロールか右スクロールかを選択する(_入力文字),
        '1を入力すると右から左へ、2を入力すると左から右へスクロールする'(_入力文字,_文字列,_スクロールした文字列).

'1を入力すると右から左へ、2を入力すると左から右へスクロールする'('1',_文字列,_スクロールした文字列) :-
        atom_chars(_文字列,Chars),
        append([A],L2,Chars),
        append(L2,[A],Chars2),
        atom_chars(_スクロールした文字列).
'1を入力すると右から左へ、2を入力すると左から右へスクロールする'('1',_文字列,_スクロールした文字列) :-
        atom_chars(_文字列,Chars),
        append([A],L2,Chars),
        append(L2,[A],Chars2),
        atom_chars(_スクロールした文字列_1),
        左スクロールか右スクロールかを選択する(_入力文字),
        '1を入力すると右から左へ、2を入力すると左から右へスクロールする'(_入力文字,_スクロールした文字列_1,_スクロールした文字列).
'1を入力すると右から左へ、2を入力すると左から右へスクロールする'('2',_文字列,_スクロールした文字列) :-
        atom_chars(_文字列,Chars),
        append(L1,[A],Chars),
        append([A],L1,Chars2),
        atom_chars(_スクロールした文字列).
'1を入力すると右から左へ、2を入力すると左から右へスクロールする'('2',_文字列,_スクロールした文字列) :-
        atom_chars(_文字列,Chars),
        append(L1,[A],Chars),
        append([A],L1,Chars2),
        atom_chars(_スクロールした文字列_1),
        左スクロールか右スクロールかを選択する(_入力文字),
        '1を入力すると右から左へ、2を入力すると左から右へスクロールする'(_入力文字,_スクロールした文字列_1,_スクロールした文字列).

左スクロールか右スクロールかを選択する(_入力文字) :-
        write('選択してください。\n左スクロール:0 右スクロール:1 : '),
        get_cahr(_入力文字).