Facebook

Tugas Struktur data : Membuat Program Kasir dengan safest cryptocurrency exchange

From Rizki Fauzian R, 4 Years ago, written in Pascal.
URL https://pastebin.pl/view/9eb7de8c
Embed
Download Paste or View Raw
Hits: 215
  1. { NAMA : RIZKI FAUZIAN R.}
  2. { NIM : 1903040168       }
  3. { KELAS : C}
  4.  
  5.  
  6.  
  7. program untitled;
  8. uses crt;
  9. type
  10. barang = record
  11. kode_barang : string [10];
  12. nama_barang : string [30];
  13. harga_jual :integer;
  14. quantity :shortint;
  15. sub_total :integer;
  16. kembalian : integer;
  17. jumlahuang :integer;
  18. end;
  19.  
  20. var
  21. sub_total2 : integer;
  22. sub_total : integer;
  23. x         : integer;
  24. n         : integer;
  25. data : array [1..100] of barang;
  26.  
  27. BEGIN
  28. writeln ('##########################');
  29. writeln ('                         #');
  30. writeln ('Tugas array of record    #');
  31. writeln ('                         #');
  32. writeln ('Nim : 1903040168         #');
  33. writeln ('                         #');
  34. writeln ('Nama : Rizki Fauzian R.  #');
  35. writeln ('                         #');
  36. writeln ('##########################');
  37. writeln ('                         ');
  38. writeln ('Masukan jumlah data : ');
  39. readln (x);
  40. writeln ('');
  41. writeln ('###################################################');
  42. writeln ('');
  43. for n := 1 to x do
  44. begin
  45. writeln ('Masukan kode barang : ');readln (data[n].kode_barang);
  46. writeln ('Masukan nama barang : ');readln (data[n].nama_barang);
  47. writeln ('Masukan harga jual : ');readln (data[n].harga_jual);
  48. writeln ('Masukan quantity : ');readln (data[n].quantity);
  49. data[n].sub_total := data[n].harga_jual * data[n].quantity;
  50. writeln ('');
  51. writeln ('###################################################');
  52. writeln ('');
  53. end;
  54.  
  55.  
  56. writeln ('====================================================================================================================');
  57. writeln ('|| No ||     KODE BARANG     ||          NAMA BARANG          ||    HARGA JUAL    || QUANTITY ||     SUBTOTAL     ||');
  58. writeln ('====================================================================================================================');
  59.  
  60.  
  61. for n := 1 to x do
  62. begin
  63. writeln ('||',n:4,'||',data[n].kode_barang:21,'||',data[n].nama_barang:31,'||',data[n].harga_jual:18,'||',data[n].quantity:10,'||',data[n].sub_total:18,'||');
  64. writeln ('====================================================================================================================');
  65.  sub_total2 := sub_total2 + data[n].harga_jual * data[n].quantity
  66. end;
  67. writeln ('');
  68. writeln ('###################################################');
  69. writeln ('');
  70. writeln('Total belanja : ',sub_total2);
  71. writeln('============================');
  72. write('Jumlah uang yg di bayarkan : ');readln(data[n].jumlahuang);
  73. writeln('Jumlah bayar              : ',sub_total2);
  74.  
  75. data[n].kembalian := data[n].jumlahuang-sub_total2;
  76.  
  77. writeln('Kembalian                  : ',data[n].kembalian);
  78. writeln('=============================');
  79. writeln ('');
  80. writeln ('###################################################');
  81. writeln ('');
  82. writeln('TERIMA KASIH SUDAH BERBELANJA');
  83. readln;
  84. END.
  85.  

Reply to "Tugas Struktur data : Membuat Program Kasir dengan"