Konversi Suhu di Turbo Pascal - Pemrograman Dasar

Input :

Program Konversi_Suhu;

Uses WinCrt;

var f,c:real;

begin

Writeln('Program Konversi Fareinheit Ke Celcius');

Writeln('======================================');

Writeln;

Write('Masukan Suhu dalam Farenheit: ');readln(f);

c:=5/9*(f-32);

Writeln;

Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);

end.

Output:

Uses Wincrt;

Var j,m,d,h:integer;

begin

Writeln('Program Konversi Waktu');

Writeln('======================');

Writeln;

Write('Masukkan Jumlah Jam : ');readln(j);

Write('Masukkan Jumlah Menit : ');readln(m);

Write('Masukkan Jumlah Detik : ');readln(d);

Writeln;

h:=(j*3600)+(m*60)+d;

Writeln('Jadi Hasil Konversi : ',h,' Detik');

end.

Posted in: Edukasi