タロットワンオラクルプログラム、ソースファイル。

 (* 好きなテキストエディターで、コピペしてください。

そして、好きなファイル名にして、拡張子は.ppにして保存してください。

保存したソースファイルを、フリーパスカルコンパイラでコンパイルすると、タロット一枚引きのプログラムのできあがりです。 *)

program oneoracle;

const
card: array[0..77] of string = (
'愚者',
'魔術師', '女教皇', '女帝', '皇帝', '法王',
'恋人', '戦車', '正義', '隠者', '運命の輪',
'力', '吊された男', '死神', '節制', '悪魔',
'塔', '星', '月', '太陽', '審判',
'世界',
'ワンドのA', 'ワンドの2', 'ワンドの3', 'ワンドの4', 'ワンドの5',
'ワンドの6', 'ワンドの7', 'ワンドの8', 'ワンドの9', 'ワンドの10',
'ワンドの小姓', 'ワンドの騎士', 'ワンドの女王', 'ワンドの王',
'ソードのA', 'ソードの2', 'ソードの3', 'ソードの4', 'ソードの5',
'ソードの6', 'ソードの7', 'ソードの8', 'ソードの9', 'ソードの10',
'ソードの小姓', 'ソードの騎士', 'ソードの女王', 'ソードの王',
'カップのA', 'カップの2', 'カップの3', 'カップの4', 'カップの5',
'カップの6', 'カップの7', 'カップの8', 'カップの9', 'カップの10',
'カップの小姓', 'カップの騎士', 'カップの女王', 'カップの王',
'ペンタクルスのA', 'ペンタクルスの2', 'ペンタクルスの3', 'ペンタクルスの4', 'ペンタクルスの5',
'ペンタクルスの6', 'ペンタクルスの7', 'ペンタクルスの8', 'ペンタクルスの9', 'ペンタクルスの10',
'ペンタクルスの小姓', 'ペンタクルスの騎士', 'ペンタクルスの女王', 'ペンタクルスの王' );

face: array[0..1] of string = (
'逆位置', '正位置' );

var
ans: char;
str: string;
cd, fc: integer;

begin
repeat
writeln('タロット一枚引き');
writeln('占いたいことを入力してください');
write('>');
readln(str);

randomize;
cd := random(78);
fc := random(2);

writeln(str + 'の答えは' + card[cd] + 'の' + face[fc] + 'です');
writeln('続けますか？ (y/N)');
write('>');
readln(ans);
until upcase(ans) = 'N';
end.