PROGRAM PASCAL

PROGRAM PASCAL  “SUHU”

PROGRAM SUHU;

            Var

            Celcius : integer;

            Fahrenheit : real;

            Begin

            Writeln (‘---------------------------------------------‘);

            Writeln (‘Celcius *************** Fahrenheit’);

            Writeln (‘---------------------------------------------‘);

            Celcius := 0 ;

            FOR Celcius := 5 DOWN TO 0 DO

                        Begin

                                    Fahrenheit :=  1.8 * Celcius + 32;

                                    Writeln (Celcius:8, Fahrenheit:14:2);

                                    Readln;

                        End;

            Writeln (‘--------------------------------------------‘);

End.

Output :

---------------------------------------------

Celcius *************** Fahrenheit

---------------------------------------------

            5                                  41.00

            4                                  39.20

            3                                  37.40

            2                                  35.60

            1                                  33.80

            0                                  32.00

--------------------------------------------