Tutorial Pascal : Membuat tabel BBM

Yak. kali ini saya akan share mengenai kode pascal membuat tabel BBM atau Bahan Bakar Minyak.
Ups, tidak semudah itu.

Ada soalnya loh.
0,5 liter = 2750
1 liter = 4500.
1,5 liter = 7250
2 liter = 9000

Perhatikan polanya ! Kalau beli eceran (ex : 0,5 liter) akan lebih mahal Rp.500 dari harga seharusnya Rp. 2250 karena harga 1 liter = Rp.4500. Tetapi, disini harga 0,5 liter menjadi Rp. 2750.
Begitu juga untuk seterusnya.

Soalnya adalah...
Buatlah tabel yang menujukkan harga BBM mulai dari 0,5 liter sampai dengan 10 liter !

---------------------------------------------------------------------------------------

Berikut Flowchatnya:

----------------------------->>
Scriptnya :

uses wincrt;

var i, no : integer;

      BBM, litter, harga : real;

Begin

             Writeln('-------------------------------');

             Writeln ('| ',' No ',' |  ', 'Litter','  |    ','Harga','  |');

             Writeln('|-----------------------------|');

                                Begin

                                        Litter := Litter + 0.5;

                                        No := No + 1;

                                        Harga := 4500;

                                        Litter:= 0;

                                        No := 0;

                                        for i := 1 to 20 do

                                               Begin

                                                  Litter := Litter + 0.5;

                                                  No := No + 1;

                                                  Harga := 4500;

                                                     Begin

                                                        if i mod 2 = 0 then

                                                            BBM := Litter * Harga

                                                         else

                                                             BBM := Litter * harga + 500

                                                      End;

                                                Writeln ('|  ',No:2,'  | ',   Litter:4:1,'     |   ', BBM:5:0,'   |');

                                                End;

                                                Writeln('|-----------------------------|');

                                End;

End.

--------------------------------------------------->>
Hasil Running programnya akan sebagai berikut :)

  

Nah, selamat mencoba !

Download Script dan programnya di Program_TabelBBM.rar