Program Suhu

Program_suhu;
uses crt;
var suhu : integer ;
begin
write ( ‘ suhu tubuh: ‘ ) ; readln (suhu) ;
if suhu < 28 then
writeln ( ' suhu rendah ' ) ;
else

if suhu > 37 then
writeln ( ‘ suhu tinggi ‘ ) ;
else
writeln ( ‘ normal ‘ ) ;
writeln ( ‘ selasai ‘ ) ;
readln ;
end.

Kata Kunci

program pascal suhu, program suhu, pascal suhu, contoh pemograman n flowchat pada mvb, frogram suhu, matrix, program suhu dalam pascal.

Related posts:

1. Program Konversi Suhu
2. Program Mencari Rata-rata, Nilai Tertinggi dan Terendah
3. Menentukan Bentuk Padat, Cair, Gas Benda
4. Program Faktorial
5. Program PSB SMA Ver.1 Pascal
6. Program Stat Game
7. Program Data Mahasiswa
8. Program Berat
9. Program Penilaian Mahasiswa
10. Program Input Nilai Mahasiswa