Bermain Hitung Dengan Menu Pascal


Kembali Lagi dengan Bermain Hitung-menghitung menggunakan program pascal,  kali ini kita akan bermain dengan Menu kembali dalam Pascal.🙄

kali ini saya berbagi ilmu kembali tentang bagaimana menggunkana Fucntion dan Procedure dalam Pascal…

jadi bisa di jelaskan bahwa Function (Fungsi) secara garis besar sama dengan procedure yang membedakannya adalah nama fungsi harus dideklarasikan dengan type datanya. Fungsi adalah suatu bagian program yang mengerjakan satu tugas dan hasilnya biasanya hanya satu. Fungsi juga menerima parameter-paramter seperti procedure yaitu Parameter Nilai dan Parameter Variabel. Selain itu fungsi juga diperbolehkan memiliki deklarasi lokal

Contoh Penulisan :
Function faktorial (var fak, hasil : I nteger) : integer;

setelah Teorinya Cukupo, Yuk Kita coba implementasi dalam Program😉 di bawah ini ada source yang bisa di ambil dan di coba … silahkan🙄🙄🙄

uses crt;

procedure pemasukkan_angka(var ang1,ang2:integer);
begin
write(‘Masukkan angka pertama : ‘);readln(ang1);
write(‘Masukkan angka kedua   : ‘);readln(ang2);
end;

procedure angka_masuk(var ang1,ang2:integer);
begin
writeln(‘Angka pertama yang telah diinput adalah : ‘,ang1);
writeln(‘Angka kedua yang telah diinput adalah   : ‘,ang2);
end;

function tambah(a,b:integer):integer;
begin
tambah:=a+b;
end;

function kurang(a,b:integer):integer;
begin
kurang:=a-b;
end;

function kali(a,b:integer):integer;
begin
kali:=a*b;
end;

function bagi(a,b:real):real;
begin
bagi:=a/b;
end;

var ang1,ang2,pil:integer;

begin
repeat
clrscr;
writeln(‘*** MENU ***’);writeln;
writeln(‘——————————————-‘);
writeln(‘1. Input dua buah angka sembarang’);
writeln(‘2. Dua angka sembarang tersebut dijumlahkan’);
writeln(‘3. Dua angka sembarang tersebut dikurangkan’);
writeln(‘4. Dua angka sembarang tersebut dikalikan’);
writeln(‘5. Dua angka sembarang tersebut dibagi’);
writeln(‘6. Gue mo keluar….’);
writeln(‘+++++++++++++++++++++++++++++++++++++++++++’);
writeln(‘   Fajar Rizkiansyah (Heart Of The Love)’   );
writeln(‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx’);
writeln;
write(‘Masukkan pilihan Anda (1-6) : ‘);readln(pil);writeln;

case pil of
1: pemasukkan_angka(ang1,ang2);
2: begin
angka_masuk(ang1,ang2);
write(‘Jadi, ‘,ang1,’ ditambah (+) ‘,ang2,’ = ‘,tambah(ang1,ang2));
writeln;
write(‘Puas? Tekan ENTER untuk kembali ke MENU UTAMA’);readln;
end;
3: begin
write(ang1,’ – ‘,ang2,’ = ‘,kurang(ang1,ang2));
readln;
end;
4: begin
write(ang1,’ x ‘,ang2,’ = ‘,kali(ang1,ang2));
readln;
end;
5: begin
write(ang1,’ : ‘,ang2,’ = ‘,bagi(ang1,ang2));
readln;
end;
else
writeln(‘Asyiik..keluar..’);
writeln(‘Heart Of Love’);
readln;
exit;
end;
until pil=6;
end.

inilah hasil dari code yang kita masukkan outputnya yaitu…😈

Nah Output di atas adalah Hasil dari Program yang Tlah Run..

Bagi-bagi Ilmu nya samapi di sini dulu yua teman-teman Next TIme Kita Bermain lagi dengan Program yang lain😆

About FajarRizkiansyah

Tuhan Pasti Tau apa yang kita lakukan untuk kebeneran pasti ada jalan yang terbaik .......
Aside | This entry was posted in bacaaan and tagged . Bookmark the permalink.

One Response to Bermain Hitung Dengan Menu Pascal

  1. arief says:

    mantap, lanjutkan ngodingnya

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