Skrip Rumus Luas & Keliling Segitiga Dengan Quick Basic

Berikut skript rumus luas segitiga dengan menggunakan quick basic :

CSL
INPUT "MASUKAN ALAS";A
INPUT "MASUKAN TINGGI";T
L = (A*B)/2
PRINT "HASIL
 LUAS";L
END

Berikut skript rumus keliling segitiga dengan menggunakan quick basic :
CSL
INPUT "MASUKAN SISI 1";A
INPUT "MASUKAN SISI 2";B
INPUT "MASUKAN SISI 3";C
K = A+B+C
PRINT "HASIL KELILING";K
END

Semoga bermanfaat ^^