UC知道急啊!!!!!!!!
来源：百度知道 编辑：UC知道 时间：2024/05/26 21:35:34
请问
1. 怎样在开始游戏的时候叫别人输入明字来代替 player 1 和 player 2??
2. 怎样加入音乐??
3. 问人要不要再玩一次??
请帮我加进去!!!!!!!!!!!
program tictac3;
uses crt;
var
a,b,c,d,e,f,g,h,i,input,symbol:char;
j,player:integer;
begin
clrscr;
a:='A';
b:='B';
c:='C';
d:='D';
e:='E';
f:='F';
g:='G';
h:='H';
i:='I';
writeln('| | | |');
writeln('| ',a,' | ',b,' | ',c,' |');
writeln('|___|___|___|');
writeln('| | | |');
writeln('| ',d,' | ',e,' | ',f,' |');
writeln('|___|___|___|');
writeln('| | | |');
writeln('| ',g,' | ',h,' | ',i,' |');
writeln;
for j:=1 to 9 do
begin
if (j mod 2=1)
then begin<
1. 怎样在开始游戏的时候叫别人输入明字来代替 player 1 和 player 2??
2. 怎样加入音乐??
3. 问人要不要再玩一次??
请帮我加进去!!!!!!!!!!!
program tictac3;
uses crt;
var
a,b,c,d,e,f,g,h,i,input,symbol:char;
j,player:integer;
begin
clrscr;
a:='A';
b:='B';
c:='C';
d:='D';
e:='E';
f:='F';
g:='G';
h:='H';
i:='I';
writeln('| | | |');
writeln('| ',a,' | ',b,' | ',c,' |');
writeln('|___|___|___|');
writeln('| | | |');
writeln('| ',d,' | ',e,' | ',f,' |');
writeln('|___|___|___|');
writeln('| | | |');
writeln('| ',g,' | ',h,' | ',i,' |');
writeln;
for j:=1 to 9 do
begin
if (j mod 2=1)
then begin<
本来是想临阵磨枪学习一下Pascal
可是发现 Pascal 声明一个数组都这么麻烦
http://www.sdlgame.com/content/view/442/
type
DayTemperatures = array [1..24] of Integer;
而且数组还有越界检查,编译时检查就算了,运行时还要检查,
程序的效率都毁在它手里了
简直到了是可忍,熟不可忍的地步
不知happy_girl_109的Pascal炉火是否纯青,我就班门弄一下斧好了
1输入名字来代替 player
可以使用字符串
http://www.sdlgame.com/content/view/442/
2怎样加入音乐
我手上没有Delphi,也不知它提供了哪些多媒体库,只好你自己去查手册了
33. 问人要不要再玩一次
弄个无限循环,
http://www.sdlgame.com/content/view/440/
由用户输入的y,n 来判断是否该使用Break 离开循环
至于帮你加进去,我看就算了吧,
Pascal我不会又不喜欢,
其实加进去也没有什么用
玩的时候只能左手和右手对决,因为这个游戏是没有人工智能的
如果你有好的音乐想加进来,嗯,还是直接听音乐吧
以上纯属