Membuat Monas dengan Coding Pascal Graph Unit

Membuat Monas dengan Coding Pascal Graph Unit - hello sobat kali ini saya akan membagikan hasil dari tugas mata kuliah saya tentang bahasa pemrograman pascal, program ini menggunakan uses unit Graph, jadi jika anda ingin membuat sebuah Graph berupa gambar-gambar shape, line dlln, anda perlu menggunakan pascal yang mempunyai Gpu.unit, sehingga aplikasi anda support dengan coding ini.

lanjut ke artikel ini, jadi ini adalah tugas dari mata kuliah grafika, sengaja saya arsipkan disini agar tidak hilang dan juga bisa berbagi kepada teman - teman Codingers disini, tentunya agar sama-sama mengerti dan bisa coding, dalam tugas grafika ini sebelumnya saya menggambarkannya pada kertas milimeter blok yang saya asumsikan titik-titik berupa pixel dan letak koordinat yang akan saya gambar dengan menyatukan garis. lebar dan panjang kertas saya asumsikan sebagai lebar layar.

dengan penggambaran awal pada kertas milimeter blok saya dapat memulai procedure-procedure apa saja yang saya lakukan di coding, dan fungsi-fungsi apa saja yang saya gunakan, Langsung saja berikut ini adalah codingnya.

program car;
uses crt,graph;
const jari=580;
var driver,mode,i:integer;
    xpusat,ypusat:integer;
begin
 clrscr;
 driver:=detect;
 initgraph(driver,mode,'');
 xpusat:=getmaxx div 2;
 ypusat:=getmaxy div 2;
 setfillstyle(1,white);
 floodfill(getmaxx,getmaxy,white); {escrim}

 setcolor(0);

 {tangga kota}
 i:=0;
 repeat
  rectangle(xpusat-200-i,getmaxy-90+i,xpusat+200+i,getmaxy-85+i);
 i:=i+5;
 until i>50;

 circle(550,200,25); //matahari

 {awan kanan}
 ellipse(xpusat+250,ypusat-150,15,180,50,30);
 ellipse(xpusat+300,ypusat-120,0,95,50,40);
 ellipse(xpusat+200,ypusat-120,180,90,30,30);
 line(xpusat+170,ypusat-120,xpusat+350,ypusat-120);

 {awan kiri}
 ellipse(xpusat-130,ypusat-80,15,180,50,30);
 ellipse(xpusat-80,ypusat-50,0,95,40,40);
 ellipse(xpusat-180,ypusat-50,180,90,30,30);
 line(xpusat-210,ypusat-50,xpusat-40,ypusat-50);

 setfillstyle(1,yellow);
 floodfill(550,200,0);

 rectangle(0,getmaxy-80,getmaxx,getmaxy);
 setfillstyle(9,green);
 floodfill(xpusat,getmaxy-20,0);

 {konstruksi monas}

 //escrim
 ellipse(xpusat,64,170,100,10,25);
 ellipse(xpusat-10,60,0,70,20,35);
 ellipse(xpusat-5,40,0,85,3,13);

 //beton
 line(xpusat-10,81,xpusat-20,getmaxy-200);
 line(xpusat+10,81,xpusat+20,getmaxy-200);
 line(xpusat,81,xpusat,getmaxy-110);
 rectangle(xpusat-140,getmaxy-200,xpusat+140,getmaxy-180);
 rectangle(xpusat-20,60,xpusat+20,65);
 rectangle(xpusat-25,65,xpusat+25,80);
 ellipse(xpusat-130,getmaxy-90,0,90,80,89);
 ellipse(xpusat+130,getmaxy-90,180,90,80,89);
 ellipse(xpusat,getmaxy-80,0,180,jari,jari+30);

 setfillstyle(1,14);
 floodfill(xpusat,57,0); {escrim}

 {wawrna kota}
 setfillstyle(1,1);
 floodfill(xpusat+50,ypusat,0);

{pewarnaan}
rectangle(xpusat-10,getmaxy-110,xpusat+10,getmaxy-90);

setfillstyle(1,8);
floodfill(xpusat+2,ypusat+153,0); {balok}
floodfill(xpusat+2,ypusat+180,0);

{kota jakarta}
i:=20;
repeat;
    setfillstyle(1,3);
    begin
    bar(350,180+i,450,200+i);
    end;
i:=i+30;
until i>400;

i:=20;
repeat
     //kotakiri
     rectangle(180+i,340-i,300+i,getmaxy-80);
     rectangle(220+i,300-i,230+i,270-i);
     rectangle(200+i,340-i,280+i,300-i);
     i:=i+140;
until i>200;

i:=20;
repeat
     //kotakanan
     rectangle(xpusat+220+i,300,xpusat+260+i,310);
     rectangle(xpusat+210+i,310,xpusat+270+i,320);
     rectangle(xpusat+200+i,320,xpusat+280+i,getmaxy-80);
     i:=i+100;
until i>200;
     //kotakanan2
     rectangle(xpusat+430,400,xpusat+500,getmaxy-80);
     rectangle(xpusat+440,390,xpusat+490,400);
     rectangle(xpusat+450,365,xpusat+460,390);
i:=20;
repeat;
    bar(xpusat+440,390+i,xpusat+490,410+i);
i:=i+30;
until i>210;

i:=20;
repeat;
    setfillstyle(1,3);
    begin
    bar(210,310+i,310,330+i);
    bar(xpusat+230,310+i,xpusat+290,330+i);
    bar(xpusat+330,310+i,xpusat+390,330+i);
    end;
i:=i+30;
until i>280;
i:=20;
repeat;
    setfillstyle(1,3);
    begin
    bar(350,180+i,450,200+i);
    end;
i:=i+30;
until i>400;

 {pintu}
 setfillstyle(1,0);
 floodfill(xpusat+2,getmaxy-108,0);
 setfillstyle(1,9);
 floodfill(xpusat,20,0);

 {akhir ellipse}
 setcolor(9);
 settextstyle(5,horizdir,3);
 outtextxy(xpusat+210,ypusat-150,'MONAS');
for i:=1 to 15 do
begin
 setcolor(i);
 settextstyle(5,horizdir,3);
 outtextxy(xpusat+180,ypusat-110,'JAKARTA');
 delay(300);
end;

 readln;
end.

dari koding di atas, maka akan menghasilkan output berikut ini :

Mungkin gambar yang dihasilkan kurang bagus seperti monas aslinya -_- , anda dapat melengkapi juga, alasannya karena saya bukan orang jakarta wkkwkw, jadi gambar aslinya di atas sebelumnya adalah Vector kalian dapat mencarinya di Google dengan kata Kunci Vector Image, dengan menggunakan vector image akan sangat mudah menerapkan atau mengimplementasikannya kedalam coding pascal Graph Unit untuk membuat suatu bentuk gambar.

Anda hanya perlu memahami sedikit gambarnya dan pemahaman juga tentang graph procedure di pascal serta, koordinat-koordinat yang ada, terpenting resolusi layar laptop/pc tempat kalian ngoding (ini sangat berpengaruh terhadap hasilnya).

Penjelasan Koding. :

Const : Jari .di dalam koding saya menerapkan konstanta atau nilai tetap yang telah saya tentukan, hal ini agar saya tidak mengulang koding. konstanta Jari ini digunakan untuk Membuat Lingkaran Biru besar pada gambar. Constanta nilainya digunakan Pada Procedure Ellipse.

Variabel i:integer : variabel "i" sebagai patokan untuk membuat suatu nilai integer, variabel ini digunakan pada perulangan REPEAT UNTIL, disini saya menggunakan Repeat Until karena lebih mudah dan lebih ringkas, dari pada harus menggunakan for to do atau while do. itu menurut analisa saya. nilai ini digunakan pada procedure rectangle (pembuatan tangga), procedure bar (kota jakarta).

Variabel xpusat,ypusat : jika kalian perhatikan pada coding, saya membuat 2 variabel baru di awal. variabel ini sebenarnya saya gunakan untuk mempersingkat fungsi graph kata Getmaxx dan getmaxy, anda dapat mengganti nama variabel seperti xp/yp, selain itu mengapa saya namakan xpusat, karena disini Getmaxx dan getmaxy saya ingin mendapatkan nilai tengahnya dengan DIV 2, sehingga titik koordinat akan tepat pada tengah layar laptop, dan semua procedure yang menggunakan nilai variabel xpusat dan ypusat sebagai koordinatnya maka akan tepat di tengah layar monitor pc/laptop anda.

contoh procedrue line dan Rectangle, Ellips pada penggambaran (konstruksi monas) , sihlakan anda cek di koding yang telah saya tandai. Untuk warna latar disini saya menggunakan setfillstyle awal warna Putih. karena akan sangat mudah untuk procedurenya melakukan pewarnaan pada garis maupun bentuk-bentuk yang lain, sehingga warna tidak akan keluar pada gambar yang ingin diberi warna.

Catatan :
hal terpenting untuk membuat Graph unit dan memberi warna adalah memberi batas untuk warna dan warna batas tidak boleh sama dengan warna bentuk procedure yang ingin anda beri warna, karena jika sama akan membuat warnanya keluar dari bentuk tersebut. Dan satu lagi anda perlu menempatkan posisi floodfill atau tempat warna pertama kali muncul harus berada pada dalam garis bukan di luar garis, contoh mewarnai kotak, maka floodfill koordinatnya harus berada pada dalam kotak.

untuk Animasi Text begerak berganti warna, di sini saya menggunakan For To do, anda dapat melihat koding paling bawah, warnanya akan berganti secara otomatis sesuai nilai variabel i yang muncul sebanyak 15x.

ok sobat codingers, itulah artikel kali ini, semoga dapat bermanfaat untuk anda pelajari, bagi yang masih bingung dapat bertanya, jangan segan untuk terus mampir ke blog ini, karena akan update selalu seputar bahasa pemrograman komputer. Terimakasih bagi kalian yang telah membaca dan setia berkunjung. thanks.

Graph Unit Pascal : membuat Jaring Kotak dengan Perulangan

Graph Unit Pascal : membuat Jaring Kotak dengan Perulangan - perulangan pada pascal identik dengan kondisi statement yang di ulang nilai variabelnya, sehingga nilai tersebut bisa bertambah banyak bisa menuju banyak min atau max, dan pada pembahasan artikel kali ini, saya akan membagikan koding perulangan yang di gunakan untuk membuat gambar jaring di Graph pascal.

disini kita dapat memanfaatkan garis dari procedure line di Graph unit, perulangan yang terjadi pada line akan bisa membentuk jaring sesuai koordinat x dan y yang kita tentukan sesuai resolusi layar anda, berikut koding dan outputnya.

program garis;
uses crt,graph;
var driver,mode,i:integer;
begin
   driver:=detect;
   initgraph(driver,mode,'');
   i:=40;
   repeat;
     line(i,0,i,getmaxy);
     line(0,i,getmaxx,i);
     i:=i+40;
   until  i>getmaxx;
   readln;
end.

berikut tammpilan output dari program diatas.

contoh lain bisa juga menggunakan perulangan For To do , sesuaikan saja nilainya. dan logika programnyapun sama, berikut contoh kodingnya.

program garis;
uses crt,graph;
var driver,mode:integer;
    i:byte;
begin
driver:=detect;
initgraph(driver,mode,'');
for i:=0 to 32 do
begin
 line(40+i*40,0,40+i*40,getmaxy);
 line(0,40+i*40,getmaxx,40+i*40);
 end;
readln;
end.

itulah 2 contoh perintah perulangan yang bisa anda coba, anda bisa juga mencobanya menggunakan While do, intinya disini program hanya melakukan perintah perulangan nilai yang telah di deklarasikan di variabel dan variabel tersebut ada di dalam parameter procedure.

#keterangan.
- untuk yang menggunakan perulangan Repeat Until, i di constantakan 40, karena saya ingin memberikan nilai koordinat awal x dan y di titik 40, sehingga garis dapat membentuk Gambar geometri kotak, selanjutnya untuk procedure line pertama, variabel i tersebut di letakkan pada koordinat x awal dan x akhir agar dapat melakukan looping garis vertikal ke bawah dengan di tambah koordinat y awal 0 dan y akhir max.
- sebaliknya untuk procedure line ke dua, menempatkan variabel i di koordinat y awal dan akhir agar dapat melooping garis horizon ke kanan.

- penjelasan i:=i+40, maksudnya agar dapat memberikan jarak 40 untuk perulangannya, dan perintah penutup until terakhir adalah i akan berhenti nilainya ketika telah terpenuhi hingga sama atau lebih dari nilai koordinat x max.

- untuk penjelasan perulangan FOR to Do, for i awal saya letakkan defauld 0 menuju ke 32, yang berarti akan melakukan perulangan hingga 32 kali dimulai dari 0. variabel i akan di tambahkan dan dikalikan 40 untuk membuat sebuah kotak, dikali 40 agar dapat mempunyai jarak 40 di koordinat x  maupun y.

itulah, sedikit penjelasan tentang koding bahasa pemrograman pascal di atas, kalian dapat mempelajari dan mencobanya sendiri, banyak - banyaklah bereksperimen, koding akan lebih baik jika memori yang digunakan sedikit dan kodingnya sedikit atau tidak banyak koding procedure dari statement.

terimakasih bagi kalian yang selalu belajar di blog saya ini, sihlakan baca - baca dan belajar artikel saya yang lainnya, jika berkenan ilmu ini sihlakan dibagikan jika bermanfaat buat anda dan orang di sekitar anda, thanks. semmoga bermanfaat.

Belajar Parameter Dalam Procedure pascal

Belajar Parameter Dalam Procedure pascal - posting kali ini melanjutkan posting sebelumnya tentang Pelajari Memanggil Procedure pascal lebih Lanjut, sekarang saya akan membagikan materi tentang Parameter Dalam Procedure pascal, langsung saja disimak berikut ini.

Parameter Procedure.

 pada umumnya parameter yang dikirim dari modul utama (program utama) ke modul procedure disebut dengan "Parameter Nyata (Actual Parameter)" dan parameter yang ada dan di tuliskan pada judul procedure disebut dengan "parameter formal (formal parameter)".

proses pengiriman data dari actual parameter ke formal paameter disebut dengan "parameter passing" baik secara "pass by value atau pass by reference". Parameter secara acua adalah parameter formal dan parameter actual harus bertipe sama.

parameter secara value (pass by value)

dalam deklarasi parameter, jika kata var tidak ditulis,, maka parameter disebut parameter nilai atau value parameter, yang artinya bahwa parameter tersebut hanya mengambil nilai dari parameter actual yang sesuai. nilai parameter aslinya tidak akan berubah meskipun parameter formalnya mengalami perubahan.

Bentuk Umum :
PROCEDURE nama procedure (variabel 1, variabel 2, ... Variabel n : Type data);

Contoh :

1. Procedure satu (A,B,C,D :Integer);
2. Procedure satu (A :integer, B,C,D:real); 

Parameter Secara Acuan (pass By Reference)

Perubahan yang terjadi pada nilai parameter formal di procedure akan mempengaruhi nilai parameter nyata. dideklarasikan dengan kata var.

Bentuk Umum :
PROCEDURE Nama Procedure (Var Variabel 1, Variabel 2, ...Variabel n : Type Data);

Contoh :
Procedure Satu (var A,B,C,D : integer);

CONTOH PROGRAM MENGHITUNG JUMLAH NILAI A+B :

program penjumlahan;
uses crt;
procedure contoh (A,B :integer);
Var C :integer;
begin 
       C:=A+B;
       write('Nilai C : ' ,C);
end;
       var x,y:integer;
        begin
               clrscr;
               write('Nilai x = ');readln(x);
               write('Nilai y = ');readln(y);
         contoh(x,y);
         readln;
end.

Keterangan :

• Disini saya akan menjelaskan kepada teman - teman sekalian bahwa , Procedure menyatakan untuk menghitung nilai 2 variabel A dan B dan menghasilkan nilai C. dimana C telah di tulis "C = nilai a di tambah nilai b" yang  akan di input melalui statement pernyataan x dan y .
• maka untuk menampilkan A dan B dari procedure, teman - teman harus membuat statement setelahnya procedure, dengan membuat variabel baru contoh di atas adalah variabel X dan Y.
• variabel X di statement = variabel A di procedure.
• variabel Y di statement = variabel B di procedure.
• Bagaimana memanggil procedure C ?, Nahh procedure C tidak perlu lagi dipanggil. karena procedure C adalah Output yang nantinya di hasilkan dari variabel X dan Y dan variabel C juga telah dideklarasikan pada procedure. maka teman-teman hanya perlu mengetik (memanggil procedure) dan di tambah dengan variabel statement yaitu X dan Y. ,. ,. seperti ini "contoh(x,y);"
• Contoh merupakan Perintah dari nama procedure contoh.
• dan X , Y adalah variabel dari statement.

saya rasa cukup jelas yahh tentang procedure ini, dan sangat mudah . hanya perlu mendeklarasikan di awal dan akan di kerjakan di akhir statement, dengan memanggilnya. untuk ouput dari kode diatas akan jadi seperti ini :

Nilai x = (di input dari keyboard)
Nilai y = (di input dari keyboard)
Nilai C = (hasil otomatis dari x+y)

ada beberapa contoh Program Parameter Procedure dalam pascal yang telah saya buat , teman - teman bisa clik judul dibawah ini / klik saja gambarnya:

Kumpulan contoh perintah program Pascal Parameter Procedure

kumpulan contoh perintah program pascal parameter procedure

kumpulan contoh perintah program pasal parameter procedure - pada posting kali ini saya akan membagikan tentang contoh - contoh program parameter procedure pascal, bagi anda yang ingin mencari contoh program pascal dengan menggunakan perintah parameter procedure dapat melihat beberapa program dibawah ini :

agar anda dapat membedakan contoh program parameter procedure dengan yang hanya memakai deklarasi bentuk umum biasa, saya telah membuat contoh sebuah program sederhana deklarasi bentuk umum biasa tanpa parameter procedure, dibawah ini :

Contoh program procedure biasa :

program prosedure;
uses crt;
      procedure biodata;
      begin
             writeln('+++++++++++++');
      end;

var ket:string;

begin
      clrscr;
      biodata;
      writeln('----DATA MAHASISWA----');
      write('nama      : ');readln(ket);
      write('npm       : ');readln(ket);
      write('jurusan   : ');readln(ket);
      write('kelas     : ');readln(ket);
      write('fakultas  : ');readln(ket);
      write('alamat    : ');readln(ket);
      biodata;
readln;
end.

ket :
pada contoh program procedure biasa diatas, program hanya memanggil deklarasi biodata yang mana deklarasinya hanya berupa tanda (++++++++++) , dan selanjutnya hanya terdiri dari statements biasa pada pascal.

Outputnya akan menjadi seperti ini :

++++++++++++++++++++++
----DATA MAHASISWA----
nama        : (input dari keyboard)
npm         : (input dari keyboard)
jurusan     : (input dari keyboard)
kelas        : (input dari keyboard)
fakultas    : (input dari keyboard)
Alamat     : (input dari keyboard)
++++++++++++++++++++++ 

dari contoh diatas telah saya terangkan tentang procedure biasa, dan pada contoh - contoh program dibawah ini adalah beberapa contoh program PARAMETER PROCEDURE. 

Contoh program parameter procedure "menghitung penjumlahan":

program prosedure;
uses crt;
      procedure hitung(a,b:integer);
      var c:real;
      begin
      c:=a+b;
              writeln('hasil dari penjumlahan : ' ,c:0:2);
      end;

var NU,N:integer;

begin
      clrscr;
      writeln('program hitung penjumlahan');
      write('masukkan angka pertama : ');readln(N);
      write('masukkan angka kedua   : ');readln(NU);
      hitung(N,NU);
readln;
end.

ket :
pada contoh program parameter procedure diatas, program memanggil deklarasi hitung yang mana deklarasinya berupa rumus c:=a+b , dan selanjutnya memasukkan sebuah angka pada statements dengan variabel baru yang mana variabel ouput akan dipanggil dengan perintah hitung(N,NU).

Outputnya akan menjadi seperti ini :

 

Contoh program parameter procedure "KONVERSI SUHU CELCIUS KE FAHRENHEIT" :

program prosedure;
uses crt;
      procedure konversi(f:integer);
      var e:real;
      begin
      e:=9/5*f+32;
              writeln('hasil konversi suhu : ' ,e:2:0);
      end;

var cel:integer;

begin
      clrscr;
      writeln('konverai suhu celcius ke fahrenheit ');
      write('masukkan angka suhu celcius : ');readln(cel);
konversi(cel);
readln;
end.

ket :
pada contoh program parameter procedure diatas, program memanggil deklarasi konversi yang mana deklarasinya berupa rumus e:=9/5*f+32, dan selanjutnya memasukkan sebuah angka pada statements dengan variabel cel yang mana variabel ouput akan dipanggil dengan perintah konversi(cel).

Outputnya akan menjadi seperti ini :

Contoh program parameter procedure "KONVERSI SUHU CELCIUS KE REAMUR" :

program prosedure;
uses crt;
      procedure konversidua(c:integer);
      var e:real;
      begin
      e:=4/5*c;
              writeln('hasil konversi suhu : ' ,e:2:0);
      end;

var cel:integer;

begin
      clrscr;
      writeln('konverai suhu celcius ke reamur');
      write('masukkan angka suhu celcius : ');readln(cel);
konversidua(cel);
readln;
end.

ket :
pada contoh program parameter procedure diatas, program memanggil deklarasi konversidua yang mana deklarasinya berupa rumus e:=4/5*c, dan selanjutnya memasukkan sebuah angka pada statements dengan variabel cel yang mana variabel ouput akan dipanggil dengan perintah konversidua(cel).

Outputnya akan menjadi seperti ini :

Contoh program parameter procedure "KONVERSI DOLLAR KE RUPIAH" :

program prosedure;
uses crt;
      procedure dolarkurs(g:integer);
      var h:real;
      begin
      h:=g*14000;
              writeln('hasil kurs dolar ke rupiah : Rp. ' ,h:8:2);
      end;

var dolar:integer;

begin
      clrscr;
      writeln('Kurs dollar ke rupiah');
      write('masukkan angka dollar : $.');readln(dolar);
      dolarkurs(dolar);
readln;
end.

ket :
pada contoh program parameter procedure diatas, program memanggil deklarasi doarkurs yang mana deklarasinya berupa rumus h:=g*14000, dan selanjutnya memasukkan sebuah angka pada statements dengan variabel dolar yang mana variabel ouput akan dipanggil dengan perintah dolarkurs(dolar).

Outputnya akan menjadi seperti ini :

saya rasa itulah contoh - contoh diatas, beberapa program sederhana dari parameter procedure, saya akan update lebih banyak lagi di next artikel selanjutnya. thanks

Program Menghitung Bilangan Pangkat di Pascal

Program Menghitung Bilangan Pangkat di Pascal - hello sobat, posting kali ini saya akan membagikan tentang bahasa program pascal, cara Menghitung Bilangan Pangkat di Pascal atau menggunakan program pascal.

pada program yang akan saya buat menggunakan Deklarasi tipe FUNGSI sedikit bahasan tentang bentuk umum dari fungsi sebelum kita mengetahui tentang penerapan pada struktur fungsi program menghitung bilangan pangkat pada pascal :

bentuk umum dari fungsi :
          function identifier (daftar parameter) : type;
          begin
          statement
          end;

keterangan :
function                : Deklarasi suatu fungsi
Identifier               : Nama Fungsi
Daftar Parameter  : Parameter yang akan digunakan dalam fungsi
Type                    : Tipe data dari nilai fungsi yang dihasilkan

berikut saya akan terapkan bentuk umum Fungsi di atas pada program menghitung bilangan pangkat :

program mpangkat;
uses crt;
var a,np:integer;
    function pangkat(x:integer):real;
    var hasil:real;
    begin
      hasil:=exp(x*ln(a));
      pangkat:=hasil;
    end;
begin
   clrscr;
   writeln('=====menghitung bilangan pangkat=====');
   writeln('=====================================');
   write('Masukkan Angka : ');readln(a);
   write('Masukkan Nilai pangkat ? ');readln(np);
   write('Maka hasil dari ',a,'^',np,' adalah ',pangkat(np):2:0);
readln;
end.

OUTPUTNYA SEPERTI BERIKUT :

1. contoh saya mencari 5^6 (5 pangkat 6) ?

Masukkan Angka : 5 (di input dari keyboard)
Masukkan Nilai pangkat : 6 (di input dari keyboard)
Maka hail dari 5^6  adalah :  15625

KETERANGAN PROGRAM : 
dari program diatas saya akan menjelaskan struktur deklarasinya dan statementnya, :

• fungsi pangkat mempunyai tipe data REAL,
• exp :  digunakan untuk menghitung nilai pangkat ke n .
• variabel a:integer adalah variabel yang di gunakan untuk memasukkan angka utama.
• variabel np:integer adalah variabel yang di gunakan untuk memasukkan nilai pangkat pada angka utama.
• terakhir FUNGSI PANGKAT akan dipanggil dengan menghitung variabel a dan np yang mana fungsi pangkat telah di deklarasikan pada FUNGSI dengan sebuah rumus.

mungkin sekian dari posting saya kali ini semoga dapat bermanfaat bagi anda yang sedang mencari tugas ini :D terutama buat teman - teman kuliah saya, thanks.

jangan lupa baca artikel saya yang lainnya, dan jika ada pertanyaan boleh komen dibawah posting artikel ini yang telah saya sediakan. dan jika ingin berbagi artikel ini kepada teman sosial anda klik salah satu sosmed share yang berada tepat di bawah tulisan ini :

Pelajari Memanggil Procedure pascal lebih Lanjut

Pelajari Memanggil Procedure pascal lebih Lanjut - hello sobat, posting kali ini tentang kelanjutan dari procedure pada pascal , sekedar mendalami dan jauh lebih kita mengerti tentang apa itu procedure pada pascal serta perbedaannya dengan temannya yaitu function atau fungsi.

pada semester 1, metode procedure pascal telah di pelajari namun entah mengapa disemester II kembali lagi mempelajari tentang procedure, mungkin ini lebih mendetail untuk mempelajari dan mengenal procedure pada pascal. 

Kita ketahui terlebih dahulu aturan umum dalam Procedure :

Program judul program ;
           procedure judul procedure;
           begin
           ..............................
           .............................
           end;
begin
          .............................
          ............................
          end.

keterangan :
1. Lokasi deklarasi procedure ,berada tepat sebelum blok utama program.
2. Deklarasi yang berbeda Dalam Procedure berlaku Lokal.
3. Sama Seperti penerapan kode pascal pada umumnya, Procedure diawali dengan begin dan diakhiri dengan end lalu dikuti dengan tanda titik koma (;) .
4. Nama Procedure adalah identifier.
5. Setelah Nama Procedure , dapat di deklarasikan argument / parameter yang akan di passing ke procedure tersebut.

DEKLARASI PROCEDURE.

Deklarasi pada procedure pascal meliputi 3 bagian utama, seperti pada program awal / utama, yaitu terdapat Kepala (atau header) Procedure, Bagian deklarasi, dan terakhir bagian tubuh (atau body) procedure.

Bentuk Umum :

PROCEDURE Nama Procedure ( Letak Daftar Parameter formal / argument )
Bagian Deklarasi
    BEGIN
    Statement 1;
       Statement 2;
       End;

Variabel Lokal dan variabel global.

Variabel lokal atau konstanta, suatu variabel yang dapat di deklarasikan di dalam sebuah procedure pascal dan hanya dapat diamati dalam procedure tersebut.

CARA MEMANGGIL PROCEDURE PASCAL.

Bentuk Umum :
Nama Procedure / Pengenal (Daftar parameter Actual) ;

Contoh Program ;

Program Contoh;
uses crt;
Procedure garis;
        begin
        writeln('------------------')
        end;
begin
clrscr;
        Garis;
        writeln('PASCAL')
        Garis;
readln;
end.  

dari Program diatas akan menampilkan output program procedure seperti ini :

- - - - - - - - - - - - - - - -
PASCAL
- - - - - - - - - - - - - - - -

keterangan logika pada program procedure diatas :

• dimana pada procedure telah dinyatakan bahwa procedure garis adalah ('------------') .
• maka pada statement 1 , jika di tambah dengan perintah "garis;" program akan memerintahkan (mengerjakan) untuk memanggil procedure garis di atas, 
• untuk percobaan, cobalah anda ubah tanda garis-garis ('----------') dengan tanda lain, secara otomatis pasti tanda tersebut akan mengikuti pada statement 1. 

CONTOH LAIN MENAMBAHKAN VARIABEL STRING DI DALAM PROCEDURE : 

Program Contoh;
uses crt;
Procedure mahasiswa;
        begin
        writeln('++++++++++++++')
        end;
var ket:string;
begin
clrscr;
        mahasiswa;
        write('NAMA        : ');readln(ket);
        write('NPM         : ');readln(ket);
        write('JURUSAN     : ');readln(ket);
        write('FAKULTAS    : ');readln(ket);
        mahasiswa;
readln;
end.

outputnya akan menjadi seperti ini :

+++++++++++++++++++++++++
NAMA          : (input dari keyboard)
NPM             : (input dari keyboard)
JURUSAN    : (input dari keyboard)
FAKULTAS  : (input dari keyboard)
+++++++++++++++++++++++++

Keterangan :
pada contoh diatas, hanya menambahkan sebuah variabel setelah procedure yang kemudian di kerjakan pada statement, dan sebelum statement hanya di tambahkan perintah pemanggil procedure yaitu mahasiswa; dengan perintah tampilan procedure ('+++++++++++++').

untuk konsep selanjutnya tentang procedure di pascal dengan penambahan perintah variabel di dalam procedure, serta di kerjakan pada procedure, anda dapat membacanya di posting saya selanjutnya. tentang BELAJAR PARAMETER DALAM PROCEDURE PASCAL .

sekian dari posting ini, semoga dapat bermanfaat bagi teman - teman , jika kebingungan dapat bertanya di form komentar di bawah menggunakan G+ ataupun akun facebook, dan saya akan menjawab pertanyaan kalian semua selagi tidak dalam keadaan sibuk ^_^ thanks.

turbo pascal fungsi "IF than" : membuat total pembayaran + diskon + bonus

turbo pascal membuat total pembayaran + diskon - hello sobat, berhubung dengan kesibukan kuliah jadi terbengkalai blog ini, dan barulah pada hari ini saya dapat mengupdate artikelnya, tentang bahasa program pascal, membuat perintah total pembayaran + diskon dengan menggunakan peritah "if Than".

saya bahas sedikit, mungkin bahasa pascal ini tidak digunakan lagi pada beberapa universitas maupun tempat kuliah lain, tetapi adakalanya sebagai pedoman dasar kita wajib mengetahui dasar - dasar bahasa pemrograman melalui belajar bahasa pascal.

dengan mengetahui dasar - dasarnya maka bahasa pemrograman tingkat tinggi seperti delphie, C++, bahasa C, dan lain sebagainnya menjadi lebih mudah untuk di pahami dari segi prosedure, statement maupun input dan output yang akan di hasilkan dari program dan aplikasi apa yang kita buat.

seperti contohnya dalam belajar matematika tentunya untuk mempelajari integral kita wajib mengetahui Dasar Perkalian, penjumlahan maupun pangkat dan akar . dengan begitu dengan mempelajari integral menjadi lebih mudah tanpa harus belajar dan memahami dari awal. dan saya rasa begitu , langsung saja berikut contoh penggunaan fungsi IF Than di dalam pascal ,dengan soal membuat total pembayaran + diskon.

berikut contoh bahasa program pascal dengan fungsi IF than.

program menu;
uses crt;
var
  tp,tbayar,diskon:real;
begin
   clrscr;
   write('masukkan total pembayaran : Rp.');readln(tp);
   writeln('-------------------------------------');
   if tp >= 300000 then
   begin
      writeln('mendapatkan bonus = piring cantik');
      diskon:=tp*0.15;
      writeln('mendapatkan diskon = Rp.' ,diskon:9:2);
   end
      else
      if tp >= 200000 then
      begin
         writeln('mendapatkan bonus  = piring retak');
         diskon:=tp*0.1;
         writeln('mendapatkan diskon = Rp.' ,diskon:9:2);
      end
         else
         if tp >= 50000 then
         begin
            writeln('mendapatkan bonus  = piring picah');
            diskon:=tp*0.05;
            writeln('mendapatkan diskon = Rp. ' ,diskon:9:2);
         end
            else
            if tp < 50000 then
            writeln('tidak mendapatkan diskon dan bonus');
            tbayar:=tp-diskon;
            writeln('-------------------------------------');
            writeln('total pembayaran   = Rp.' ,tbayar:9:2);
            readln;
end.

Ket Variabel :

• TP = total pembayaran  awal
• Tbayar = total pembayaran akhir
• diskon = variabel untuk nama diskon

pernyataan program diatas merupakan bagian dari 4 statement fungsi if. dimana fungsi yang pertama memanggil variabel sebagai acuan untuk menghitung dan menerapkan kondisi perintah. bisa anda lihat, fungsi yang pertama memasukkan sebuah total pemabayaran,

contoh algoritmanya seperti ini :

• statement pertama : total pembayaran akan di masukkan melalui input keyboard jika total pembayaran lebih atau sama dengan Rp.300.000,- maka akan di tampilkan mendapatkan bonus piring cantik. dan akan ditampilkan mendapatkan diskon 10% dari total pembayaran.
• statement kedua : akan menampilkan total pembayaran jika total pembayaran  lebih atau sama dengan Rp.200.000,- maka akan di tampilkan mendapatkan bonus piring retak. dan akan ditampilkan mendapatkan diskon 5% dari total pembayaran.
• statement ketiga : akan menampilan total pembayaran jika total pembayaran lebih atau sama dengan Rp. 50.000,- maka akan ditampilkan mendapatkan bonus piring picah. dan akan ditampilkan mendapatkan diskon 5% dari total pembayaran.
• statement keempat : akan menampilkan total pembayaran jika total pembayaran kurang dari Rp. 50.000,- makan akan ditampilkan tidak mendapatkan diskon dan bonus.
• pernyataan terakhir : akan di tampilkan total pembayaran dari hasil total pembayaran di kurang diskon. ( dari hasil penentuan 4 statement diatas).

mungkin itulah sedikit contoh dari cara membuat total pembayaran + diskon + bonus menggunakan fungsi IF than , anda dapat mempelajarinya dan bisa ubah juga kata - kata piring cantik atau piring picah dengan sesuatu yang lain ^_^.

bagaimana mudah bukan, dan untuk outputnya, berikut adalah hasil screenshot software turbo pascal yang saya gunakan untuk menjalankan bahasa program di atas.

keterangan :

• anda bisa lihat pada gambar diatas dimana saya memasukkan angka dari keyboard dengan angka tiga ratus ribu dan ini masuk pada statement satu IF THEN.maka data akan di teruskan menampilkan perintah bonus dan diskon dan selanjutnya sampai pada perintah akhir yaitu menghitung rumus dengan statement IF THEN yang terseleksi.

menu ini seperti penerapan pada menu di caffe, mungkin jika ingin membuat menu atau perintah program yang lebih spesifik anda harus mempelajari fungsi IF atau Case dengan stetement yang lebih bersarang/berganda dan lebih dalam untuk penerapan statementnya.

pada kasus di caffe atau menu makanan ,banyak beragam makanan ataupun minuman jadi penerapan jika menggunakan IF pastiya lebih banyak statementnya dibanding CASE. seperti contoh kasus menu pada kasir di suppermarket, beragam makanan, minuman maupun barang - barang lain yang di jual dan itu membutuhkan data terperinci, untuk sekedar IF THEN. mungkin next posting akan saya berikan contoh bahasa program pascalnya.

saya rasa sampai disini dulu tentang turbo pascal fungsi "IF than" : membuat total pembayaran + diskon + bonus, semoga dapat anda pelajari fungsi dari bahasa pascal yang  saya terapkan diatas, jangan takut untuk gagal , dimana mencoba adalah salah satu fungsi keberhasilan. thanks