±àÒëÔ­Àí¿ÎºóϰÌâ´ð°¸

µÚ¾ÅÕÂ

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

ÁªÏµ¿Í·þ£º779662525#qq.com(#Ìæ»»Îª@)