• HEADING-1 GOES HERE

    DESCRIPTION GOES HERE
  • HEADING-2 GOES HERE

    DESCRIPTION GOES HERE
  • HEADING-3 GOES HERE

    DESCRIPTION GOES HERE
  • HEADING-4 GOES HERE

    DESCRIPTION GOES HERE
  • HEADING-5 GOES HERE

    DESCRIPTION GOES HERE

MENGENAL PERINTAH "IF THEN ELSE" DALAM PROGRAM PASCAL

Kali ini, materi yang saya posting adalah tentang perintah "if then else". Perintah if sendiri merupakan alah satu perintah struktur pengambilan keputusan dalam algoritma. perhatikan script dibawah ini :
If condition Then statement;
script di atas merupakan script dari perintah if, di mana condition adalah sesuatu yang bernilai True atau False, dan statement adalah perintah yang akan dijalankan.
sebagai contoh kita akan membuat sebuah program pascal berdasarkan perintah "if then else".
kali ini kita akan membuat program sederhana yang dapat menentukan curam atau landainya suatu segitiga.
oke kita mulai....
  • pertama - tama buka program free pascal IDE atau turbo pascal
  • kemudian ketiklah script berikut
 program landai_curam_segitiga;
 uses crt;
 var A,B:real;
 begin
 clrscr;
 writeln('program menentukan curam landai segitiga');
 writeln('----------------------------------------');
 writeln('created by : muhammad ikhsan maulana akbar');
 writeln('nim           : J1F113029');
 writeln('=================================');
 writeln('press enter to start program');

 write('masukan A =');
 readln(A);
 write('masukan B =');
 readln(B);
 if A>B then
 keterangan:='landai'
 else
 keterangan:='curam';
 writeln('keterangan:',keterangan);
 readln;
 end.
 berikut screen shot program pascalnya:


 dan berikut screen shot saat program dijalankan



saat A yang merupakan alas segitiga mempunyai nilai yang lebih rendah dari pada B yang merupakan tinggi segitiga yang lebih tinggi dari segitiga maka segitiga itu curam. Dan sebaliknya jika A lebih besar dari B maka segitiganya landai.

nah demikian lah sedikit peenjelasan dan contoh dari program pascal dengan menggunakan perintah "if ", semoga bermanfaat bagi kalian semua yang belajar pascal.

Read Users' Comments (2)

2 Response to "MENGENAL PERINTAH "IF THEN ELSE" DALAM PROGRAM PASCAL"

  1. Andreas Wegiq Adia Hendix says:
    4 Februari 2015 pukul 06.54

    gan , kenapa var keterangan tidak dicantumkan sebelum begin dulu ?
    mostoples.blogspot.com

  2. Unknown says:
    5 Januari 2021 pukul 17.37

    Kenapa harus pake tipe data real,kenapa bukan integer

Posting Komentar

Powered By Blogger