Pemrograman Pascal Menampilkan Bulan

 Latihan Pemrograman Pascal Menampilkan Bulan

Buatlah sebuah program untuk menerima inputan berupa angka antara 1 – 12 kemudian menampilkan bulan yang menggambarkan angka tersebut. Jika angka yang dimasukan bukan merupakan angka 1-12 maka menampilkan pesan error ‘angka yang anda masukan tidak valid’ 

Input yang diharapkan:

> Input sebuah angka antara 1 - 12 : 6 < inputan >

> Bulan ke 6 adalah : Juni

Jawab:

Inputan

Program Inputan_angka;

uses crt;

var

        bulan:string;

begin

clrscr;

        writeln('Nama : Farhan Misbahul Hayat');

        writeln('Npm  : 202143502440');

        writeln('==============================');

        writeln('>>> Program Inputan Menampilkan Bulan <<<');

        write('Silahkan input angka anda (1-12) : ');

        readln(bulan);

        write('Bulan ke 6 adalah ');

        case (bulan) of

                '1' : writeln('Januari');

                '2' : writeln('Februari');

                '3' : writeln('Maret');

                '4' : writeln('April');

                '5' : writeln('Mei');

                '6' : writeln('Juni');

                '7' : writeln('Juli');

                '8' : writeln('Agustus');

                '9' : writeln('September');

                '10': writeln('Oktober');

                '11': writeln('November');

                '12': writeln('Desember');

        else

                writeln('Maaf,angka yang anda masukkan tidak valid');

                writeln('Harap mengisi kembali angka yang sesuai (1-12)');

        end;

        readln;

end.

Output

Sesuai yang diharapkan:

Format penulisan salah:

Thanks Guys