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.
Minggu, 21 November 2010
Rumus Pascal 5
Diposting oleh Wratsari Windrawati WibutiLabel: coba- coba
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar