Jumat, 15 April 2016

Program Pascal

sebagai pembelajaran saya membuat program untuk mencari bentuk air

Berikut listing programnya :


uses crt;

var
  suhu : integer;

begin
  clrscr;
  writeln ('Program Perubahan Bentuk Air');
  writeln ('=====================');
  writeln;
  write ('Masukkan Suhu Air (Celcius) =  ');
  readln (suhu);

  if suhu >= 100 then
    writeln ('Air pada kondisi tersebut berbentuk gas.')
  else
   if suhu > 0 then
    writeln ('Air pada kondisi tersebut berbentuk cair.')
   else
    writeln ('Air pada kondisi tersebut berbentuk padat.');
  readln;

end.







Tidak ada komentar:

Posting Komentar