Program konversi suhu dengan pascal

abdulmail | freeware | free game | exotic artikel | tips dan trik | free tutorial | internet marketing | gratis |education

ni contoh program konversi suhu dengan pascal.

program suhu;
uses crt;
var CL, FR, RE, KE :real;
    LAGI :CHAR;
LABEL A,B,C;
begin
A:  clrscr;
    WRITELN('+-------------------------------------------------+');
    writeln('| PROGRAM KONVERSI SUHU                           |');
    WRITELN('|                                                 |');
    WRITELN('| DARI CELCIUS KE KELVIN, REAMUR DAN FAHRENHEIT   |');
    writeln('+-------------------------------------------------+');
    write(' MASUKKAN SUHU YANG AKAN DIKONVERSIKAN : ');readln(CL);
    WRITELN;
    KE :=CL+273;
    RE :=(4/5)*CL;
    FR :=(9/5*CL)+32;
    write(' SUHU :',CL:10:1);WRITELN(' DERAJAT CELCIUS, SETARA DENGAN :');
    WRITELN;
    write(' ',KE:10:1);writeln(' DERAJAT KELVIN');
    WRITELN;
    write(' ',RE:10:1);writeln(' DERAJAT REAMUR');
    WRITELN;
    write(' ',FR:10:1);writeln(' DERAJAT FAHRENHEIT');
    WRITELN;
    WRITELN(' ---------- SELESAI -----------');
    WRITELN;
C:  WRITE(' ANDA INGIN MENGHITUNG  LAGI ? (Y/N)');READLN(LAGI);
    CASE (LAGI) OF
    'Y','y':GOTO A;
    'N','n':GOTO B;
    ELSE
    WRITELN(' PILIHAN HANYA Y / N !');GOTO C;
    readln;
B:  END;
end.

mohon dikoreksi agar lebih sempurna,