sort.pl0

来自「刚开始设计时对PL/0了解并不多,随着设计的开展,对PL/0也有了一定的认识,了」· PL0 代码 · 共 20 行

PROGRAM SORT3;
VAR
A:ARRAY[1..4] OF REAL;
TEMP:REAL;
I,J:INTEGER;
BEGIN
  
  FOR I:=1 TO 4 DO
    READ(A[I]);
  FOR I:=1 TO 4 DO
    FOR J:=1 TO 4-I DO
     IF A[J]<A[J+1] THEN 
      BEGIN
        TEMP:=A[J];
        A[J]:=A[J+1];
        A[J+1]:=TEMP;
      END;
  FOR I:=1 TO 4 DO
   WRITE(A[I]);
END.