I，j，m，n:整數；
馬:數組[1..10,1..10]的整數；
hp，mp，money，ql，鄧吉，fy，atc，mc，hpmax，mpmax，葉芝，jy，mcp:整數；
程序圖；
開始
隨機化；
m:= random(10)；
n:= random(10)；
writeln(' * * * * * * * Map * * * * * *)；
對於i:=1到10做
開始
對於j:=1到10做
開始
如果(i=m)和(j=n ),那麽
開始
ma[i，j]:= 9；
寫(' 9 ')；
結束
其他
開始
ma[i，j]:= random(3)；
如果ma[i，j]=0，則寫(' 0 ')；
如果ma[i，j]=1那麽寫(' 1 ')；
如果ma[i，j]=2，則寫(' 2 ')；
結束；
結束；
writeln
結束；
writeln(' * * * * * * * * * * * * * * * * * * * *)；
readln
結束；
程序保存；
var t:文本；
開始
重寫(t)；
writeln(t，鄧吉)；
writeln(t，hpmax，' '，HP)；
writeln(t，mpmax，' '，MP)；
writeln(t，QL)；
writeln(t，fy)；
writeln(t，MC)；
writeln(t，ATC)；
writeln(t，money)；
結束；
過程負載；
var t:文本；
開始
復位(t)；
readln(t，鄧吉)；
readln(t，hpmax，HP)；
readln(t，mpmax，MP)；
readln(t，QL)；
readln(t，fy)；
readln(t，MC)；
readln(t，ATC)；
readln(t，money)；
結束；
程序子料；
開始
writeln(' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ')；
Writeln('*年級:'，鄧吉，' * ')；
Writeln('* Life:'，hpmax，'/'，hp，' * ')；
Writeln('* Magic:'，mpmax，'/'，mp，' * ')；
Writeln('* money:'，money，' * ')；////////////
Writeln('*升級經歷/當前經歷:'，鄧吉*100+30，'/'，JY，' * ')；
writeln(' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)；
結束；
程序升級；
開始
如果jy & gt=鄧吉*100+30然後
開始
Writeln('已升級！大家鼓掌！！哦~ ~ ~ ~ ~ ~ ~ ~’)；
鄧吉:=鄧吉+1；
jy:= jy-鄧吉* 100-30；
ATC:= ATC+鄧吉* 2+10；
fy:= fy+鄧吉* 2+10；
MCP:= MCP+鄧吉* 2+4；
HP max:= HP max+鄧吉* 10；
mpmax:= mpmax+鄧吉* 8；
writeln(' # # # # # # # # # # data # # # # # #)；
Writeln('等級:'，鄧吉)；
HP:= HP max；
Writeln ('Life:'，hpmax，'/'，HP)；
MP:= MP max；
Writeln ('Magic:'，mpmax，'/'，MP)；
Writeln('攻擊力:'，ATC)；
Writeln ('defense:'，fy)；
Writeln('魔法打擊力量:'，MC)；
結束；
結束；
程序魔怪手；
var p:char；
z，ghp，fyl，gatc，hp0，jy，mcp:整數；
開始
gatc:= random(100)+鄧吉* 10；
writeln(‘妳遇到了怪物，現在:y:戰鬥；N:逃跑Y/N’)；
readln(p)；
GHP:= random(100)* 20；
hp0:= GHP；
fyl:= fy；
如果p='Y '那麽
開始
Writeln('戰鬥開始')；
while(HP & gt；0)和(ghp & gt0)做
開始
Writeln('妳的HP:'，HP max，'/'，HP，''，' MP:'，MP max，'/'，MP，''，'力量'，QL)；
Writeln('怪物的HP:'，HP0，'/'，GHP)；
Writeln('攻擊:1:普通攻擊2:魔法攻擊3:斬殺4:防禦5:逃跑')；
readln(p)；
z:= random(11)；
如果z=5，那麽
開始
如果p='1 '，那麽
開始
寫('無效攻擊！');
readln
結束；
如果p='2 '那麽
開始
寫(‘小姐’)；
readln
結束；
結束
其他
開始
如果p='1 '
然後
開始
GHP:= GHP-ATC；
如果ghp & lt=0
然後
開始
寫(‘打敗怪物！經驗+'，hp0)；
readln
z:= random(5)；
jy:= jy+hp0；
如果z=2那麽writeln ('get money '，(hp0 div 10)* 10)；
錢:= money+((hp0 div 10)* 10)；
readln
QL:= QL+10；
打破；
結束
其他
開始
寫('怪物受傷了，HP-'，atc，'怪HP:'，HP0，'/'，GHP)；
readln
QL:= QL+10；
結束；
結束；
如果p='2 '
然後
開始
開始
Writeln('選擇魔法:')；
如果鄧吉& gt=0然後writeln('1。火球術:初始攻擊力110 MP-2’)；
如果鄧吉& gt=2然後writeln('2。火焰:初始攻擊力150 MP-5’)；
如果鄧吉& gt=4然後writeln('3。冰球:初始攻擊力200，冰凍效果，怪物壹輪不能攻擊MP-10’)；
如果鄧吉& gt=6然後writeln('4。冰柱:初始攻擊力250，冰凍效果，怪物三輪攻擊不了MP-20’)；
如果鄧吉& gt=8然後writeln('5。虎炎神:初始攻擊力400，燃燒效果，怪物每回合hp減少10% MP-40-40’)；
如果鄧吉& gt=10然後writeln('6。冰環風暴:初始攻擊力450，冰凍效果，怪物三輪攻擊不了MP-40’)；
readln(p)；
如果p='1 '，那麽
如果mp & gt=2
然後
開始
MP:= MP-2；
MCP:= 110+MC；
結束
Else writeln(“魔法不夠！”);
如果p='2 '那麽
如果mp & gt=5
然後
開始
MP:= MP-5；
MCP:= 150+MC；
結束
Else writeln(“魔法不夠！”);
如果p='3 '那麽
如果mp & gt=10
然後
開始
MP:= MP-10；
MCP:= 200+MC；
結束
Else writeln(“魔法不夠！”);
如果p='4 '那麽
如果mp & gt=20
然後
開始
MP:= MP-20；
MCP:= 250+MC；
結束
Else writeln(“魔法不夠！”);
如果p='5 '那麽
如果mp & gt=40
然後
開始
MP:= MP-40；
MCP:= 400+MC；
結束
Else writeln(“魔法不夠！”);
如果p='6 '那麽
如果mp & gt=40
然後
開始
MP:= MP-40；
MCP:= 400+MC；
結束
Else writeln(“魔法不夠！”);
結束；
GHP:= GHP-MCP；
如果ghp & lt0
然後
開始
寫(‘打敗怪物！經驗+'，(hp0 mod 10+10))；
readln
jy:= jy+hp0；
z:= random(5)；
如果z=3那麽writeln ('get money '，(hp0 div 10 * 10))；
錢:= money+((hp0 div 10)* 10)；
QL:= QL+10；
打破；
結束
其他
開始
寫('怪物受傷了，HP-'，mcp，'怪HP:'，HP0，'/'，GHP)；
readln
QL:= QL+10；
結束；
結束；
如果p='4 '那麽fyl:= fy * 2；
如果p='5 '那麽開始
z:= random(4)；
如果z=3，那麽writeln('轉義失敗！')
否則退出；
結束；
結束；
Writeln(“壹輪結束”)；
Writeln('怪物攻擊！');
z:= random(9)；
如果z=1，則
開始
寫(‘小姐！“是的！”);
readln
結束
其他
開始
如果fy & gt=gatc然後
開始
寫(‘成功辯護！’);
readln
結束
其他
開始
HP:= HP+fyl-gatc；
如果hp & gt那麽0
開始
寫('妳的HP-'，GATC-FYL ' '，HP Max，'/'，HP)；
readln
結束
其他
開始
寫(‘妳掛了！讓我們重新開始吧！);
readln
停止；
結束；
結束；
寫('壹輪結束')；
readln
結束；
結束；
盛記；
結束；
結束；
程序尚典；
var p:char；
開始
Writeln ('* * * * * * * * * * * * * * * *存儲* * * * * * * * * * * * * * * * * * * * * * * * ')；
如果錢& lt那麽=0
開始
(老板:這裏不歡迎窮人！走開！！！！' );
退出；
結束
其他
Writeln('1。紅藥:HP+50 100元2。藍藥MP+50 100元’)；
這家店現在只開這兩種藥。妳想要什麽?1/2 Q:Quit)')；
while(money & gt；0)和(p & lt& gt問')做
開始
readln(p)；
如果p='1 '，那麽
開始
如果HP+100 & gt；hpmax
然後
開始
HP:= HP max；
Writeln ('Life:'，hpmax，'/'，HP)；
錢:= money-100；
結束
其他
開始
HP:= HP+100；
Writeln ('Life:'，hpmax，'/'，HP)；
錢:= money-100；
結束；
結束
其他
如果p='2 '那麽
開始
如果MP+50 & gt；mpmax
然後
開始
MP:= MP max；
Writeln ('Magic:'，mpmax，'/'，MP)；
錢:= money-100；
結束
其他
開始
MP:= MP+50；
錢:= money-100；
Writeln ('Magic:'，mpmax，'/'，MP)；
結束；
結束；
結束；
如果錢& lt=0然後writeln('店主:沒錢？走開！！！！!');
結束；
石開程序；
var s，m，n，k，l:整數；
p:char；
開始
寫('請選擇角色:1。笑傲江湖2。魔術師:')；
readln(l)；
如果l=1，則
開始
HP:= 500；
HP max:= HP；
MP:= 30；
MP max:= MP；
錢:= 1000；
fy:= 100；
鄧吉:= 1；
ATC:= 150；
MC:= 50；
葉芝:= 1；
結束；
如果l=2，那麽
開始
HP:= 300；
HP max:= HP；
MP:= 50；
MP max:= MP；
錢:= 1000；
fy:= 50；
鄧吉:= 1；
ATC:= 80；
MC:= 150；
葉芝:= 2；
結束；
隨機化；
重復
writeln('hp:'，hpmax，'/'，hp，' '，' mp:'，mpmax，'/'，mp，' '，' money:'，money)；
m:= 1；
n:= 1；
Writeln('請輸入:f:移動b:購買物品z:人物狀態m:地圖q？離開’)；
readln(p)；
如果p='F '那麽
開始
Writeln('W:向前s:向下a:向左d:向右')；////{}////gvhfdghdvdhs！！！！！！！{}
readln(p)；
如果p='W '
然後
開始
m:= m+1；
如果m & gt那麽10
開始
Writeln('不能前進！');
m:= m-1；
結束
其他
如果ma[m，n]=0，則寫入(nothing ...));
如果ma[m，n]=1則魔怪手；
結束；
結束；
如果p='B '則尚店；
如果p='Z '那麽子料；
如果p='M '則映射；
直到p = ' Q
結束；
程序說明；
var p:char；
開始
writeln(' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ')；
Writeln('*妳是英雄，在峽谷中行進，前方可能有怪物或寶藏。*');
當妳遇到野獸時，妳可以用妳的東西攻擊他。按G鍵是攻擊，按* ')；
writeln(* T鍵是轉義，但不壹定轉義！妳壹開始只有壹把刀，以後可能會挑。
Writeln('*致其他寶藏，加油！妳的任務是找到傳說中的寶物——CSW劍*’)；
Writeln('*然後打敗大魔王(劇情老套，請見諒...) *');
writeln(' * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)；
(‘好了，我們開始遊戲吧！y/N’)；
readln(p)；
如果p='N '則停止
否則如果p='Y '那麽石開
其他
開始
writeln(‘愚弄我，去死吧！’);
readln
停止；
結束；
結束；
開始
writeln(' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ')；
Writeln('* F:怎麽玩:解釋怎麽玩* ')；
Writeln('* B:開始遊戲:進入遊戲* ')；
Writeln('* Q:退出遊戲:離開遊戲* ')；
writeln(' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)；
Writeln('請輸入:')；
readln(a)；
如果a='F '那麽朔明
否則如果a='B '那麽石開
否則如果a='Q '則停止；
結束。
var pm，pw，cm，cw，jishuqif:longint；
px，pz，cx，cz:longint；
pb，ph，pt，pf，py，cb，ch，cf，ct，cy:longint；
a、b、c、d、e:longint；
開始
Writeln('歡迎來到鮑勃的遊戲世界')；
開始
寫('妳要多少錢:')；
readln(pm)；
寫('妳要多少木頭:')；
readln(pw)；
Writeln('妳的錢:'，pm，''，'妳的木頭:'，pw)；
Writeln('遊戲正式開始')；
Writeln(' 1=剪刀2=石頭3=布')；
cm:= pm；CW:= pw；
px:= 10000；CX:= 10000；
pz:= 500；cz:= 500；
Pb:= 0；ph:= 0；pt:= 0；pf:= 0；py:= 0；CB:= 0；ch:= 0；CT:= 0；cf:= 0；cy:= 0；
重復
隨機化；
a:= random(3)+1；
隨機化；
b:= random(5)+1；
jishuqif:= jishuqif+1；
Writeln ('first '，jishuqif，' round ')；
Writeln('妳的血量:'，px，'妳的攻擊力:'，pz，'妳的錢:'，pm，'妳的木:'，pw，'，'，'電腦的血量:'，cx，'電腦的攻擊力:'，cz，'電腦的錢:'，cm。
Writeln('步兵:'，pb，'火槍手:'，ph，'坦克:'，pt，'飛機:'，pf，'原子彈:'，py，''，'步兵:'，cb，'火槍手:'，ch，'坦克:'，ct。
寫('面對兇猛的電腦，妳拿出(剪刀、石頭或布):')；
read ln(c)；
開始
If (c = 1)和(a = 1)然後開始writeln('妳給剪刀，計算機給剪刀，沒有贏家')；
d:= 3；結束；
If (c = 1)和(a = 2)然後begin writeln('妳出剪刀，計算機出石頭，計算機贏')；
d:= 2；結束；
如果(c = 1)和(a = 3)那麽開始writeln('妳出剪刀，計算機出布，妳贏')；
d:= 1；結束；
If (c = 2)和(a = 1)然後開始writeln('妳扔石頭，計算機扔剪刀，妳贏')；
d:= 1；結束；
如果(c = 2)和(a = 2)那麽開始寫(‘妳扔石頭，計算機扔石頭，沒有贏家’)；
d:= 3；結束；
如果(c = 2)和(a = 3)那麽開始寫(‘妳扔石頭，計算機給布，計算機贏’)；
d:= 2；結束；
If (c = 3)和(a = 1)然後開始writeln('妳出布，計算機出剪刀，計算機贏')；
d:= 2；結束；
如果(c = 3)和(a = 2)那麽開始寫('妳出布，計算機出石頭，妳贏')；
d:= 1；結束；
If (c = 3)和(a = 3)然後開始writeln('妳出布，計算機出布，沒有贏家')；
d:= 3；結束；
if(c & gt；3)然後開始writeln('輸入錯誤！');d:= 3；結束；
if(c & lt；1)然後開始writeln('輸入錯誤！');d:= 3；結束；
結束；
如果d=3，那麽開始
writeln(‘此局無贏家’)；
結束；
如果d=1那麽就開始寫('恭喜妳，妳獲得了主動權，妳的策略是:')；
readln(e)；
如果(e=1)和(pm & gt100)然後開始
Pb:= p b+ 1；pm:=(pm-100)；px:= px+100；pz:= pz+100；
Writeln('妳選擇了買步兵')；
結束else if(pm & lt；100)然後開始e:= 0；(‘不夠錢也不夠柴！妳的行動失敗了！);結束；
如果(e=2)和(pm & gt200)和(pw & gt50)然後開始
ph:= ph+1；pm:=(pm-200)；pw:=(pw-50)；px:= px+250；pz:= pz+200；
Writeln('妳選擇了買火槍手')；
結束else if(pm & lt；200)或(pw & lt50)然後開始e:= 0；(‘不夠錢也不夠柴！妳的行動失敗了！);結束；
如果(e=3)和(pm & gt500)和(pw & gt250)然後開始
pt:= pt+1；pm:=(pm-500)；pw:=(pw-250)；px:= px+500；pz:= pz+500；
Writeln('妳選擇買坦克')；
結束else if(pm & lt；500)或(pw & lt250)然後開始e:= 0；(‘不夠錢也不夠柴！妳的行動失敗了！);結束；
如果(e=4)和(pm & gt1000)和(pw & gt500)然後開始
pf:= pf+1；pm:=(pm-1000)；pw:=(pw-500)；px:= px+750；pz:= pz+1000；
Writeln('妳選擇買飛機')；
結束else if(pm & lt；1000)或(pw & lt500)然後開始e:= 0；(‘不夠錢也不夠柴！妳的行動失敗了！);結束；
如果(e=123456789)和(pm & gt10000)和(pw & gt10000)然後開始
py:= py+1；pm:=(pm-10000)；pw:=(pw-10000)；pz:= pz+5000；
Writeln('妳選擇了買原子彈')；
結束else if(pm & lt；10000)或(pw & lt10000)然後開始b:= 0；(‘不夠錢也不夠柴！妳的行動失敗了！);結束；
如果(e=5)那麽開始
CX:= CX-pz；
Writeln('妳選擇攻擊電腦，電腦血量被減去:'，pz，'點')；
如果py & gt0然後開始pz:= pz-(5000 * py)；py:= py-py；end else py:= py-0；
結束；
結束；
如果d=2，那麽開始
Writeln('可惜妳讓電腦獲得了主動權，電腦的操作是:'，b)；
如果(b=1)和(cm & gt100)然後開始
CB:= CB+1；cm:=(cm-100)；CX:= CX+100；cz:= cz+100；
Writeln('計算機選擇購買壹個步兵')；
結束else if(cm & lt；100)然後開始b:= 0；(‘不夠錢也不夠柴！妳的行動失敗了！);結束；
如果(b=2)和(cm & gt200)和(cw & gt50)然後開始
ch:= ch+1；cm:=(cm-200)；CW:=(CW-50)；CX:= CX+250；cz:= cz+200；
writeln(‘電腦選擇買火槍手’)；
結束else if(cm & lt；200)或(cw & lt50)然後開始b:= 0；(‘不夠錢也不夠柴！妳的行動失敗了！);結束；
如果(b=3)和(cm & gt500)和(cw & gt250)然後開始
CT:= CT+1；cm:=(cm-500)；CW:=(CW-250)；CX:= CX+500；cz:= cz+500；
writeln(‘電腦選擇買坦克’)；
結束else if(cm & lt；500)或(cw & lt250)然後開始b:= 0；(‘不夠錢也不夠柴！妳的行動失敗了！);結束；
如果(b=4)和(cm & gt1000)和(cw & gt500)然後開始
cf:= cf+1；cm:=(cm-1000)；CW:=(CW-500)；CX:= CX+750；cz:= cz+1000；
writeln(‘電腦選擇買飛機’)；
結束else if(cm & lt；1000)或(cw & lt500)然後開始b:= 0；(‘不夠錢也不夠柴！妳的行動失敗了！);結束；
如果(b=5)那麽開始
px:= px-cz；
Writeln('電腦選擇攻擊妳，妳的血量被減去:'，cz，'分')；
結束；
結束；
如果px & lt0然後寫下('哦，電腦殺了妳，妳輸了！');
如果cx & lt0然後寫下(祝賀妳，妳已經殺死了電腦，妳贏了！);
直到(px & lt0)或(cx & lt0);
結束；
Writeln('感謝您的參與！');
readln
結束。