Rumus Pascal 5

Menghitung Kalor

uses wincrt;
var
m,c,T1,T2,T,Q:real;

begin
write('Masukkan massa benda :');read(m);
write('Masukkan kalor jenis benda :');read(c);
write('masukkan suhu akhir :');read(T2);
write('masukkan suhu awal :');read(T1);
T:=T2-T1;
Q:=m*c*T;
writeln('hasil kenaikan suhu adalah :',T:2:2);
writeln('Hasil kalornya adalah :',Q:2:2);

end.