Program pengecekan cuaca

Berikut merupakan Program untuk Pengecekan cuaca menggunakan bahasa Pascal dengan menggunakan statement REPEAT.

• SOURCE CODE

Program pengecekan_cuaca;
uses crt;
var
   cuaca : string;
   i : string;
begin
repeat
clrscr;
     write('Cuaca hari ini mendung atau cerah ? ');
     readln(cuaca);
     i := 'n';
     begin
        if cuaca = 'mendung' then
           writeln('Hari ini hujan')
             else
        if cuaca = 'cerah' then
            writeln('Hari ini panas')
     end;
     write('Coba lagi (Y/N) ?');
     readln(i);
     until i = 'n';
readkey;
end.

• PENJELASAN SOURCE CODE

Program pengecekan_cuaca;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   cuaca : string;     {Inisiasi variabel}
   i : string;     {Inisiasi variabel}
begin     {Awal instruksi program}
repeat     {Ulang kerjakan}
clrscr;     {Membersihkan layar}
     write('Cuaca hari ini mendung atau cerah ? ');     {Cetak Cuaca hari ini mendung atau cerah ?}
     readln(cuaca);     {Baca variabel cuaca}
     i := 'n'     {Nilai variabel i = Nilai variabel n}
     begin     {Awal instruksi program}
        if cuaca = 'mendung' then     {Jika Cuaca = mendung kemudian}
           writeln('Hari ini hujan')     {Cetak Hari ini hujan}
               else     {Kalau tidak}
        if cuaca = 'cerah' then     {Jika cuaca = cerah kemudian}
           writeln('Hari ini panas')     {Cetak Hari ini panas}
      end;     {Akhir instruksi kondisi}
      write('Coba lagi (Y/N) ?');     {Cetak Coba lagi (Y/N) ?}
      readln(i);     {Baca variabel i}
      until i = 'n';     {Pembatasan repeat}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program          : Pengecekan cuaca
• Source Code .pdf     : .:_Download_:.
• Flowchar .png         : .:_Download_:.
• Program .pas           : .:_Download_:.
• Password                 : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file diatas klik Disini, untuk mempelajarinya.