Question

Free Pascal 怎么编译

Answer 1

很简单，在记事本里写完程序以后，把名字改成 *.pas （*指的是程序名）然后。。把这个文件用鼠标左键拖拽到桌面上Free Pascal的快捷方式里，然后Free Pascal就把程序打开了。--------------------------------------（以上是废话）---------------------------------------------紧接着，在FREE PASCAL标题的正下方，有“ File Edit Search Run Compile ……………… ”点击Compile，然后点击第一个就编译了。。当然，最简单的方法是按下键盘上的ALT键，然后按F9就OK了。

Answer 2

procedure Sort(l,r:longint);
var i,j,x,y:longint;
begin
i:=l;j:=r;x:=a[(l r) div 2]; //找到中间数X
repeat //循环把中间数放到正确位置，即左边全部小于X，右边全部大于X
while a[i]>x do i:=i 1; //找到左边一个大于X的数
while x>a[j] do j:=j-1; //找到右边一个小于X的数
if i<=j then begin
y:=a[i];a[i]:=a[j];a[j]:=y; //交换

Answer 3

在freepascal中输入代码后，按下Ctrl+f9建输入保存的文件名称后按下右方第一个按钮，然后程序就编译并直接运行了。（在保存目录下也会有一个可执行文件）