このディレクトリの索引

# 出典 :: BASICの宿題はお前にまかせた #1 # N人分のデータ(氏名、体重、身長、年齢)がDATA文で入力されているプログラムが # ある。これを用いて次のプログラムをBASICで作成しなさい # 身長が160CM以上で170cm未満の人の名前を表示する # %%% temp.pro データ(山下,65,177,23). データ(尾崎,64,168,60). データ(飯島,72,173,29). データ(吉田,69,166,44). %%% t41.pro 'N人分のデータ(氏名、体重、身長、年齢)が入力されているプログラム(temp.pro)がある。身長が160CM以上で170cm未満の人の名前を表示する' :- 'N人分のデータ(氏名、体重、身長、年齢)が入力されているプログラム(temp.pro)を利用可能にする。', 'N人分のデータ(氏名、体重、身長、年齢)が入力されている。身長が160CM以上で170cm未満の人の名前を表示する。'. 'N人分のデータ(氏名、体重、身長、年齢)が入力されているプログラム(temp.pro)を利用可能にする。' :- reconsult('temp.pro'). 'N人分のデータ(氏名、体重、身長、年齢)が入力されている。身長が160CM以上で170cm未満の人の名前を表示する。' :- forall( 'N人分のデータ(氏名、体重、身長、年齢)が入力されている。身長が160CM以上で170cm未満の人の'(_氏名,_身長), 名前を表示する(_名前)). 'N人分のデータ(氏名、体重、身長、年齢)が入力されている。身長が160CM以上で170cm未満の人の'(_氏名,_身長) :- データ(_氏名,_,_身長,_), _身長>=160, _身長<170. 名前を表示する(_名前) :- writef('%w\n',[_氏名]). %%%%%%%%%%%%%%%%%%%%%%% 2009-10-24 05:29 t41.html %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% データ(山下,65,177,23). データ(尾崎,64,168,60). データ(飯島,72,173,29). データ(吉田,69,166,44). t41(_氏名) :- データ(_氏名,_,_身長,_),_身長>=160,_身長<170.