谁帮我做完我的Turbo Pascal游戏.

来源：百度知道 编辑：UC知道 时间：2024/06/05 00:27:45
要把屏幕的两个边用线连起来, 然后系统对比哪边的面积更小哪边就变成墙, 呆在面积更小那边的"坏蛋" 死掉.
墙的面积达到游戏界面的80%就赢了.
飞机碰到坏蛋就死了.写出"Game Over".
我不太会, 请高手帮我编完(用简单的指令)我给他200分.
老师说要用二维array解决.

Turbo Pascal的功能实在是太小了,建议用Free Pascal 最好用delphi

我自己已经写了一点点 (Z→莉☆°)

program jatek;
uses crt;
const n=6;
type rossz=record
k1,k2:integer;
end;
var bad:array [1..n] of rossz;
mat:array [1..25,1..80] of boolean;
a,b,c,d,e,f,g,j,k,l:integer;
x,y,z:string;
ch:char;
procedure rajzolj(o,s,szin:integer);
var j:integer;
begin
gotoxy(o,s);
textcolor(szin);
mat[o,s]:=true;
write('?);
gotoxy(o-2,s+1);
for j:=1 to 5 do
begin
write('?);
mat[o-2,s+1]:=true;
end;
gotoxy(o-1,s+2);
mat[o-1,s+2]:=true;
mat[o+1,s+2]:=true;
write('??);
end;

begin
clrscr;