Skip to main content

Contoh Prgoram Pascal Gabungan Procedure dan If Then Tentang Bangun Datar

program cnth_function_deir;
uses wincrt;
var pil:integer; luas:real;

procedure bujur_sangkar;
var sisi:integer;

    begin
    clrscr;
    gotoxy(14,5);write('###___Mencari Luas Bujur Sangkar___###');
    gotoxy(20,6);write('Input Sisi Panjang : ');
    gotoxy(20,7);write('Luas Bujur Sangkar adalah : ');
    gotoxy(41,6);readln(sisi);

    luas:=sisi*sisi;
    gotoxy(47,7);write(luas:6:1);
    repeat until keypressed;
    end;

procedure siku_siku;
var alas,tinggi:integer;
    begin
    clrscr;
    gotoxy(10,5);write('Mencari Luas Segitiga Siku-siku');
    gotoxy(14,6);write('Input Panjang Alas : ');
    gotoxy(14,7);write('Input Tinggi Segitiga : ');
    gotoxy(14,8);write('Luas Segitiga adalah : ');
    gotoxy(35,6);readln(alas);
    gotoxy(38,7);readln(tinggi);
    luas:=0.5*alas*tinggi;
    gotoxy(36,8);write(luas:6:1);
    repeat until keypressed;
    end;

    begin
    clrscr;
    gotoxy(14,2);write('Program Menghitung Luas Bangun');
    gotoxy(14,7);write('*** Bujur Sangkar dan Segitiga Siku-Siku ***');
    gotoxy(14,9);write('1. Luas Bujur Sangkar');
    gotoxy(14,10);write('2. Luas Segitiga Siku-siku');
    gotoxy(14,14);write('Selesai');
    gotoxy(14,3);write('Input Pilihan [1-2] : ');
    gotoxy(36,3);readln(pil);

    if pil=1 then
       bujur_sangkar
    else if pil=2 then
         siku_siku;
         repeat until keypressed;
end.

Comments

Popular posts from this blog

Deklarasi dan Cara Penulisan Array / Larik

Request Penjelasan Rinci Sintak dan Program PHP,HTML,CSS,SQL  (MENGERTI, BISA & MAHIR MEMBUAT WEB SENDIRI) Assalamualaikum.. Semoga artikel ini bermanfaat... Deklarasi Array Array yang akan dipergunakan harus di deklarasikan terlebih dahulu. Deklarasi dari Array diawali dengan kata cadangan Array diikuti oleh tipe index yang diletakkan diantara tanda “ [ ] ” diikuti lagi oleh kata cadangan of dan tipe arraynya. Array dapat bertipe sederhana byte , word , integer , real , boolean , char , string dan tipe scalar atau subrange. Contoh: Var X : array [ 1..100 ] of integer ; Larik X dideklarasikan sebagai larik tipe integer dengan jumlah elemen maksimum 100 elemen, dimana nilai elemen larik ini harus berisi nilai integer. Misalkan : X [1] : = 18 ; X [2] : = 5 ; Bila nilai elemen ke-1 dari larik X akan ditampilkan, dapat dipergunakan perintah : Writeln ( x[1] ) ; Deklarasi Tipe Index Subrange Integer Tipe index subrange integer sebagai berikut : Var Ni

Kode simpel mengambil SUM total dari sebuah field dengan php mysql

assalamualaikum wr wb. dalam pembuatan laporan keuangan, apalagi sekarang ini banyak yang mempunya toko online. tentunya jumlah pemasukan ingin diketahui. dengan sistak atau kode yang simpel ini, akan saya tunjukan bagaimana kodenya jika iingin menampilkan total atau jumlah dari sebuah field misal jumlah pemasukan atau pengeluaran atau jumlah keuntungan. pertama kita harus punya database dengan field keuangan. kita misalkan kita punya tbl_pemasukan dan ada salah satu field yaitu jumlah_pemasukan . Kode di phpnya sebagai berikut : $qry = mysql_query("select SUM(jumlah_pemasukan) as jumlah from tbl_pemasukan"); $data = mysql_fetch_array($qry); echo $data['jumlah']; ?> kode dasarnya adalah SUM(nama_field) as alias dipanggil dengan php $nama_var['nama_alias']; semoga bermanfaat.

Dasar, Tujuan, Fungsi mempelajari Algoritma

Assalamualaikum.. Mahasiswa yang kritis, akan bertanya ketika kelas pertama mata kuliah Algoritma Pemrograman dan Struktur Data .Tapi mahasiswa kebanyakan akan bertanya sesudah atau ketika waktu berjalan kepada diri sendiri atau kepada teman yang lain.. Pertanyaannya tidak lain dan tidak bukan " Buat apa sih kita mempelajari Mata Kuliah/Pelajaran ini??? ". Bener gak??? Ini sudah saya alami ketika kuliah di STMIK Sumedang. Sebagai informasi saja, Algoritma sudah melekat sebenarnya di kehidupan kita. Sesuai dengan pengertian Algoritma yaitu "Sebuah urutan langkah-langkah logis untuk menyelesaikan suatu permasalahan dengan kondisi akhir adalah satu hasil dan tidak berarti dua" itu pendapat saya yang menggabungkan dari beberapa sumber (dari buku dan dari dosen). Algoritma dalam bahasa kita berarti LOGIKA. Algoritma bertujuan dan berfungsi untuk : 1. Memperkuat cara berfikir kita untuk menyelesaikan suatu masalah 2. Membantu otak agar berfikir panjang 3. Me