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...