Triasih Amiksigma

TUGAS LATIHAN UJIAN

LOGIKA DAN ALGORITMA

4.            Untuk mengatur kelancaran perusahhan PT.MEDAL BUNGA HARUM, sebuah perusahaan bis kota menetapkan setoran setiap bisnya sebagai berikut : setoran untuk perawatan Rp 16.000,- setoran per jam Rp 5.000,- minimal dibayar 3 jam (Rp 15.000,-). Bis yang beroperasi lebih dari 6 jam dikenakan tambahan Rp 2.000,- per jam tambahan, dan lebih dari 10 jam, tambahan Rp 3.000,- per jam tambahan. Buatlah diagram alur yang mencetak laporan bis, memuat setoran bis, memuat nomor bis, nama sopir, jam operasi, dan besarnya setoran.

                                        10000/jam

                    7000/jam

5000/jam

                                                      

0                 3                  6                        10

BIAYA = BIAYA + ( JAM – 10 ) * 10000

BIAYA PERAWATAN 16000

FLOWCHART :

 

 

  

PROGRAM PASCAL :

program Project1;

{$APPTYPE CONSOLE}

 Var

  Jam : Integer;

  Biaya : Real;

  Ulangi : String;

begin

  repeat

  WriteLn('Program setoran bis');

  WriteLn('===================');

  Write('berapa harga setoran per jam = ');

  ReadLn(jam);

  Biaya := 16000;

  if jam > 10 Then

  begin

    Biaya := Biaya + (( jam - 10 ) * 10000 ) ;

    jam := 10;

  end;

  if jam > 6 Then

  begin

    Biaya := Biaya + (( jam - 6 ) * 7000  ) ;

    jam := 6;

  end;

  if jam > 3 Then

  begin

    Biaya := Biaya + ( jam * 5000 ) ;

  end

  else

  begin

    Biaya := Biaya + 15000;

  end;

  WriteLn('Biaya ' , Biaya : 10 : 0);

  Write('Lagi ? ');ReadLn(Ulangi);

  Until Ulangi = 'T';

  Readln;

end.