Konversi Suhu Turbo Pascal

      

       Membuat Program Konversi Suhu dengan menggunakan Turbo Pascal

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);
    readln;
end.

     Program Konversi Suhu dari Reamur ke Celcius dan Fahrenheit Dalam Turbo Pascal

a.        Program 1 :

program konversisuhu;

uses WinCrt;

var

c,r,f:real;

begin

clrscr;

writeln('Konversi suhu reamur ke celcius dan fahrentheit');

writeln(' ');

write('teken enter untuk memulai');

readln;

clrscr;

writeln;

write('masukkan suhu reamur: ');

readln(r);

c:=(5/4)*r;

f:=((9/4)*r)+32;

writeln(' ');

write('teken enter untuk menampilkan hasil');

readln;

clrscr;

writeln(' ');

writeln('celcius: ',c:0:2);

write(' ');

writeln('fahrenheit: ',f:0:2);

writeln(' ');

Writeln('copyright_tanwir');

readln;

end.

b.       program 2 :

Analisis:

Rumus konversi adalah sbb:

Reamur=4/5 Celcius

Fahrenheit=9/5 Celcius+32

Kelvin=Celcius+273

Program Konversi_Suhu;

Uses WinCrt;

Var c:integer;

r,f,k:real;

yt:char;

Begin

Repeat

Clrscr;

Writeln(’PROGRAM MENGHITUNG KONVERSI SUHU’);

Writeln(’================================’);

write (’Isikan suhu derajat celcius = ’);Readln(c);

r:=4/5*c;

f:=9/5*c+32;

k:=c+273;

Writeln(’Oke,..Sudah saya hitung, ini hasilnya:’);

Writeln(c ,’Celcius = ’,r:6:3,’ Reamur’);

Writeln(c ,’Celcius = ’,f:6:3,’ Fahrenheit’);

Writeln(c ,’Celcius = ’,k:6:3,’ Kelvin’);

Writeln(’Pasti bener…………….!);

Writeln;writeln;

Write(’Akan mengulangi lagi (Y/T)? = ’);readln(yt);

Until (yt=’T’) or (yt=’t’);

End.