sort.pl0

编译原理课程设计 编译原理课程设计

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.