Konversi Celcius ke Fahrenheit

Kali ini saya akan share cara membuat program konversi celcius ke fahrenheit di Free Pascal.
Cara membuatnya tulis kode program seperti di bawah ini:

program KonversiCelciusKeFahrenheit;

CONST
sc = 5;
sf = 9;
ank = 32;

var
c : real;
f : real;

begin
writeln;
write('celcius (c) =');
readln (c);
f :=c*sf/sc+ank;
writeln;
writeln('Fahrenheit = ',f:0:1,' F');
writeln;
writeln ('Akhir Program, Terima Kasih');
readln
end.


contoh program konverensi celcius ke fahrenheit

hasil saat output







oke sekian pembahasan saya tentang progam konversi celcius ke fahrenheit, terima kasih buat yang udah mengunjungi blog saya, semoga bermanfaat  :v