freepascal程序设计

来源：百度知道 编辑：UC知道 时间：2024/06/15 01:59:04
谁能帮我写一段freepascal程序的设计，要稍微有些难度的，因为本人高中参赛，去年写了个高精度计算（就是加减乘除都有），结果只获得了三等奖，所以今年想让各位高手帮帮我！！！
要编译好，测试过的，并且说明这个程序能做什么！！！
谢谢了！！！

freepascal写的程序还能“参赛”评奖？。。。汗。。。

高精度运算。。每一个去noip的都能写出来。。有奖不错了。。

uses crt;
const cz:array[1..4,1..2] of -1..1=((0,1),(1,0),(0,-1),(-1,0));
var i,j,xz1,yz1,y1,xz2,yz2,y2,t1,t2,t3,k,v1,v2:integer;
ch:char;
a:array[1..20] of integer;

procedure priter;
begin
gotoxy(1,1);
textbackground(green);
for i:=1 to 20 do
begin
for j:=1 to 40 do
write(' ');
writeln;
end;
end;
procedure priv;
begin
gotoxy(1,1);
write('v1:',v1:3,' v2:',v2:2);
end;
procedure start;
begin
priter;
textcolor(black);
textbackground(green);
gotoxy(1,1);
write('Really? ');
ch:=readkey;
for i:=3 downto 1 do
begin
write(i);
sound(1871);