Fungsi Case | Free Pascal | Tutorial

Sekarang kita akan membahas fungsi Case pada free pascal.
Case dalam bahasa Indonesia adalah kasus. Jadi, fungsi ini adalah fungsi yang ditulis dalam membagi suatu kasus. Fungsi ini hampir sama dengan fungsi If-Then-Else, namun lebih disederhanakan lagi. Sebagai Contoh

Fungsi Case | Nested Structure
Beginilah salah satu contoh Fungsi case menggunakan Nested Structure dari fungsi If-Then-Else

if bil < 10 then
begin
    writeln('satuan');
end
else
begin
    if bil < 100 then
    begin
        writeln('puluhan');
    end
    else
    begin
        if bil < 1000 then
        begin
            writeln('ratusan');
        end
        else
        begin
            if bil < 10000 then
            begin
                writeln('ribuan');
            end
            else
            begin
                writeln('puluhribuan');
            end;
        end;
    end;
end;

Struktur Alternatif Menggunakan Fungsi Case Beginilah kiranya struktur alternatif menggunakan fungsi case.

case  of
    (harga atau harga-harga) 1 : begin (perintah-perintah 1) end;
    (harga atau harga-harga) 2 : begin (perintah-perintah 2) end;
    dan seterusnya...
end;

Dan contoh dari struktur diatas adalah seperti ini.

case bil of
    1..9: begin writeln('satuan'); end;
    10..99: begin writeln('puluhan'); end;
    100..999: begin writeln('ratusan'); end;
    1000..9999: begin writeln('ribuan'); end;
    10000..30000: begin writeln('puluhribuan'); end;
end;

Mudah Bukan?? sekarang saatnya Latihan. Begini soalnya

Seseorang memberikan Anda sebuah bilangan bulat N (1 ≤ N < 100.000). Jika N merupakan satuan, cetak satuan. Jika N merupakan puluhan, cetak puluhan. Jika N adalah ratusan, cetak ratusan. Jika N adalah ribuan, cetak ribuan. Jika N adalah puluh ribuan, cetak puluhribuan.

Format Masukan

1 bilangan integer

Format Keluaran

Sesuai permintaan soal

Input

4

Output

satuan

Contoh Input

12345

Contoh Output

puluhribuan

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a : integer;
 
begin
readln (a);
if a < 10 then
begin
        writeln ('satuan');
end
else
begin
        if a < 100 then
        begin
                writeln('puluhan');
        end
        else
        begin
                if a < 1000 then
                begin
                        writeln('ratusan');
                end
                else
                begin
                        if a < 10000 then
                        begin
                                writeln('ribuan');
                        end
                        else
                        begin
                                writeln('puluhribuan');
                        end;
                end;
        end;
end;
end.