Free Pascal Program Konversi Suhu
Kamis, 26 Desember 2013
0
komentar
السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Pada posting pertama, saya akan membahas tentang cara membuat program di free pascal IDE dengan penerapan contoh yang telah saya buat di bawah ini, mudah-mudahan materi ini bisa saudara pahami, oke langsung saja pada topiknya.
uses crt;
var a,b,c,fahrenheit, kelvin, reamur : real;
i : integer;
procedure fah;
begin
writeln
('Masukkan suhu fahrenheit : '); readln (a);
fahrenheit
:= 5/9 *( a-32);
writeln
('hasil konversi ke celcius adl ==> ',fahrenheit:4:2,'C');
readln;
end;
procedure kel;
begin
writeln
('Masukkan suhu kelvin : '); readln (b);
kelvin
:= b-273;
writeln
('hasil konversi ke celcius adl ==> ',kelvin:4:2,'C');
readln;
end;
procedure ream;
begin
writeln
('Masukkan suhu reamur : '); readln (c);
reamur
:= 5/4*c;
writeln
('hasil konversi ke celcius adl ==> ',reamur:4:2,'C');
readln;
end;
begin
clrscr;
repeat
writeln ('=====================');
writeln ('|PROGRAM KONVERSI SUHU|');
writeln ('=====================');
writeln ('1. Fahrenheit ==> Cel');
writeln ('2. Kelvin ==> Cel');
writeln ('3. Reamur ==> Cel');
writeln ('4. Keluar');
write ('Pilih opsi ==> '); readln (i);
case i of
1 : fah;
2 : kel;
3 : ream;
end;
until (i=4);
readln;
end.
Lihat gambar
Lihat gambar
TERIMA KASIH ATAS KUNJUNGAN SAUDARA
Judul: Free Pascal Program Konversi Suhu
Ditulis oleh wahyu prasetyo
Rating Blog 5 dari 5
Semoga artikel ini bermanfaat bagi saudara. Jika ingin mengutip, baik itu sebagian atau keseluruhan dari isi artikel ini harap menyertakan link dofollow ke https://mishisipi.blogspot.com/2013/12/free-pascal-program-konversi-suhu.html. Terima kasih sudah singgah membaca artikel ini.Ditulis oleh wahyu prasetyo
Rating Blog 5 dari 5
Categories:
Free Pascal IDE
0 komentar:
Posting Komentar