Senin, 21 Oktober 2013

Program pascal konversi suhu


program konversi_suhu;
uses crt;
 VAR
 CELCIUS,REAMUR,FAHRENHEIT,KELVIN:REAL;

FUNCTION R(C:REAL):REAL;
BEGIN
R:=4/5*C;
END;

FUNCTION F(C:REAL):REAL;
BEGIN
F:=(9/5*C)+32;
END;

FUNCTION K(C:REAL):REAL;
BEGIN
K:=C+273;
END;

BEGIN
CLRSCR;
WRITE('MASUKAN DERAJAD CELCIUS : ');READLN(CELCIUS);

REAMUR:=R(CELCIUS);
FAHRENHEIT:=F(CELCIUS);
KELVIN:=K(CELCIUS);

WRITELN('REAMUR     : ',REAMUR:4:2);
WRITELN('FAHRENHEIT : ',FAHRENHEIT:4:2);
WRITELN('KELVIN     : ',KELVIN:4:2);
READLN;
END.

2 komentar:

  1. Pengen yang lebih seru ...
    Ayo kunjungi www.asianbet77.com
    Buktikan sendiri ..

    Real Play = Real Money

    - Bonus Promo Red Card pertandingan manapun .
    - Bonus Mixparlay .
    - Bonus Tangkasnet setiap hari .
    - New Produk Sabung Ayam ( minimal bet sangat ringan ) .
    - Referal 5 + 1 % ( seumur hidup ) .
    - Cash Back up to 10 % .
    - Bonus Royalty Rewards setiap bulan .

    untuk Informasi lebih jelasnya silahkan hubungi CS kami :
    - YM : op1_asianbet77@yahoo.com
    - EMAIL : asianbet77@yahoo.com
    - WHATSAPP : +63 905 213 7234
    - WECHAT : asianbet_77
    - SMS CENTER : +63 905 209 8162
    - PIN BB : 2B4BB06A / 28339A41

    Salam Admin ,
    http://asianbet77.com/

    BalasHapus