Tugas Flowchart dan Program Div Mod

Assalamu'alikum.Wr.Wb

Disini saya akan memberikan bentuk flowchart bilangan ganjil dan program untuk menampilkan uang kembalian, tidak usah lama langsung saja.

Tugas !!!!!

1.  Buat flowchart untuk menampilkan ket, apakah suatu bilangan itu ganjil / genap ?
2.  Buat program untuk menampilkan uang kembalian ?

Jawab !!!!!

1. Flowchart menampilkan bilangan ganjil / genap
2. Program Kasir Sebagai berikut :

PROGRAM KASIR_KU;
USES CRT;
VAR
        UANG,HARGA,KEMBALIAN:LONGINT;
BEGIN
        CLRSCR;
        WRITE('MASUKKAN UANG = ');READLN(UANG);
        WRITE('MASUKKAN HARGA BARANG = ');READLN(HARGA);
        KEMBALIAN:=UANG-HARGA;
        WRITELN;

        WRITE('PECAHAN DALAM MATA UANG RUPIAH');READLN;
        IF KEMBALIAN>=100000 THEN
        BEGIN
                  HARGA:=KEMBALIAN DIV 100000;
                  WRITELN(HARGA,' SERATUS RIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 100000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 50000;
                  WRITELN(HARGA,' LIMAH PULUH RIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 50000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 20000;
                  WRITELN(HARGA,' DUA PULUH RIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 20000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 10000;
                  WRITELN(HARGA,' SEPULUH RIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 10000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 5000;
                  WRITELN(HARGA,' LIMAH RIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 5000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 2000;
                  WRITELN(HARGA,' DUA RIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 2000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 1000;
                  WRITELN(HARGA,' SERIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 1000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 500;
                  WRITELN(HARGA,' LIMAH RATUS RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 500;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 200;
                  WRITELN(HARGA,' DUA RATUS RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 200;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 100;
                  WRITELN(HARGA,' SERATUS RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 100;
        END;
        WRITELN;

        WRITE('TERIMA KASIH ^-^ ');
        WRITELN;
        READLN;
END.

Gambar hasil keluaran :



Terima Kasih
Wa'alaikumsalam.Wr.Wb