Pada kesempatan kali ini panduan code akan membahas Program Hitung Segitiga Sama Sisi Pascal dengan input hanya nilai salah satu sisinya sa...
panduan code

Program Hitung Segitiga Sama Sisi Pascal

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 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.

    Selanjutnya simak penjelasan dari source code tersebut dibawah ini.

    Penjelasan Source Code Hitung Segitiga Sama Sisi Pascal

    Program 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.
    DONASI VIA PAYPAL Bantu berikan apresiasi jika artikelnya dirasa bermanfaat agar penulis lebih semangat lagi membuat artikel bermanfaat lainnya. Terima kasih.

    Iklan Atas Artikel

    Iklan Bawah Artikel

    Donasi
    Hallo sobat panduan code, Anda dapat memberikan suport kepada kami dengan cara memberikan donasi, yang mana nantinya donasi tersebut akan digunakan untuk memperpanjang Domain Panduan code.

    BANK BRI:401101013389533 a/n ARIF NOERWAHIDIN
    PULSA : 082126546564
    PAYPAL : Panduan Code
    Done
    Color Picker
    Silahkan gunakan tools color picker berikut gratis untuk Anda, salam Admin Panduan Code.

    Pilih Warna

    Done
    Portfolio Theme
    Hadiah Gratis

    Dapatkan hadiah gratis, dan diskon super hemat disini.