Question

pascal游戏

要个Free pascal游戏，要Free pascal！

Answer 1

某游戏源代码，玩之前把属性中一项英文调成中文即可
program wangzhijian;
var
a:char;
begin
write('XXX是禽兽吗?是Y/不是N');
readln(a);
if a='y'
then writeln('我同意你的观点,他确实是禽兽')
else
if a='n'
then writeln('我明白你的意思，他确实禽兽不如')
else writeln('其实。。只要输入Y或者N就可以了，你是眼睛不好，还是智商有问题?');
readln;
readln
end.

Answer 2

程序运行后，会产生一个100以内的随机整数，你有10 次机会，不论对错，都会有相应提示!
program youxi(input,output);
var
z,j,h:integer;
begin
randomize;
z:=random(100);
j:=0;
repeat
write('please input a number(0-100):');
read(h);
j:=j+1;
if h=z
then writeln('you are right');
if h>z
then writeln('too big,please try again');
if h<z
then writeln('too small,please try again');
until (h=z) or (j=10)
if (j=10) and (h<>z)
then writeln('you are fail,the number is',z);
readln;
end.

Answer 3

要扫雷吗？
要的话我有
绝对原创

Answer 4

五年的进取让《问ε道》如凤凰展翅般熠熠生辉，五年的经典之作让《问ε道》成为百万玩家心中的家园，

追问

大哥，玩过Free pascal吗？告诉你，我最恨骗子！！！！

Answer 5

一直都在玩大型3D网游，感觉太累了，现在玩玩《问ε道》这样的回合游戏，觉得还不错呢。

追问

大哥，玩过Free pascal吗？告诉你，我最恨骗子！！！！！！

Answer 6

感觉真正能够常玩的还是要属《问ε道》