INDONESIANWARE - Pada Artikel yang anda baca kali ini dengan judul Konversi Suhu Dengan Turbo Pascal, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Turbo Pascal, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Konversi Suhu Dengan Turbo Pascal
link : Konversi Suhu Dengan Turbo Pascal

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

Sekianlah artikel Konversi Suhu Dengan Turbo Pascal kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Konversi Suhu Dengan Turbo Pascal dengan alamat link https://ware-id.blogspot.com/2014/03/konversi-suhu-dengan-turbo-pascal.html