Adjie Pionner IT

Soal :  Buatlah program Nota Penjualan barang dengan ketentuan: Nama dan Alamat pembeli diinput Nama, Harga satuan dan jumlah barang diinput Jika Nama barang yang diinput adalah x maka otomatis program berhenti menginput dan langsung megeluarkan nota pembelian baran tampilkan total harga masing2 barang tampilkan total harga keseluruhan diskon dibuat dalam bentu fungsi dengan ketentuan =>5000000 -5% 2jt-5jt -3% 1jt-2jt 2% <1jt 0% Total bayar =total harga - diskon   Jawaban:   uses crt; function Diskon(TH:double):double; begin     if TH >= 5000000 then       Diskon := TH * 5 /100     else if TH >= 2000000 then       Diskon := TH * 3 /100     else if TH >= 1000000 then       Diskon := TH * 2 /100     else        Diskon := 0; end; var nama: string[25]; alamat: string[50]; nabar : array [1..20] of string[30]; HSatuan, subtot : array[1..20] of double; jmlBeli: array [1..20] of byte; id,jBrg : byte; TotHar, totbay: double; begin clrsc

Pengulangan digunakan untuk menj a lankan satu atau bebera p a pernya t aa n sebanya k bebe r ap a kali . Denga n kata lain, pengulangan memungkinkan k ita untuk menjalankan beberapa pernyataan hanya dengan menuliskan pernyataan tersebut satu kali saja. A. Pernyataan for Pernyataan pengulangan yang pali n g sering digunakan adalah for. Pernyataan ini digun a kan jika kita telah mengetahui berapa kali kita akan mengulang satu atau beberapa         pernyataan.  Bentuk          u m um         pernyataan    for adalah sebagai berikut: for pencacah := nilai_awal to nilai_akhir do Begin (pernyataan-pernyataan yang akan diulang) end; Sekedar tambahan, blok berisi pernyataan-pernyataan yang  harus  diulang  sering  disebut  juga  kalang ( loop ). 1. Pernyataan For Positif Contoh : Perulangan positif untuk satu statement :