µÚ¾ÅÕÂ
1.¹ý³Ì»î¶¯¼Ç¼°üº¬ÄÄЩÐÅÏ¢£¿¸÷ÐÅÏ¢µÄ×÷Ó㿺ÎʱÌîдËüÃÇ£¿
2.ÏÂÃæÊÇÒ»¸öµ÷Óõݹ麯ÊýµÄPascal³ÌÐò
program PP(input,output) VAR k:integer;
FUNCTION F(n:integer):integer begin
if n<=0 then F:=1 else F:=n*F(n-1); end; begin
k:=F(10); ¡ end.
µ±µÚ¶þ´Î£¨µÝ¹éµØ£©½øÈëFºó£¬DISPLAYµÄÄÚÈÝÊÇʲô£¿µ±Ê±Õû¸öÔËÐÐÕ»µÄÄÚÈÝÊÇʲô£¿ 3.¶ÔÓÚÏÂÃæµÄ³ÌÐò£º
procedure P(X,Y,Z); begin
Y:=Y+1; Z:=Z+X; end P; begin A:=2; B:=3;
P(A+B,A,A); print A end
µ±²ÎÊý´«µÝµÄ°ì·¨·Ö±ðΪ£¨1£©´«Öµ£»£¨2£©´«µØÖ·£»£¨3£©Öµ-½á¹û£»£¨4£©´«Ãûʱ£¬³ÌÐòÖ´ÐÐʱÊä³öµÄA·Ö±ðÊÇʲô£¿
4.Ó¦ÓÃPascalÓïÑÔµÄ×÷ÓÃÓò¹æÔò£¬ËµÃ÷ÏÂÃæ³ÌÐòÖеÄÃû×ÖaºÍbµÄÿһ´Î³öÏÖËùÓ¦ÓõÄÉùÃ÷¡£
program a(input,output);
procedure b(u,v,x,y:integer); var a:record a,b:integer end; b:reocrd b,a:integer end; begin
with a do begin a:=u;b:=v end; with b do begin a:=x;b:=y end; writeln(a.a,a.b,b.a,b.b) end; begin
b(1,2,3,4) end.
5.ΪÏÂÃæµÄC³ÌÐò¹¹ÔìÒ»¸ö¿ÉÄܵÄÔËÐÐʱ»·¾³¡£
int a[10];
char *a=¡±hello¡±; int f(int i,int b[]) { int j=1; A: { int i=j;
char c=b[I]; ¡ } }
25
void g(char *s) { char c[10]; B: { int a[5]; ... } }
main() { int x=1; x=f(x,a); g(s);
return 0; }
£¨1£©ÔÚ½øÈ뺯ÊýfÖеĿéAÖ®ºó¡£ £¨2£©ÔÚ½øÈ뺯ÊýgÖеĿéBÖ®ºó¡£
6.Display±íºÍ¾²Ì¬Á´µÄ×÷ÓÃÊÇʲô£¿ÊÔ¾ÙÒ»¸ö³ÌÐòÀý×Ó£¬²¢¿¼²ìÆäDisplay±íºÍ¾²Ì¬Á´µÄÄÚÈÝ¡£
7.¹ý³Ì²ÎÊýµÄ´«µÝ·½Ê½Óм¸ÖÖ?¼òÊö\´«µØÖ·\ºÍ\´«Öµ\µÄʵÏÖÔÀí¡£
26
µÚʮՠ£±£® £²£® £³£® £´£®
ʲô½ÐÖ¸ÁîµÄÖ´Ðдú¼Û£¿ ¼Ä´æÆ÷·ÖÅäµÄÔÔòÊÇʲô£¿
ÔÚ°þ¶á¼Ä´æÆ÷µÄʱºò£¬Ó¦¿¼ÂÇÄÄЩÒòËØ£¿Ê²Ã´Ê±ºòÒ»¸ö±äÁ¿¿ÉÒÔÖ÷¶¯ÊÍ·ÅËüËùÕ¼ ÊÔд³ö³ÌÐò¶Î
IF x > 0 THEN y:=y+1 ELSE IF x < 0 THEN y:=y-1
µÄÄ¿±ê´úÂ룬ÆäÖеıäÁ¿¾ùΪ·ÇÐβÎʵÐͱäÁ¿¡£ £µ£®
ÊÔд³ö³ÌÐò¶Î
WHILE x < y DO BEGIN y :=y + 1;
IF y > 0 THEN y :=y-x ELSE WHILE y < 0 DO y := y + x END
µÄÄ¿±ê´úÂ룬ÆäÖбäÁ¿¾ùΪ·ÇÐβÎʵÐͱäÁ¿¡£ £¶£® £·£® £¸£®
ÊÔΪFORÑ»·Óï¾äÉè¼ÆÄ¿±ê´úÂë¡£ ÊÔΪREPEATÑ»·Óï¾äÉè¼ÆÄ¿±ê´úÂë¡£ ÊÔΪCASEÓï¾äÉè¼ÆÄ¿±ê´úÂë¡£
ÓõļĴæÆ÷£¿
27
28