Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. COLOR 2
  2. a:
  3. CLS
  4.  
  5. PRINT "Menu Pilihan"
  6. PRINT "Http://www.TempatIlmuKite.blogspot.co.id/"
  7. PRINT "==============================="
  8. PRINT "1. Hitung Luas Segitiga"
  9. PRINT "2. Hitung Luas Persegi"
  10. PRINT "3. Hitung Luas Lingkaran"
  11. PRINT "4. Exit"
  12. Print "Support By. Irfan Maulana"
  13. PRINT "==============================="
  14. INPUT "Pilih Menu yang mana ? ", pilih
  15.  
  16. SELECT CASE pilih
  17. CASE 1
  18. b:
  19. CLS
  20. PRINT "Hitung Luas Segitiga"
  21. PRINT "Http://www.TempatIlmuKite.blogspot.co.id/"
  22. PRINT "==============================="
  23. INPUT "Panjang Alas Segitiga = ", alas
  24. INPUT "Tinggi Segitiga = ", tinggi
  25. L = alas * tinggi / 2
  26. PRINT "Luasnya adalah = ", L
  27. PRINT "==============================="
  28. INPUT "Ingin Hitung Luas Segitiga Lagi ?(y/t) ", cek$
  29. IF (cek$ = "y") THEN GOTO b
  30. IF (cek$ = "t") THEN GOTO a
  31.  
  32. CASE 2
  33. c:
  34. CLS
  35. PRINT "Hitung Luas Persegi"
  36. PRINT "Http://www.TempatIlmuKite.blogspot.co.id/"
  37. PRINT "==============================="
  38. INPUT "Masukan Panjang Sisinya = ", sisi
  39. L = sisi ^ 2
  40. PRINT "Luas Persegi Adalah = ", L
  41. PRINT "==============================="
  42. INPUT "Ingin Hitung Luas Persegi Lagi ?(y/t) ", cek$
  43. IF (cek$ = "y") THEN GOTO c
  44. IF (cek$ = "t") THEN GOTO a
  45.  
  46. CASE 3
  47. d:
  48. CLS
  49. PRINT "Hitung Luas Lingkaran"
  50. PRINT "Http://www.TempatIlmuKite.blogspot.co.id/"
  51. PRINT "==============================="
  52. INPUT "Masukan Jari-Jari = ", jari
  53. L = 3.14 * jari ^ 2
  54. PRINT "Luas Lingkaran Adalah = ", L
  55. PRINT "==============================="
  56. INPUT "Ingin Hitung Luas Lingkaran Lagi ?(y/t) ", cek$
  57. IF (cek$ = "y") THEN GOTO d
  58. IF (cek$ = "t") THEN GOTO a
  59.  
  60. CASE 4
  61. END
  62. END SELECT