It`s My Second Home,, Happy Surfing! n_n

Prikitiw,,!!!

Contoh Pembuatan Rumus Segitiga Mempergunakan Procedure Pada Pascal


1. Buka halaman kerja baru

2. Untuk program ini, berikan kode program sebagai berikut :

    3. Setelah memasukan kode, kita bisa melakukan pengecekan apakah program yang kita buat jalan atau tidak dengan menekan tombol F9 pada keyboard. Jika tidak terdapat kesalahan, maka langkah selanjutnya adalah menjalankan program dengan menekan tombol CTRL+F9 pada keyboard.

    4. Tampilan program yang sudah berjalan :

    Jika nilai yang dimasukan untuk Panjang= 45 dan  Lebar=21

    5. Berikut keterangan dan logika dari tiap kode pada program

    Program Perkalian;

    (judul program)

    uses crt;

    (unit yang digunakan dalam program)

    Procedure hitung;

    (memulain proses procedure dengan nama ‘hitung’)

    var

    (pendeklarasian variabel)

    a,b,c: integer;

    (Pendeklarasian data variabel bertipe integer / bilangan bulat)

    begin

    (awal dari blok statement procedure ‘hitung’)

    clrscr;

    (membersihkan layar)

    write(‘Masukan Panjang : ‘); readln(a);

    (mencetak kalimat ‘Masukan Panjang : ’ lalu meletakan pointer ke sebelah kanan kalimat, setelah itu compiler akan membaca inputan yang kita masukan sebagai nilai variabel ‘a’)

    writeln(‘Masukan Lebar : ‘); readln(b);

    (mencetak kalimat ‘Masukan Lebar : ’ lalu meletakan pointer ke sebelah kanan kalimat, setelah itu compiler akan membaca inputan yang kita masukan sebagai nilai variabel ‘b’)

    c := a*b;

    (menghitung nilai variabel c)

    writeln(‘Luas = ‘, c:5);

    (mencetak kalimat ‘Luas = ‘ lalu memasukan nilai variabel dari c yang telah dihitung sebelumnya dengan penempatan nilai variabel setelah 5 x spasi )

    readln;

    (menunggu penekanan enter)

    end;

    (akhir dari blok statement procedure ‘hitung’)

    begin

    (awal dari blok statement)

    hitung;

    (memasukan procedure ‘hitung’)

    end.

    (akhir program)

    January 9, 2010 - Posted by | saatnya belajar

    4 Comments »

    1. Koch….
      ada rumus laeenya gak…yg selaen segitiga!!!

      terserah yg mana dech koch…
      klo ad krm k e-mailQ koch…
      aries_gatoel@yahoo.com

      lg cari pencerahan tntang pascal neh…^^

      Comment by Gatoel | October 31, 2010 | Reply

    2. programnya gak bisa run

      Comment by niko | December 10, 2011 | Reply

      • bisa d run ko masbro..

        Comment by Gai Black | January 12, 2012 | Reply

    3. kalo pertambahan dan pengurangan gimana?

      Comment by muchyiddin | November 21, 2012 | Reply


    Leave a Reply

    Fill in your details below or click an icon to log in:

    WordPress.com Logo

    You are commenting using your WordPress.com account. Log Out / Change )

    Twitter picture

    You are commenting using your Twitter account. Log Out / Change )

    Facebook photo

    You are commenting using your Facebook account. Log Out / Change )

    Google+ photo

    You are commenting using your Google+ account. Log Out / Change )

    Connecting to %s

    %d bloggers like this: