Pada kesempatan kali ini panduan code akan membahas Program Hitung Segitiga Sama Sisi Pascal dengan input hanya nilai salah satu sisinya sa...
Program Hitung Segitiga Sama Sisi Pascal
Senin, Desember 06, 2021
Daftar Isi [Tampil]
Pada kesempatan kali ini panduan code akan membahas Program Hitung Segitiga Sama Sisi Pascal dengan input hanya nilai salah satu sisinya saja.
Pada program hitung segitiga ini memiliki tantangan tersendiri bagi kita, karena kita harus mencari nilai tingginya terlebih dahulu.
Dan untuk mendapatkan nilai tinggi segitiga sama sisi ini kita harus mencari nilai kelilingnya dulu, setelah itu kita harus mencari nilai alasnya juga.
Setelah nilai keliling dan alas segitiga sama sisi sudah kita ketahui barulah kita bisa menghitung tinggi segitiga sama sisi tersebut.
Belum selesai sampai disana kita juga harus menghitung nilai luas segitiga sama sisi tersebut.
Nah bagaimana menurut teman-teman serukan? jadi kita harus mengkombinasikan antara logika pemrograman, dan matematika.
Source Code Program Hitung Segitiga Sama Sisi Pascal
program segitigasamasisi;
uses crt;
var sisi:integer; alas:real; tinggi:real; keliling:real; luas:real;
begin
clrscr;
writeln('==========================================================');
writeln('Program Hitung Segitiga Sama Sisi');
write('Masukan panjang sisi:'); readln(sisi);
keliling:= 3*sisi;
alas:= keliling/3;
tinggi:= sqrt( sqr(sisi) - sqr(alas/2) );
luas:= (alas*tinggi )/2;
writeln('==========================================================');
writeln('Hasil Perhitungan Sebagai Berikut');
writeln('Alas Segitiga Sama Sisi :', alas:3:2);
writeln('Tinggi Segitiga Sama Sisi :', tinggi:3:2);
writeln('Luas Segitiga Sama Sisi :', luas:3:2);
writeln('Keliling Segitiga Sama Sisi :', keliling:3:2);
writeln('==========================================================');
readln;
end.
uses crt;
var sisi:integer; alas:real; tinggi:real; keliling:real; luas:real;
begin
clrscr;
writeln('==========================================================');
writeln('Program Hitung Segitiga Sama Sisi');
write('Masukan panjang sisi:'); readln(sisi);
keliling:= 3*sisi;
alas:= keliling/3;
tinggi:= sqrt( sqr(sisi) - sqr(alas/2) );
luas:= (alas*tinggi )/2;
writeln('==========================================================');
writeln('Hasil Perhitungan Sebagai Berikut');
writeln('Alas Segitiga Sama Sisi :', alas:3:2);
writeln('Tinggi Segitiga Sama Sisi :', tinggi:3:2);
writeln('Luas Segitiga Sama Sisi :', luas:3:2);
writeln('Keliling Segitiga Sama Sisi :', keliling:3:2);
writeln('==========================================================');
readln;
end.
Selanjutnya simak penjelasan dari source code tersebut dibawah ini.
Penjelasan Source Code Hitung Segitiga Sama Sisi Pascal
Mari kita bahas dari baris pertama pada source code segitiga sama sisi pascal tersebut.
program segitigasamasisi; adalah kode yang mendeklarasikan nama program ini adalah segitigasamasisi.
uses crt; adalah kode untuk mengundang atau import library crt pascal untuk menangai screen dan keyboard.
var sisi:integer; alas:real; tinggi:real; keliling:real; luas:real; adalah kode yang mendeklarasikan setiap variabel dengan tipe data real kecuali tipe data variabel sisi yaitu integer.
begin adalah kode untuk memulai block program pascal.
clrscr; adalah singkatan dari clear screen agar program ketika dijalankan layar screen sudah direset kembali.
writeln('=========================================================='); adalah kode untuk mencetak variasi saja seperti yang ada dalam tanda kutipnya.
writeln('Program Hitung Segitiga Sama Sisi'); ini adalah kode yang mencetak teks yang terdapat dalam tanda kutip tersebut, dan fungsinya untuk judul program.
write('Masukan panjang sisi:'); readln(sisi); ini adalah kode untuk memasukan input yaitu nilai sisi nya.
keliling:= 3*sisi; adalah rumus kode pascal untuk menghitung keliling segitiga sama sisi.
alas:= keliling/3; adalah rumus kode pascal untuk menghitung alas segitiga sama sisi.
tinggi:= sqrt( sqr(sisi) - sqr(alas/2) ); adalah rumus kode pascal untuk menghitung tinggi segitiga sama sisi tersebut, dengan sqrt yaitu akar, dan sqr adalah kuadrat.
luas:= (alas*tinggi )/2; adalah rumus kode pascal untuk menghitung luas segitiga sama sisi.
ada beberapa baris kode variasi yang saya lewat untuk dijelaskan, karena saya rasa tidak perlu diulang lagi.
writeln('Alas Segitiga Sama Sisi :', alas:3:2); adalah kode untuk mencetak output alas segitiga sama sisi.
writeln('Tinggi Segitiga Sama Sisi :', tinggi:3:2); ini adalah kode untuk mencetak output tinggi segitiga sama sisi.
writeln('Luas Segitiga Sama Sisi :', luas:3:2); ini adalah kode untuk mencetak output luas segitiga sama sisi.
writeln('Keliling Segitiga Sama Sisi :', keliling:3:2); adalah kode untuk mencetak output keliling segitiga sama sisi.
readln; kode ini hanya berfungsi sebagai pembaca keyboard jadi ketika perhitungan sudah selesai maka program tidak langsung tertutup dengan otomatis, karena masih menunggu input dari keyboard.
end. adalah kode penutup program pascal, jika tidak ada kode ini maka program pascal kita akan error.
Sekian pembahasan pada kesempatan kali ini semoga bermanfaat dan jangan lupa titik koma.
Coba cari lagi apa yang ada inginkan pada kolom berikut:
Bantu Apresiasi Bantu berikan apresiasi jika artikelnya dirasa bermanfaat agar penulis lebih semangat lagi membuat artikel bermanfaat lainnya. Terima kasih.