Membuat Program Konversi Suhu dengan Pascal



Bagi kamu yang mempelajari buku Teknik Pemrogramam Pascal karya Budi Raharjo mungkin agak bingung dengan program Konversi suhu yang ada di latihan BAB IV karena setelah saya coba programnya tidak jalan alias compile failed. Ternyara di sana ada kesalahan sedikit. Di bawah halt(0) itu harus nya ada 2 end; (di buku hanya ada 1).

Programnya spt ini :

Program KonversiSuhu;

uses
crt;
label menu;

var
pilihan : char;
F,C,K,R : real;

begin
menu :
clrscr;
writeln('Program Konversi Suhu');
writeln('---------------------');
writeln;
writeln('Pilih menu berikut dengan menekan tombol 1..4');
writeln('[1] Konversi Celcius - Fahrenheit');
writeln('[2] Konversi Celcius - Reamur');
writeln('[3] Konversi Celcius - Kelvin');
writeln('[4] Keluar Program');
writeln;
write(' Masukan pilihan anda :'); readln(pilihan);
writeln;

case pilihan of
    '1' : begin
                write('Masukan suhu dalam Celcius :');
                readln(C);
                F:=(9/5)*C+32;
                writeln(C:0:2,'Celcius =',F:0:2, 'Fahrenheit');
                end;

    '2': begin
                write('Masukan suhu dalam Celcius'); readln(R);
                R:=(4/5)*C;
                writeln(C:0:2,'Celcius = ',R:0:2,' Reamur');
                end;

    '3': begin
                write('Masukan suhu dalam Celcius'); readln(K);
                K:=C+273;
                writeln(C:0:2,'Celcius - ',K:0:2,'Kelvin');
                end;

    '4' : begin halt(0);
                end;

    end;

    writeln;
    writeln('Tekan sembarang tombol untuk ke menu');
    readln;
    goto menu;

    readln;
    end.

Selamat mencoba.

Copyright © 2009 ====================== All rights reserved. Theme by Laptop Geek . | Bloggerized by FalconHive .