öλÔÓéÀֵǼÈë¿ÚÏÂÔØ

Ò»¡¢£±£¶·Ö
1¡¢PROGRAM g0101 ( output );
var a,b :integer ;
FUNCTION fc( x : integer ) : integer ;
begin a:=b+x ; x=b-x ; fc:=a*x ; end ;
FUNCTION fp ( VAR y :integer ) : integer ;
begin y:=b+y ;fp=y-a ; end ;
begin
a=2; b=3;
writeln('fc=' , fc(a) , ' fp= ' ,fp(b) ) ;
writeln( 'a=' ,a , 'b=' b )
end;

2¡¢PROGRAM g0102 (output );
var a,b,c:integer ;
begin
new(a); a^:=3; new(b); b^5:=5 ;
a^:=a^+b^ ; c:=a;
c^:=a^*b^; b^:=a^-c^ ;
writeln( 'a=',a^,'b=b',b^,'c=',c^ );
end;
3¡¢PROGRAM g0103 (output) ;
const a=3 ; b=4 ;c=7 ;
var
x:=array[1..a] of integer ;
y:=array[1..b] of integer ;
z:=array[1..c] of integer ;
i,j,k,h:integer ;
PROCEDURE ssar ;
var i,j,k:integer ; w:array[1..a]of integer ;
begin
for i:=1 to a do w[i]:=x[a+1-i];
i:=1 ;j:=1;k:=1;
while (i<=a) and (j<=b) do
begin
if w[i] > y[i] then begin h:=w[i] ; i=i+1; end
else begin h:=y[i] ; j:=j+1 ;end;
z[k]:=h ; k:=k+1 ;
end ;
while i<=a do begin z[k]:=w[i] ;k:=k+1; i:=i+1 end;
while j<=b do begin z[k]:=y[i] ;k:=k+1; j:=j+1 end;
end;
begin
for i:=1 to a do x[i]:=i*2 ;
for j:=1 to b do y[i]:=c-j ;
ssar ;
for i:=1 to c do write(z[i],''); writeln;
end ;

4 PROGRAM g0104 (output);
var a,b,c:integer;
FUNCTION fg(x:integer ;var y,z:integer):integer ;
begin z:=x*2; x:=z+1 ; y:=x+z ; fg :=y-1 ; end
begin
a:=1 ;b:=2;c:=1;
writeln('fg=',fg(fg(a,b,c),b,c)) ;
writeln('a=',a,'b=',b,'c=',c) ;
end;

¶þ¡¢£±£²·ÖÒÑ֪˫Á¬±íÖнڵãÀàÐÍÈçÏÂ

Type
dpoint = ^list ;
list =RECORD
data:integer;
left ,right : dpointer ;
end ;

ÈçϹý³Ì½«ÔÚË«Á¬±íµÚi¸ö½Úµã£¨i>=0£©Ö®ºó²åÈëÒ»¸öÔªËØ£¬ÎªxµÄ½áµã£¬ÇëÔÚ´ð°¸À¸¸ø³öÌâÄ¿ÖÐ______´¦Ó¦¸ÃÌíÈëµÄÓï¾ä»ò±í´ïʽ£¬Ê¹Ö®Íê³ÉÉÏÊö¹¦ÄÜ¡£

PROCEDURE insert ( var head :dpointer ;i,x:integer);
var s,p:dpointer ;
j:integer;
begin
new(s) ;s^data:=x;
if (i=0) then { Èç¹ûi=0£¬Ôò½«s½áµã²åÈëµ½±íÍ·ºó·µ»Ø}
begin s^.right=head ;____1_____ head:=s ; end
else
begin
p:=head; ____2____ {ÔÚË«Á¬±íÖвéÕÒµÚi ¸ö½Úµã£¬ÓÉpËùÖ¸Ïò}
while ((p<>nil) and (j<i) do
begin j:=j+1 ; _____3______ end ;
if(p<>nil) then
if (p^.right=nil) then
begin p^.right:=s ; s^.right:=nil ; ____4___ end;
else
begin s^.right:=p^.right ; ___5____
p^.right:=s; ____6_____ end
else
writeln('can not find node ');
end;
end;

Èý¡¢£±£²·Ö¹ãÒå±íÊÇn(n>=0)¸öÊý¾ÝÔªËØ£¬a1,a2,¡­¡­anµÄÓÐÏÞÐòÁУ¬
ÆäÖÐai£¨1<=i<=n£©»òÕßÊǵ¥¸öÊý¾ÝÔªËØ£¨Ô­×Ó£©£¬»òÈÔÈ»ÊÇÒ»¸ö¹ãÒå±í£¬¹ãÒå±íµÄ½áµã¾ßÓв»Í¬µÄ½á¹¹£¬¼´Ô­×Ó½áµãºÍ×Ó±í½áµã£¬ÎªÁ˽«Á½Õßͳһ£¬linkÓòÖ¸ÏòÏÂÒ»¸ö½áµã£¬µ±ÆätagΪ£±Ê±±íʾÊÇ×Ó½áµã£¬ÆäsublistΪָÏò×Ó±íµÄÖ¸Õë¡£Òò´Ë£¬¹ãÒå±í¿É²ÉÓÃÈçϽṹ´æ´¢£º
type
glist=^gnode ;
gonde=RECORD
link:glist;
case tag:0..1 of
0data:char);
1sublist:glist);
end;

£±¡¢»­³ö¹ãÒå±í£¨£¨a,b),c£©µÄ´æ´¢½á¹¹£»
£²¡¢Ð´³ö¼ÆËãÒ»¸ö¹ãÒå±íµÄÔ­×ӽṹ¸öÊýµÄµÝ¹éËã·¨±íʾʽ£»
£³¡¢±àдʵÏÖÉÏÊöËã·¨µÄ¹ý³Ì»òº¯Êý³ÌÐò¡£

ËÄ¡¢£±£°·Öдһ¸öËã·¨£¬ÀûÓãۣ°¡£¡££±£ÝÉϵÄËæ¼´º¯Êý¼ÆËãÔ²ÖÜÂÊnµÄ½üËÆÖµ£¬Ê×ÏÈ˵Ã÷ÄãµÄËã·¨£¬¶øºó±àдÏàÓ¦µÄ¹ý³Ì»òº¯Êý³ÌÐò¡£

Î塢ѡÔñÌß¡¡£¨£¸·Ö£©
£±¡¢ÏÂÁÐÅÅÐòËã·¨ÖУ¬ÔÚÿһÌ˶¼ÄÜÑ¡³öÒ»¸öÔªËطŵ½Æä×îÖÕλÖÃÉÏ£¬²¢ÇÒÆäʱ¼äÐÔÄÜÊÜÊý¾ÝÌØÐÔµÄÓ°ÏìµÄÊÇ________.

a Ö±½Ó²åÈëÅÅÐò¡¡¡¡b¡¡¿ìËÙÅÅÐò¡¡¡¡c¡¡Ö±½ÓÑ¡ÔñÅÅÐò¡¡¡¡¡¡d¡¡¶ÑÅÅÐò

£²¡¢ÏÂÁÐÅÅÐòËã·¨ÖУ¬Õ¼Óø¨Öú¿Õ¼ä×î¶àÊÇ_______

a¡¡¹é²¢ÅÅÐò¡¡¡¡¡¡b¡¡¿ìËÙÅÅÐò¡¡¡¡c¡¡Ï£¶ûÅÅÐò¡¡¡¡d¡¡¶ÑÅÅÐò

Áù¡¢Ìî¿Õ£²£°·Ö

£±¡¢Ò»¿Ã×ó×ÓÊ÷Ϊ¿ÕµÄ¶þ²æÊýÔÚÏÈÐòÏßË÷»¯ºó£¬ÆäÖеĿÕÁ´ÓòµÄ¸öÊýΪ______

2¡¢ÈôÒÔ£û£´¡¢£µ¡¢£¶¡¢£·¡¢£¸£ý×öΪҶ×Ó½ÚµãµÄȨֵ¹¹Ôì¹þ·òÂüÊ÷£¬ÔòÆä´øȨ·¾¶³¤¶ÈÊÇ________
3¡¢ÔÚ˳Ðò´æ´¢µÄ¶þ²æÊ÷ÖУ¬±àºÅΪiºÍjµÄÁ½¸ö½áµã´¦ÔÚͬһ²ãµÄÌõ¼þÊÇ_______

ʣϵÄÊ¡ÂÔ¡­¡­¡­¡­
Ìî¿Õ»¹ÓУ²Ì⣬¶¼ÊÇ»ù±¾Ì⣬ÆßÊÇ×÷ͼÌ⣱£²·Ö£¬¸øÄãһЩÖÐÐò¡¢ÏÈÐò¡¢ºóÐòµÄ×Öĸ£¬ÈÃÄã»­³ö£¬ÍêÕûµÄ¶þ²æÊ÷¡££¨¸øÄãµÄÈý¸öÐòÁж¼ÊDz»ÍêÕûµÄ£©

°ËÊǽâ´ðÌ⣱£°·Ö£¬Ò»µÀÊǸøÄãÒ»¸öͼ£¬ÒªÄãÕÒµ½£¬¶¥µã£±µ½ÆäÓà¸÷µãµÄ×î¶Ì·¾¶
»¹ÓÐÒ»¸ö¶þ²æÊ÷µÄÌâÄ¿¡£