(CKT) Pascal Mengubah celcius ke Farenheit dan Reamur

Pascal Mengubah celcius ke Farenheit dan Reamur

pada proses mengubah celcius ke dalam farenheit maupun reamur maka ada rumus yang digunakan yaitu:

1. untuk celcius ke farenheit = 9/5*celcius+32

2. untuk celcius ke reamur    = 2/5*celcius

untuk caranya silahkan ikuti langkah-langkah dibawah 

1. buka aplikasi pascal

2. pilih new

3. ketikan kode di bawah pada aplikasi pascal

Program mengubah_celcius_ke_Farenheit_Reamur;

uses crt;

const re = 4/5;

          f1 = 9/5;

          f2 = 32;

var R,F,C ; real;

begin

clrscr;

writeln('program mengubah celcius hendrik blogger')

writeln(' ');

write('input Nilai celcius =');read(C);

readln;

R :=re*C;

F :=f1*C+f2

write('R,F =',R,F);read(R,F);

readln;

end.

jika sudah diketik maka untuk menjalankannya silahkan tekan ctrl+f9

itu saja tutorial kali ini semoga bermanfaat bagi teman-teman,, sampai jumpa di tutorial selanjutnya.