- Tingkat Generalisasi.
- Mekanisme Transparansi.
- Potensial untuk Dikembangkan
- Peka Terhadap Perubahan Asumsi
Engineering : Profesi/disiplin dimana pengetahuan tentang matematika dan ilmu pengetahuan alam yang diperoleh dengan studi, pengalaman dan praktek dipergunakan dengan bijaksana dengan mengembangkan cara-cara untuk penggunaan secara ekonomis bahan-bahan dan sumber alam untuk kepentingan manusia. Definisi Ekonomi Teknik : Disiplin ilmu yang berkaitan dengan aspek-aspek ekonomi dalam teknik yang terdiri dari evaluasi sistematis dari iaya-biaya dan manfaat-manfaat usulan proyek-proyek teknik.
Tugas Ekonomi Teknik :
Efisiensi, Efektivitas dan Optimalisasi
• Efektivitas adalah ukuran tingkat keberhasilan dalam mencapai suatu tujuan
• Efisiensi adalah ukuran tingkat penghematan pemakaian sumber daya (input) dalam suatu proses, di mana semakin hemat memakai sumber daya, maka akan semakin efisien proses itu dilakukan
• Produktivitas adalah suatu ukuran yang menjelaskan seberapa besar rasio antara tingkat pencapaian tujuan dg pemakaian sumber daya.
lSub routine :
CLS
DIM uts, uas, akhir as integer
input "Masukkan nilai UTS anda: ", UTS
input "Masukkan nilai UAS anda: ", UAS
GO SUB 10
print "UTS anda adalah", uts
print "UAS anda adalah", uas
go sub 20
akhir = (((30/100) * uas) + ((70/100) * uts))
print "nilai akhir anda adalah", akhir
END
10 PRINT STRING$(35 ,"-")
return
20 PRINT STRING$(35 ,"-"), "+"
RETURN
Function :
DIM a AS SINGLE, kal AS STRING
DEF FNkuadrat (x) = x^2
DEF FNfaktorial (n)
DIM Hasil AS DOUBLE
Hasil=1
For I%=1 to n
Hasil = Hasil * I%
NEXT I%
FNfaktorial = Hasil
END DEF
CLS
INPUT "Masukan Angka Positif > "; a
PRINT a; "! = "; FNfaktorial(a)
PRINT a; "^2 = "; FNkuadrat (a)
PRINT
INPUT "Masukan Kalimat > "; kal
PRINT kal; " >> "; besar(kal)
END
FUNCTION besar$ (kata$)
Besar$ = UCASE$ (kata$)
END FUNCTION
Sub Program dan sebagai kisi-kisi program ujian kalian:
DIM pil AS INTEGER
DIM kembali AS INTEGER
DIM alas, tinggi, sisi, panjang, lebar, luas AS DOUBLE
CLS
PRINT
COLOR 5
10 CLS
LOCATE 5, 15
PRINT "< Menu Utama >"
LOCATE 6, 15
PRINT "1. Menu Segitiga"
LOCATE 7, 15
PRINT "2. Menu persegi"
LOCATE 8, 15
PRINT "3. Menu persegi panjang"
LOCATE 9, 15
INPUT "Pilihan Anda : ", pil
SELECT CASE pil
CASE 1
DO
COLOR 12
CLS
PRINT "------------Luas Segitiga---------------"
PRINT
INPUT "Masukkan alas : ", alas
INPUT "Masukkan tinggi : ", tinggi
luas = alas * tinggi / 2
PRINT "Luas segitiga : "; luas
PRINT
INPUT "mau hitung lagi ? ", lagi$
LOOP UNTIL UCASE$(lagi$) <> "Y"
GOSUB 10
CASE 2
DO
COLOR 10
CLS
PRINT "------------Luas persegi---------------"
PRINT
INPUT "Masukkan sisi : ", sisi
luas = sisi * sisi
PRINT "Luas persegi : "; luas
PRINT
INPUT "mau ngitung lagi ? ", lagi$
LOOP UNTIL UCASE$(lagi$) <> "Y"
GOSUB 10
CASE 3
DO
CLS
COLOR 11
PRINT "------------Luas persegi panjang---------------"
PRINT
INPUT "Masukkan panjang : ", panjang
INPUT "Masukkan lebar : ", lebar
luas = panjang * lebar
PRINT "Luas segitiga : "; luas
PRINT
INPUT "mau itung lagi ? ", lagi$
LOOP UNTIL UCASE$(lagi$) <> "Y"
GOSUB 10
CASE ELSE
PRINT "Pilihan Anda Ngawur !"
END SELECT
END