PASCAL Percabangan IF ELSE, CASE OF

Sebelumnya terima kasih yang sudah setia dengan blog saya, program Pascal adalah program yang pada saat ini sedang saya tekuni. Saya sangat menyukai program ini karena mengasikkan.

Kali ini saya akan memberikkan bagaimana tipe tipe percabangan if else, dan case of. Saya akan memberikkan beberapa contoh:

1. Menentukkan hari dengan nomer hari

uses crt;

VAR
        Hari: Integer;

BEGIN
clrscr;

        writeln('Masukkan Nomor Hari: ');
        readln(Hari);

        case Hari of
        1:writeln('Senin');
        2:writeln('Selasa');
        3:writeln('Rabu');
        4:writeln('Kamis');
        5:writeln('Jumat');
        6:writeln('Sabtu');
        7:writeln('Minggu');
        end;
        readln;

end.

 2. Menentukkan A lebih besar dari B dan 10

 uses crt;

var
        a, b: integer;

begin
clrscr;
        writeln('Masukkan nilai A: ');
        readln(a);
        writeln('Masukkan nilai B: ');
        readln(b);

        if (a < 10) then
                if (a > b) then
                writeln('A smaller than 10, but greater than B')
                else if (a < b) then
                writeln('A smaller than 10 and B')
        else
                writeln('A smaller than 10 and equal with B');
                readln;

end.

 3. Mencari total harga diskon

 uses crt;

var
        tothargadisk, harga, disk: Real;
        jenis: String;

begin
clrscr;
        writeln('Masukkan Jenis: ');
        readln(jenis);
        writeln('Masukkan Harga: ');
        readln(harga);

        case jenis of
        'A':disk:= harga * 0.1;
        'B':disk:= harga * 1.5;
        'C':disk:= harga * 0.2;
        end;
        readln;

        writeln('Harga setelah diskon: ', harga - disk:0:2);
        readln

end.

4. Mencari Grade

 uses crt;

var
        grade: char;

begin
clrscr;
        writeln('Masukkan Grade: ');
        readln(grade);

        case (grade) of
        'A':writeln('You are Excellent');
        'B':writeln('OH! Well Done');
        'C':writeln('OH! Well Done');
        'D':writeln('Yeah You Passed');

        else
        writeln('OMG! You really did not study right!');
        end;
        readln;

end.

5. Menentukkan nilai terbesar dari 5 Bilangan

uses crt;

VAR
        a, b, c, d, e: Integer;

BEGIN
clrscr;
        writeln('Masukkan nilai A: ');
        readln(a);
        writeln('Masukkan nilai B: ');
        readln(b);
        writeln('Masukkan nilai C: ');
        readln(c);
        writeln('Masukkan nilai D: ');
        readln(d);
        writeln('Masukkan nilai E: ');
        readln(e);

        IF (a > b) and (b > c) and (c > d) and (d > e) then
            writeln('A adalah bilangan terbesar')
            else if (b > a) and (a > c) and (c > d) and (d > e) then
            writeln('B adalah bilangan terbesar')
                 else if (c > a) and (a > b) and (b > d) and (d > e) then
                 writeln('C adalah bilangan terbesar')
                      else if (d > a) and (a > b) and (b > c) and (c > e) then
                      writeln('D adalah bilangan terbesar')
        ELSE
           writeln('E adalah bilangan terbesar');
           readln;

END.

 6. Mencari Gaji seseorang dengan jam lemburnya

 uses crt;

var
        gol, jamk: Integer;
        gaji: real;
begin
clrscr;
        writeln('Masukkan Golongan: ');
        readln(gol);
        writeln('Masukkan Jam Kerja: ');
        readln(jamk);
              if (jamk > 40) then
                case (gol) of
                1:gaji:=(3000 * 40) + ((jamk - 40) * 3000 * 1.5);
                2:gaji:=(3500 * 40) + ((jamk - 40) * 3500 * 1.5);
                3:gaji:=(4000 * 40) + ((jamk - 40) * 4000 * 1.5);
                4:gaji:=(5000 * 40) + ((jamk - 40) * 5000 * 1.5);
                end

              else
                case (gol) of
                1:gaji:= 3000 * jamk;
                2:gaji:= 3500 * jamk;
                3:gaji:= 4000 * jamk;
                4:gaji:= 5000 * jamk;
                end;

        writeln('Gaji nya adalah: ', gaji:0:2);
        readln;

end.