BelanjaBajuImproved.pas

program BelanjaBajuImproved;
uses crt;

var
  selectedCategory, selectedType: Integer;
  price: Double;
  inputtedDiscount1, inputtedDiscount2: String;

begin
  clrscr;
  writeln('Kategori:');
  writeln('1. Baju');
  writeln('2. Celana');
  writeln('3. Aksesoris');
  write('Pilih Kategori: ');

  readln(selectedCategory);
  writeln;

  { usage of case of condition }
  case (selectedCategory) of
    1:
      begin
        writeln('Jenis Baju:');
        writeln('1. Kemeja');
        writeln('2. Kaos');
        writeln('3. Polo');

        write('Pilih Jenis Baju: ');
        readln(selectedType);
      end;
    2:
      begin
        writeln('Jenis Celana:');
        writeln('1. Jeans');
        writeln('2. Bahan');
        writeln('3. Celana Pendek');

        write('Pilih Jenis Celana: ');
        readln(selectedType);
      end;
    3:
      begin
        writeln('Jenis Aksesoris:');
        writeln('1. Gelang');
        writeln('2. Jam Tangan');
        writeln('3. Dompet');

        write('Pilih Jenis Aksesoris: ');
        readln(selectedType);
      end;
  else
    writeln('Kategori yang kamu pilih belum ada.');
    readln;
    exit;
  end;

  { usage of nested if condition }
  if (selectedCategory = 1) then
    begin
      writeln('Kategori: Baju');
      if (selectedType = 1) then
        begin
          writeln('Jenis Baju: Kemeja');
          price := 130000;
        end
      else if (selectedType = 2) then
        begin
          writeln('Jenis Baju: Kaos');
          price := 50000;
        end
      else if (selectedType = 3) then
        begin
          writeln('Jenis Baju: Polo');
          price := 70000;
        end
      else
        begin
          writeln('Jenis baju yang kamu pilih belum ada.');
          readln;
          exit;
        end;
    end
  else if (selectedCategory = 2) then
    begin
      writeln('Kategori: Celana');
      if (selectedType = 1) then
        begin
          writeln('Jenis Celana: Jeans');
          price := 120000;
        end
      else if (selectedType = 2) then
        begin
          writeln('Jenis Celana: Bahan');
          price := 140000;
        end
      else if (selectedType = 3) then
        begin
          writeln('Jenis Celana: Celana Pendek');
          price := 30000;
        end
      else
        begin
          writeln('Jenis celana yang kamu pilih belum ada.');
          readln;
          exit;
        end;
    end
  else if (selectedCategory = 3) then
    begin
      writeln('Kategori: Aksesoris');
      if (selectedType = 1) then
        begin
          writeln('Jenis Aksesoris: Gelang');
          price := 20000;
        end
      else if (selectedType = 2) then
        begin
          writeln('Jenis Aksesoris: Jam Tangan');
          price := 80000;
        end
      else if (selectedType = 3) then
        begin
          writeln('Jenis Aksesoris: Dompet');
          price := 50000;
        end
      else
        begin
          writeln('Jenis aksesoris yang kamu pilih belum ada.');
          readln;
          exit;
        end;
    end;

  writeln('Harga: ', price:6:2);

  writeln;
  writeln('Kode Diskon:');
  writeln('- DISKON5RB, Diskon 5ribu');
  writeln('- BELIAJA, Diskon 10%');
  writeln('- JKTDISKON, Diskon 25%');
  writeln('Kamu bisa pakai kode diskon maksimal 2.');
  write('Diskon 1: ');
  readln(inputtedDiscount1);

  { usage of if condition }
  if (inputtedDiscount1 = 'DISKON5RB') then price := price - 5000;
  if (inputtedDiscount1 = 'BELIAJA') then price := price - (price * 10 / 100);
  if (inputtedDiscount1 = 'JKTDISKON') then price := price - (price * 25 / 100);

  writeln('Harga: ', price:6:2);
  
  writeln;
  write('Diskon 2: ');
  readln(inputtedDiscount2);

  { usage of if condition }
  if (inputtedDiscount2 = 'DISKON5RB') then price := price - 5000;
  if (inputtedDiscount2 = 'BELIAJA') then price := price - (price * 10 / 100);
  if (inputtedDiscount2 = 'JKTDISKON') then price := price - (price * 25 / 100);
  writeln('Harga: ', price:6:2);
  readln;
end.