读入三个不同的数，编程按由小到大的顺序排列打印出来 [复制链接]

解:设读入的三个数为a，b，c，为了把较小的数排在前面，可作如下处理:

   ① 如果a＞b就交换a、b的值，将较大的值换至后面；

   ② 如果a＞c就交换a、c的值，将较大的值换至后面；

   ③ 如果b＞c就交换b、c的值，将较大的值换至后面；

   ④ 输出处理后的a,b,c。

    Pascal程序:

    Program  Exam22；

    Var a，b，c，t: Real；

    Begin

        Write(''Input a， b，c='')；

        Readln(a，b，c)；

        if a＞b then

begin                    ｛复合语句｝

             t:=a； a:=b； b:=t       {交换a，b}

           end；

        if a＞c then

begin                    ｛复合语句｝

             t:=a； a:=c； c:=t        {交换a，c}

           end；

        if b＞c then

begin                   ｛复合语句｝

              t:=b； b:=c； c:=t         {交换b，c}

            end；

        Writeln('a，b，c:'，a:6， b:6， c:6)；

        Readln

    End.