Contoh Program Dasar Turbo Pascal.pas

JavaScript Detected ronron 47 Views Size: 13.59 KB Posted on: Feb 18, 26 @ 8:04 AM 
  1. 1Program Contoh_Program_Dasar_Turbo_Pascal;

  2. 2Uses wincrt;

  3. 3Const

  4. 4     Blog = 'www.ronnytriasmara.wordpress.com';

  5. 5     Line = '================================';

  6. 6Var

  7. 7   Nama                               :array[1..40] of string;

  8. 8   Tugas, UTS, UAS, Absen, Rata       :array[1..40] of real;

  9. 9   JD, I, Q                           :byte;

  10. 10   Nilai, Pi, X, Y, Z, R              :real;

  11. 11   Menu, MP, Name, Study, Pass, ID    :string;

  12. 12Begin

  13. 13     repeat

  14. 14     clrscr;

  15. 15     writeln('Contoh Program Dasar Turbo Pascal');

  16. 16     writeln(Blog);

  17. 17     writeln(Line);

  18. 18     writeln(' ');

  19. 19     writeln('1. Program Aritmatika');

  20. 20     writeln('2. Program Berat Badan Ideal');

  21. 21     writeln('3. Program Data Pemain Futsal');

  22. 22     writeln('4. Program Diskon');

  23. 23     writeln('5. Program Indeks Prestasi Siswa');

  24. 24     writeln('6. Program Penghitung');

  25. 25     writeln('7. Program Penilai Kuliah');

  26. 26     writeln('8. Keluar Dari Program');

  27. 27     writeln(' ');

  28. 28     write('Masukkan Nomor Program Yang Anda Pilih : ');

  29. 29     readln(Menu);

  30. 30     if (Menu='1') then

  31. 31     begin

  32. 32          clrscr;

  33. 33          writeln('Program Aritmatika');

  34. 34          writeln(Blog);

  35. 35          writeln(Line);

  36. 36          writeln(' ');

  37. 37          write('Silahkan Masukkan Nilai X : ');

  38. 38          readln(X);

  39. 39          writeln(' ');

  40. 40          if X<0 then X := abs (X);

  41. 41          writeln('Nilai X              = ',X:10:2);

  42. 42          writeln('Nilai Eksponensial   = ',exp(X):10:3);

  43. 43          writeln('Nilai Fraksional     = ',frac(X):10:2);

  44. 44          writeln('Nilai Integer        = ',int(X):10:2);

  45. 45          writeln('Nilai Logaritma      = ',ln(X):10:3);

  46. 46          writeln('Nilai X Diakarkan    = ',sqrt(X):10:3);

  47. 47          writeln('Nilai X Dipangkatkan = ',sqr(X):10:3);

  48. 48          writeln(' ');

  49. 49          write('Nilai X Jika Dimasukkan Dalam');

  50. 50          writeln(' Fungsi Sinus, Cosinus, Tangen :');

  51. 51          writeln('-Sinus   = ',sin(X):10:3);

  52. 52          writeln('-Cosinus = ',cos(X):10:3);

  53. 53          writeln('-Tangen  = ',arctan(X):10:3);

  54. 54     end else

  55. 55     if (Menu='2') then

  56. 56     begin

  57. 57          clrscr;

  58. 58          writeln('Program Berat Badan Ideal');

  59. 59          writeln(Blog);

  60. 60          writeln(Line);

  61. 61          writeln(' ');

  62. 62          write('Silahkan Masukkan Tinggi Badan Anda (cm) : ');

  63. 63          readln(X);

  64. 64          write('Silahkan Masukkan Berat Badan Anda (kg)  : ');

  65. 65          readln(Y);

  66. 66          writeln(' ');

  67. 67          Z := X-100;

  68. 68          R := Z/10;

  69. 69          Nilai := Z-R*1;

  70. 70          writeln('Berat Badan Ideal Anda Adalah       : ',Nilai:0:1,' Kg');

  71. 71          if Y>Nilai then

  72. 72          begin

  73. 73               writeln('Berat Badan Anda Saat Ini Tergolong : GENDUT');

  74. 74          end else

  75. 75          if Y<Nilai then

  76. 76          begin

  77. 77               writeln('Berat Badan Anda Saat Ini Tergolong : KURUS');

  78. 78          end else

  79. 79          if Y=Nilai then

  80. 80          begin

  81. 81               writeln('Berat Badan Anda Saat Ini Tergolong : IDEAL');

  82. 82          end;

  83. 83     end else

  84. 84     if (Menu='3') then

  85. 85     begin

  86. 86          clrscr;

  87. 87          writeln('Program Data Pemain Futsal');

  88. 88          writeln(Blog);

  89. 89          writeln(Line);

  90. 90          writeln(' ');

  91. 91          write('Masukkan Kata Sandi : ');

  92. 92          readln(Pass);

  93. 93          writeln(' ');

  94. 94          if (Pass='stmikbipan') then

  95. 95          begin

  96. 96               clrscr;

  97. 97               writeln('Selamat Datang...!!!');

  98. 98               writeln(' ');

  99. 99               write('Silahkan Masukkan No.Punggung Pemain : ');

  100. 100               readln(ID);

  101. 101               writeln(' ');

  102. 102               if (ID='29') then

  103. 103               begin

  104. 104                    clrscr;

  105. 105                    writeln('*********************************************');

  106. 106                    writeln('Data Pemain Futsal STMIK Borneo Internasional');

  107. 107                    writeln('*********************************************');

  108. 108                    writeln('NIM           : 2011.120.007');

  109. 109                    writeln('Nama          : Ronny Tri Asmara');

  110. 110                    writeln('TTL           : Samarinda, 29 Juli 1992');

  111. 111                    writeln('Alamat        : Jl. Syarifuddin Yoes, Ring Road, Balikpapan');

  112. 112                    writeln('Jurusan       : Sistem Informasi');

  113. 113                    writeln('Program Studi : S1');

  114. 114                    writeln('Blog          : ',Blog);

  115. 115               end else

  116. 116               if (ID='') then

  117. 117               begin

  118. 118                    writeln('No.Punggung Pemain Belum Diisi');

  119. 119               end else

  120. 120               begin

  121. 121                    writeln('Data Pemain Dengan No.Punggung ',ID,' Tidak Tersedia');

  122. 122               end;

  123. 123          end else

  124. 124          if (Pass='') then

  125. 125          begin

  126. 126               writeln('Kata Sandi Belum Diisi');

  127. 127          end else

  128. 128          begin

  129. 129               writeln('Maaf, Kata Sandi Yang Anda Masukkan Salah');

  130. 130          end;

  131. 131     end else

  132. 132     if (Menu='4') then

  133. 133     begin

  134. 134          clrscr;

  135. 135          writeln('Program Diskon');

  136. 136          writeln(Blog);

  137. 137          writeln(Line);

  138. 138          writeln(' ');

  139. 139          write('Masukkan Jumlah Pembelian : Rp.');

  140. 140          readln(X);

  141. 141          Y := 0;

  142. 142          if X>50000 then Y := X*0.1;

  143. 143          Z := X-Y;

  144. 144          writeln(' ');

  145. 145          writeln('Jumlah Pembelian  : Rp.',X:10:2);

  146. 146          writeln('Jumlah Diskon     : Rp.',Y:10:2);

  147. 147          writeln('===================================');

  148. 148          writeln('Jumlah Pembayaran : Rp.',Z:10:2);

  149. 149     end else

  150. 150     if (Menu='5') then

  151. 151     begin

  152. 152          clrscr;

  153. 153          writeln('Program Indeks Prestasi Siswa');

  154. 154          writeln(Blog);

  155. 155          writeln(Line);

  156. 156          writeln(' ');

  157. 157          write('Masukkan Nama Anda                      : ');

  158. 158          readln(Name);

  159. 159          write('Masukkan Jenis Mata Pelajaran           : ');

  160. 160          readln(Study);

  161. 161          write('Masukkan Jumlah Nilai Yang Anda Peroleh : ');

  162. 162          readln(Nilai);

  163. 163          writeln(' ');

  164. 164          if (Nilai<60) then

  165. 165          begin

  166. 166               writeln('Predikat ',Name,' Dalam Pelajaran ',Study,' Adalah E');

  167. 167          end else

  168. 168          if (Nilai>=60) and (Nilai<=65) then

  169. 169          begin

  170. 170               writeln('Predikat ',Name,' Dalam Pelajaran ',Study,' Adalah D');

  171. 171          end else

  172. 172          if (Nilai>=65) and (Nilai<=75) then

  173. 173          begin

  174. 174               writeln('Predikat ',Name,' Dalam Pelajaran ',Study,' Adalah C');

  175. 175          end else

  176. 176          if (Nilai>=75) and (Nilai<=90) then

  177. 177          begin

  178. 178               writeln('Predikat ',Name,' Dalam Pelajaran ',Study,' Adalah B');

  179. 179          end else

  180. 180          if (Nilai>90) then

  181. 181          begin

  182. 182               writeln('Predikat ',Name,' Dalam Pelajaran ',Study,' Adalah A');

  183. 183          end else

  184. 184          begin

  185. 185               writeln('Mohon Ketikkan Nilai Dengan Benar');

  186. 186          end;

  187. 187     end else

  188. 188     if (Menu='6') then

  189. 189     begin

  190. 190          repeat

  191. 191          clrscr;

  192. 192          writeln('Program Penghitung');

  193. 193          writeln(Blog);

  194. 194          writeln(Line);

  195. 195          writeln(' ');

  196. 196          writeln('1. Luas Dan Keliling Bujur Sangkar');

  197. 197          writeln('2. Luas Dan Keliling Persegi Panjang');

  198. 198          writeln('3. Luas Lingkaran');

  199. 199          writeln('4. Luas Segitiga');

  200. 200          writeln('5. Volume Balok');

  201. 201          writeln('6. Volume Kubus');

  202. 202          writeln('7. Volume Tabung');

  203. 203          writeln('8. Kembali Ke Program Utama');

  204. 204          writeln(' ');

  205. 205          write('Masukkan Nomor Penghitung Yang Anda Pilih : ');

  206. 206          readln(MP);

  207. 207          if (MP='1') then

  208. 208          begin

  209. 209               clrscr;

  210. 210               writeln('Penghitung Luas Dan Keliling Bujur Sangkar');

  211. 211               writeln(Blog);

  212. 212               writeln(Line);

  213. 213               writeln(' ');

  214. 214               write('Masukkan Ukuran Sisi Bujur Sangkar : ');

  215. 215               readln(X);

  216. 216               writeln(' ');

  217. 217               Y := X*X;

  218. 218               Z := 4*X;

  219. 219               writeln('Luas Bujur Sangkar Adalah     : ',Y:10:2);

  220. 220               writeln('Keliling Bujur Sangkar Adalah : ',Z:10:2);

  221. 221          end else

  222. 222          if (MP='2') then

  223. 223          begin

  224. 224               clrscr;

  225. 225               writeln('Penghitung Luas Dan Keliling Persegi Panjang');

  226. 226               writeln(Blog);

  227. 227               writeln(Line);

  228. 228               writeln(' ');

  229. 229               write('Masukkan Ukuran Panjang : ');

  230. 230               readln(X);

  231. 231               write('Masukkan Ukuran Lebar   : ');

  232. 232               readln(Y);

  233. 233               writeln(' ');

  234. 234               Z := X*Y;

  235. 235               R := 2*X+2*Y;

  236. 236               writeln('Luas Persegi Panjang Adalah     : ',Z:10:2);

  237. 237               writeln('Keliling Persegi Panjang Adalah : ',R:10:2);

  238. 238          end else

  239. 239          if (MP='3') then

  240. 240          begin

  241. 241               clrscr;

  242. 242               writeln('Penghitung Luas Lingkaran');

  243. 243               writeln(Blog);

  244. 244               writeln(Line);

  245. 245               writeln(' ');

  246. 246               write('Masukkan Ukuran Jari-Jari Lingkaran : ');

  247. 247               readln(R);

  248. 248               writeln(' ');

  249. 249               Pi := 3.14;

  250. 250               Nilai := Pi*R*R;

  251. 251               writeln('Luas Lingkaran Adalah : ',Nilai:10:2);

  252. 252          end else

  253. 253          if (MP='4') then

  254. 254          begin

  255. 255               clrscr;

  256. 256               writeln('Penghitung Luas Segitiga');

  257. 257               writeln(Blog);

  258. 258               writeln(Line);

  259. 259               writeln(' ');

  260. 260               write('Masukkan Ukuran Alas Segitiga   : ');

  261. 261               readln(X);

  262. 262               write('Masukkan Ukuran Tinggi Segitiga : ');

  263. 263               readln(Y);

  264. 264               writeln(' ');

  265. 265               Nilai := 0.5*X*Y;

  266. 266               writeln('Luas Segitiga Adalah : ',Nilai:10:2);

  267. 267          end else

  268. 268          if (MP='5') then

  269. 269          begin

  270. 270               clrscr;

  271. 271               writeln('Penghitung Volume Balok');

  272. 272               writeln(Blog);

  273. 273               writeln(Line);

  274. 274               writeln(' ');

  275. 275               write('Masukkan Ukuran Panjang Balok : ');

  276. 276               readln(X);

  277. 277               write('Masukkan Ukuran Lebar Balok   : ');

  278. 278               readln(Y);

  279. 279               write('Masukkan Ukuran Tinggi Balok  : ');

  280. 280               readln(Z);

  281. 281               writeln(' ');

  282. 282               Nilai := X*Y*Z;

  283. 283               writeln('Volume Balok Adalah : ',Nilai:10:2);

  284. 284          end else

  285. 285          if (MP='6') then

  286. 286          begin

  287. 287               clrscr;

  288. 288               writeln('Penghitung Volume Kubus');

  289. 289               writeln(Blog);

  290. 290               writeln(Line);

  291. 291               writeln(' ');

  292. 292               write('Masukkan Ukuran Sisi Kubus : ');

  293. 293               readln(X);

  294. 294               writeln(' ');

  295. 295               Nilai := X*X*X;

  296. 296               writeln('Volume Kubus Adalah : ',Nilai:10:2);

  297. 297          end else

  298. 298          if (MP='7') then

  299. 299          begin

  300. 300               clrscr;

  301. 301               writeln('Penghitung Volume Tabung');

  302. 302               writeln(Blog);

  303. 303               writeln(Line);

  304. 304               writeln(' ');

  305. 305               write('Masukkan Ukuran Jari-Jari Tabung : ');

  306. 306               readln(R);

  307. 307               write('Masukkan Ukuran Tinggi Tabung    : ');

  308. 308               readln(X);

  309. 309               writeln(' ');

  310. 310               Pi := 3.14;

  311. 311               Y := Pi*R*R;

  312. 312               Nilai := Y*X;

  313. 313               writeln('Volume Tabung Adalah : ',Nilai:10:2);

  314. 314          end else

  315. 315          if (MP='8') then

  316. 316          begin

  317. 317               writeln('Tekan Enter 2 Kali');

  318. 318          end else

  319. 319          if (MP='') then

  320. 320          begin

  321. 321               writeln('Perintah Belum Diketik');

  322. 322          end else

  323. 323          begin

  324. 324               writeln('Mohon Ketikkan Perintah Dengan Benar');

  325. 325          end;

  326. 326          readln;

  327. 327          until MP='8';

  328. 328     end else

  329. 329     if (Menu='7') then

  330. 330     begin

  331. 331          clrscr;

  332. 332          writeln('Program Penilai Kuliah');

  333. 333          writeln(Blog);

  334. 334          writeln(Line);

  335. 335          writeln(' ');

  336. 336          write('Masukkan Jumlah Data Yang Ingin Diinput : ');

  337. 337          readln(JD);

  338. 338          writeln(' ');

  339. 339          for Q := 1 to JD do

  340. 340          begin

  341. 341               writeln('***********************************');

  342. 342               writeln('PENILAIAN KULIAH MAHASISWA STMIK BI');

  343. 343               writeln('***********************************');

  344. 344               write('Masukkan Nama        : ');

  345. 345               readln(Nama[Q]);

  346. 346               write('Masukkan Nilai Tugas : ');

  347. 347               readln(Tugas[Q]);

  348. 348               write('Masukkan Nilai Absen : ');

  349. 349               readln(Absen[Q]);

  350. 350               write('Masukkan Nilai UTS   : ');

  351. 351               readln(UTS[Q]);

  352. 352               write('Masukkan Nilai UAS   : ');

  353. 353               readln(UAS[Q]);

  354. 354               Rata[Q] := (0.1*Tugas[Q])+(0.2*Absen[Q])+(0.3*UTS[Q])+(0.4*UAS[Q]);

  355. 355          end;

  356. 356          clrscr;

  357. 357          for I := 1 to JD do

  358. 358          begin

  359. 359               writeln('***********************************');

  360. 360               writeln('PENILAIAN KULIAH MAHASISWA STMIK BI');

  361. 361               writeln('***********************************');

  362. 362               writeln('Nama        : ',Nama[I]);

  363. 363               writeln('Nilai Tugas : ',Tugas[I]:0:2);

  364. 364               writeln('Nilai Absen : ',Absen[I]:0:2);

  365. 365               writeln('Nilai UTS   : ',UTS[I]:0:2);

  366. 366               writeln('Nilai UAS   : ',UAS[I]:0:2);

  367. 367               writeln('***********************************');

  368. 368               writeln('Rata-Rata   : ',Rata[Q]:0:2);

  369. 369          end;

  370. 370     end else

  371. 371     if (Menu='8') then

  372. 372     begin

  373. 373          writeln('Terima Kasih Telah Menggunakan Program Ini');

  374. 374          writeln('Klik Tombol X Di Pojok Kanan Atau Tekan ALT+F4');

  375. 375     end else

  376. 376     if (Menu='') then

  377. 377     begin

  378. 378          writeln('Perintah Belum Diketik');

  379. 379     end else

  380. 380     begin

  381. 381          writeln('Mohon Ketikkan Perintah Dengan Benar');

  382. 382     end;

  383. 383     readln;

  384. 384     until Menu='8';

  385. 385End.

Raw Paste

Fork Edit
Comments 0
Login to post a comment.
  • No comments yet. Be the first.
Login to post a comment. Login or Register
Hello Guest! Paste is for source code and general debugging text.

Login or Register to edit, delete and keep track of your pastes and more.

Recent Pastes
Windows Script[...]
Windows[...]
Program[...]
Contoh Program[...]
We use cookies. To comply with GDPR in the EU and the UK we have to show you these.

We use cookies and similar technologies to keep this website functional (including spam protection via Google reCAPTCHA or Cloudflare Turnstile), and — with your consent — to measure usage and show ads. See Privacy.