先抢个沙发.....
前几道还可以，但是后面......

(我每4题发一个帖子)
1、
VAR
   a, b, t: INTEGER;
BEGIN
    a := 1; b := 1;
    t := a; a := b; b := t;
    WRITELN(a, b);
END.
2、
VAR
   a, m: INTEGER;
BEGIN
    READLN(a);
    m := a MOD 4;
    IF m <> 0 THEN WRITELN(m) ELSE WRITELN(4);
END.
3、
VAR
   a, b: INTEGER; ff: BOOLEAN;
BEGIN
    ff := TRUE;
    REPEAT
         WRITE('Input score(Input -1 is end):');
         READLN(a);
         IF a <> -1 THEN BEGIN
            b := TRUNC(SQRT(a) * 10);
            WRITELN(b);
         END ELSE BEGIN
            ff := FALSE;
         END;
    UNTIL NOT ff;
END.
4、  
VAR
   a, b, c, t: INTEGER;
BEGIN
    READLN(a, b, c);
    IF a > b THEN BEGIN t := a; a := b; b := t; END;
    IF a > c THEN BEGIN t := a; a := c; c := t; END;
    IF b > c THEN BEGIN t := b; b := c; c := t; END;
    WRITELN(a, b, c);
END.

第9题:1

有点没劲…………

1. 
program lx1;
  var
    x, y:integer;
  procedure swapab(var a, b:integer); assembler;
    asm
      MOV AX, WORD PTR[b]
      MOV BX, WORD PTR[a]
      MOV WORD PTR[a], AX
      MOV WORD PTR[b], BX
    end;
  begin
    readln(x, y);
    swap(x, y);
    writeln(x);
    writeln(y);
  end.

斑竹真是的，明明一个简单的程序非搞这么烦琐。

竟然还用MOVE,这种东东好象早已被尘封了吧.......

1.(1) begin
        c:=a;a:=b;b:=c;
      end.
  (2) begin
        a:=a+b;b:=a-b;a:=a-b;
      end.

[quote]斑竹真是的，明明一个简单的程序非搞这么烦琐。[/quote]
我只是KUSO一下而已......但是很明显的一点是, 这个swapab过程速度非常快

[quote]1. 
program lx1;
  var
    x, y:integer;
  procedure swapab(var a, b:integer); assembler;
    asm
      MOV AX, WORD PTR[b]
      MOV BX, WORD PTR[a]
      MOV WORD PTR[a], AX
      MOV WORD PTR[b], BX
    end;
  begin
    readln(x, y);
    swap(x, y);
    writeln(x);
    writeln(y);
  end.
[/quote]

  上面的程序的过程名字还叫swapab，后面就叫做了swap 有没有运行过啊？