Konversi Suhu Dengan Turbo Pascal

Kali ini saya akan memposting tentang Konversi Suhu Dengan Turbo Pascal

• Konversi Celcius ke Fahrenhuit dan Reamur

1. Buka Turbo Pascal yang anda punya

2. Ketikan Script dibawah ini

program cel;
uses crt;
var
	celcius,fahrenheit,reamur:real;
begin
	clrscr;
	writeln('===============');
	writeln('Tutorial Koding');
	writeln('===============');
	write('Masukan suhu dalam celcius : ');readln(celcius);

	fahrenheit:=9/5*celcius+32 {Mengkonversi celcius ke fahrenheit}
	reamur:=4/5*celcius;	{Mengkonversi celcius ke reamur}

	writeln('Konversi suhu ke fahrenheit :',fahrenheit:0:1);
	writeln('Konversi suhu ke reamur :',reamur:0:1);
	readln;
end.

3. Jalankan program tersebut dengan menekan CTRL+F9

• Konversi Fahrenheit ke celcius dan reamur

1. Buka Turbo Pascal yang anda punya

2. Ketikan Script dibawah ini

program fah;
uses crt;
var
	celcius,fahrenheit,reamur:real;
begin
	clrscr;
	writeln('================');
	writeln('Tutorial Koding');
	writeln('================');
	write('Masukan suhu dalam fahrenheit : ');readln(fahrenheit);
	
	celcius:=5/9*(fahrenheit-32); {Konversi fahrenheit ke celcius}
	reamur:=4/9*(fahrenheit-32); {Konversi fahrenheit ke reamur}

	writeln('Konversi suhu celcius : ',celcius:0:1);
	writeln('Konversi suhu reamur : ',reamur:0:1);

	readln;
end.

3. Jalankan program tersebut dengan menekan CTRL+F9

• Konversi Reamur ke Celcius dan Reamur

1. Buka Turbo Pascal yang anda punya

2. Ketikan script dibawah ini

program ream;
uses crt;
var
	reamur,celcius,fahrenheit:real;
begin
	clrscr;
	writeln('================');
	writeln('Tutorial Koding');
	writeln('================');
	write('Masukan suhu dalam reamur : ');readln(reamur);

	celcius:=4/5*reamur;
	fahrenheit:=9/4*(reamur+32);

	writeln('Konversi ke celcius : ',celcius:0:1);
	writeln('Konversi ke fahrenheit : ',fahrenheit:0:1);

	readln;
end.

3. Jalankan program tersebut dengan menekan CTRL+F5

Sekian dari saya
semoga bermanfaat