Menentukan Wujud zat cair

      Program berikut adalah program yang menggunakan IF/THEN dalam tiga kasus dalam menentukan wujud zat cair dalam keadaan beku, keadaan cair atau zat cair tersebut dalam keadaan wujud uap/gas.
Langsung saja copy paste (copas) di Turbo Pascal kalian :


Program wujudair;
(* File : wujudair.PAS *)
(* contoh pemakaian IF tiga kasus : wujud air *)
(* kamus *)

Uses
  WinCrt;

Var
   T : integer;

Begin
(* program *)
  Writeln( 'Contoh IF/THEN' );
  write ( 'temperatur dalam Celcius = ');
  readln (T);
  if (T < 0) then   
   begin
       writeln ( 'wujud air beku' );
   end else
   begin
       if ( (0<=T) and (T<=100) ) then
        begin
            writeln ( 'wujud air cair' );
        end else
        begin
         if (T>100) then
         begin
             writeln ( 'wujud air uap/gas');
         end;
        end;
   end; 
end.

Jika sudah kalian Copas di Turbo Pascal kalian, kemudian klik Run atau ctrl+f9 tampilannya seperti disamping ini : 
Masukkan nilai nya kemudian tekan Enter.