API tools faq
paste
aldowildan

program kursus_mengemudi

aldowildan
Jan 21st, 2019
128
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 9.16 KB | None | 0 0
raw download clone embed print report
  1. program kursusmengemudi;
  2. uses crt;
  3. var
  4. alamat,nama :string;
  5. mobil,umur,kembali,pil :integer;
  6. harga,kembalian,uang :real;
  7. pembayaraan:longint;
  8.  
  9. Function Menu: integer;
  10.  var men:integer;
  11.  begin
  12.  clrscr;
  13.  writeln('===============================');
  14.  writeln('       KURSUS MENGEMUDI        ');
  15.  writeln('===============================');
  16.  writeln('|| 1.SYARAT PENDAFTARAN      ||');
  17.  writeln('|| 2.BIAYA KURSUS dan JADWAL ||');
  18.  writeln('|| 3.MATERI                  ||');
  19.  writeln('|| 4.PEMBAYARAN              ||');
  20.  writeln('|| 5.KELUAR                  ||');
  21.  writeln('===============================');
  22.  writeln;
  23.  write(' Masukkan Kode Menu : ');
  24.  Menu:=men;
  25.  end;
  26.  
  27. procedure syarat;
  28. var b:string;
  29. begin
  30. clrscr;
  31. writeln ('==============================================================');
  32. writeln ('                   SYARAT PENDAFTARAN                         ');
  33. writeln ('==============================================================');
  34. writeln ('|| 1.Mengisi formulir pendaftaran                           ||');
  35. writeln ('|| 2.Menyerahkan pas photo ukuran 3X4cm (2 buah)            ||');
  36. writeln ('|| 3.Foto Copy KTP / Identitas (1 lembar)                   ||');
  37. writeln ('|| 4.Membayar uang pendaftaran sebesar Rp 25.000,-          ||');
  38. writeln ('|| 5.Membayar biaya belajar (uang muka) minimum 50%         ||');
  39. writeln ('|| 6.Bersedia mematuhi peraturan dan ketentuan yang berlaku ||');
  40. writeln ('==============================================================');
  41. write (' tekan B untuk kembali: ');
  42. readln(b);
  43. readln;
  44. end;
  45.  
  46.  
  47. procedure biaya;
  48. var b:string;
  49. begin
  50. clrscr;
  51. writeln ('========================================================');
  52. writeln ('                  BIAYA KURSUS dan JADWAL               ');
  53. writeln ('========================================================');
  54. writeln ('|| Avanza Automatic         Rp 800.000/paket          ||');
  55. writeln ('|| Toyota Agya  Automatic   Rp 770.000/paket          ||');
  56. writeln ('|| Toyota Agya manual       Rp 700.000/paket          ||');
  57. writeln ('|| Suzuki Ertiga Manual     Rp 600.000/paket          ||');
  58. writeln ('||                                                    ||');
  59. writeln ('|| JADWAL:                                            ||');
  60. writeln ('|| SENIN s/d MINGGU                                   ||');
  61. writeln ('|| Pukul 06.00 - 17.00 WITA                           ||');
  62. writeln ('|| 1 Paket = 5 X Pertemuan (@ 2jam) Total = 10 jam    ||');
  63. writeln ('|| Hari dan jam Kursus dapat pilih sendiri            ||');
  64. writeln ('========================================================');
  65. write (' tekan B untuk kembali: ');
  66. readln(b);
  67. readln;
  68. end;
  69.  
  70. procedure materi;
  71. var b:string;
  72. begin
  73. clrscr;
  74. writeln ('=================================================================================================');
  75. writeln ('                                          MATERI PELAJARAN                                       ');
  76. writeln ('=================================================================================================');
  77. writeln ('|| A.Penjelasan instruktur mengenai pokok materi                                               ||');
  78. writeln ('|| - Perkenalan instrumen mobil dan cara penggunaanya                                          ||');
  79. writeln ('||                                                                                             ||');
  80. writeln ('|| B.Penguasaan Teknik Kendaraan                                                               ||');
  81. writeln ('|| - Start                                                                                     ||');
  82. writeln ('|| - Oper gigi Berhenti                                                                        ||');
  83. writeln ('|| - Belok kiri / kanan                                                                        ||');
  84. writeln ('||                                                                                             ||');
  85. writeln ('|| C.Memberhentikan mobil secara mendadak                                                      ||');
  86. writeln ('||                                                                                             ||');
  87. writeln ('|| D.Menghadapi problem lalu lintas                                                            ||');
  88. writeln ('|| - Berjalan dengan sempurna di jalan raya                                                    ||');
  89. writeln ('|| - Mengejar dan melewati kendaraan lain dengan cara yang benar                               ||');
  90. writeln ('|| - Waktu Latihan di jalan umum harus mentaati dan memperhatikan segala peraturan lalu lintas ||');
  91. writeln ('||                                                                                             ||');
  92. writeln ('|| E.Latihan ketrampilan ( di lakukan di lapangan)                                             ||');
  93. writeln ('|| - Jalan mundur lurus sejauh 50 meter                                                        ||');
  94. writeln ('|| - Memutar kendaraan di tempat yang terbatas (diantara 2 bh mobil)                           ||');
  95. writeln ('||                                                                                             ||');
  96. writeln ('|| F.Latihan Ujian                                                                             ||');
  97. writeln ('|| - Parkir kiri dan kanan                                                                     ||');
  98. writeln ('|| - Parkir paralel                                                                            ||');
  99. writeln ('|| - Tanjakan, maju/mundur                                                                     ||');
  100. writeln ('||                                                                                             ||');
  101. writeln ('|| G.Pendalaman / Evaluasi.                                                                    ||');
  102. writeln ('|| ==============================================================================================');
  103. write (' tekan B untuk kembali: ');
  104. readln(b);
  105. readln;
  106. end;
  107.  
  108. procedure pembayaran;
  109. var
  110. nama,alamat :string;
  111. harga,kembalian,uang :real;
  112. mobil,umur :integer;
  113. begin
  114. clrscr;
  115. writeln ('======================================================');
  116. writeln ('                       PEMBAYARAN                     ');
  117. writeln ('======================================================');
  118. write ('  UMUR  : ');readln(umur);
  119. write ('  NAMA  : ');readln(nama);
  120. write ('  ALAMAT: ');readln(alamat);
  121. writeln ('  PILIHAN MOBIL:');
  122. writeln ('  1.Avanza Automatic');
  123. writeln ('  2.Toyota Agya  Automatic');
  124. writeln ('  3.Toyota Agya manual');
  125. writeln ('  4.Suzuki Ertiga Manual');
  126. write ('  Pilih Mobil:');readln(mobil);
  127. writeln ('======================================================');
  128. if (mobil = 1) then
  129. begin
  130. writeln ('  NAMA  : ',nama);
  131. writeln ('  UMUR  : ',umur);
  132. writeln ('  ALAMAT: ',alamat);
  133. writeln ('  MOBIL : Avanza Automatic');
  134. writeln ('  HARGA : Rp800.000');
  135. writeln ('======================================================');
  136. writeln ('  JADWAL: ');
  137. writeln ('  SENIN s/d MINGGU');
  138. writeln ('  Pukul 06.00 - 17.00 WITA');
  139. writeln ('  5 X Pertemuan (@ 2jam) Total = 10 jam');
  140. writeln ('  Hari dan jam Kursus dapat pilih sendiri');
  141. harga := 800000
  142. end
  143. else
  144. if (mobil = 2) then
  145. begin
  146. writeln ('  NAMA  : ',nama);
  147. writeln ('  UMUR  : ',umur);
  148. writeln ('  ALAMAT: ',alamat);
  149. writeln ('  MOBIL : Toyota Agya Automatic');
  150. writeln ('  HARGA : Rp770.000');
  151. writeln ('======================================================');
  152. writeln ('  JADWAL: ');
  153. writeln ('  SENIN s/d MINGGU');
  154. writeln ('  Pukul 06.00 - 17.00 WITA');
  155. writeln ('  5 X Pertemuan (@ 2jam) Total = 10 jam');
  156. writeln ('  Hari dan jam Kursus dapat pilih sendiri');
  157. harga := 825000
  158. end
  159. else
  160. if (mobil = 3) then
  161. begin
  162. writeln ('  NAMA  : ',nama);
  163. writeln ('  UMUR  : ',umur);
  164. writeln ('  ALAMAT: ',alamat);
  165. writeln ('  MOBIL : Toyota Agya Manual');
  166. writeln ('  HARGA : Rp700.000');
  167. writeln ('======================================================');
  168. writeln ('  JADWAL: ');
  169. writeln ('  SENIN s/d MINGGU');
  170. writeln ('  Pukul 06.00 - 17.00 WITA');
  171. writeln ('  5 X Pertemuan (@ 2jam) Total = 10 jam');
  172. writeln ('  Hari dan jam Kursus dapat pilih sendiri');
  173. harga := 700000
  174. end
  175. else
  176. if (mobil = 4) then
  177. begin
  178. writeln ('  NAMA  : ',nama);
  179. writeln ('  UMUR  : ',umur);
  180. writeln ('  ALAMAT: ',alamat);
  181. writeln ('  MOBIL : Suzuki Ertiga Manual');
  182. writeln ('  HARGA : Rp600.000');
  183. writeln ('======================================================');
  184. writeln ('  JADWAL: ');
  185. writeln ('  SENIN s/d MINGGU');
  186. writeln ('  Pukul 06.00 - 17.00 WITA');
  187. writeln ('  5 X Pertemuan (@ 2jam) Total = 10 jam');
  188. writeln ('  Hari dan jam Kursus dapat pilih sendiri');
  189. harga := 600000
  190. end;
  191. writeln ('======================================================');
  192. write ('  UANG PEMBAYARAAN: ');readln (uang);
  193. kembalian :=uang-harga;
  194. writeln ('  KEMBALIAN :',kembalian:0:0);
  195. writeln ('');
  196. writeln ('      TERIMA KASIH TELAH MENGGUNAKAN JASA KAMI !      ');
  197. writeln ('======================================================');
  198. write (' tekan ENTER untuk kembali ');
  199. readln;
  200. end;
  201.  
  202. Procedure mulai;
  203. begin
  204.  repeat
  205.  pil:=menu;
  206.  read(pil);
  207.  case pil of
  208.  1: syarat;
  209.  2: biaya;
  210.  3: materi;
  211.  4: pembayaran;
  212.  5: exit;
  213.  end;
  214.  until menu=5;
  215.  end;
  216.  
  217. BEGIN
  218. mulai;
  219. END.
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!