用turbo pascal 编的程序可以用吗

type rec=record s,bh:longint;end;

var

x,y,x1,y1,m,n,k,l,d,i:longint;

h,s:array[1..1000]of rec;

procedure qsort(l,r:longint);

var

i,j:longint;

t,x:rec;

begin

i:=l;j:=r;x:=h[(l+r) div 2];

repeat

while (h[i].s>x.s) do i:=i+1;

while (x.s>h[j].s) do j:=j-1;

if i=j;

if li then qsort(i,r);

end;

procedure qsort2(l,r:longint);

var

i,j:longint;

t,x:rec;

begin

i:=l;j:=r;x:=h[(l+r) div 2];

repeat

while (h[i].bh

Program GAME;

uses crt;

var a:array[1..20,1..20]of longint;

var b,x,y,i,j:longint;

var c:char;

begin

fillchar(a,sizeof(a),0);

x:=1;

y:=1;

repeat

begin

a[x,y]:=2;

for i:=1 to 20 do

begin

for j:=1 to 20 do begin

if a=1 then write('*');

if a=2 then write('#');

end;

writeln;

end;

a[x,y]:=0;

c:=readkey;

if ((c='w')or(c='W'))and(a=0)and(i+1=1) then x:=x-1;

if ((c='a')or(c='A'))and(a=0)and(i-1>=1) then y:=y-1;

if ((c='d')or(c='D'))and(a=0)and(i+1k do inc(i);

while a[j].date

排序,确定标准,满足标准划线,行和列同样操作,AC

来个快排

procedure qsort(m,n:Longint);//快排,貌似不用快排也可以过，不过为了0ms我还是用了一个快排

var i,j,k,t:longint;

begin

i:=m; j:=n; k:=tmp[(i+j) shr 1];

repeat

while tmp[i]>k do inc(i);

while tmp[j]

普及组，舒爽，[red]一次AC[/red]

一开始居然把这道题想复杂了

主要就是两个字：快排

汗。

考试半个多小时的题目。 Ac

不就排序。 什么的 几个部分、。。

这是复杂了点.

这道题。。。数据给错了吧。。。。考试时AC的，现在不会了。。。

What's wrong?

跪求玄机！！！！

痛苦的回忆……我们全校几乎都死在这题上

审题！！一定要仔细！！

这道题的通过率被我生生拉下了33%！只因为写错了个变量名！唉！基本功啊！

囧，第二个AC...