Sabtu, 26 Februari 2011

Menghitung Bilangan Ganjil Genap Menggunakan Pascal

0 komentar
Sekarang kita akan membuat program sederhana untuk menghitung suatu bilangan apakah termasuk kedalam bilangan ganjil atau genap.

Nah...kita lihat listing program berikut:

Program ganjil_genap;

Uses wincrt;

Var

Bilangan : Integer;

Begin

Clrscr;

Write('Masukan Bilangan ? '); Readln(Bilangan);

If (Bilangan Mod 2) = 0 Then

Writeln ('Genap')

Else

Writeln ('Ganjil');

Readln;

End.

Tampilan yang dihasilkan dari listing diatas adalah sebagai berikut:



Selamat mencoba....

Free Template Blogger collection template Hot Deals BERITA_wongANteng SEO

Jumat, 25 Februari 2011

Menghitung Bonus Menggunakan Fungsi IF di Pascal

0 komentar
Oke deh....Kita ga usah basa-basi kesana-kesini dulu. Kita langsung ke tujuan utama bahasan kita.

Check it out....!!! ;)

Listing Programnya adalah sebagai berikut:

program bonus;

uses wincrt;

var

total : longint;

begin

clrscr;

writeln('Menampilkan Bonus');

writeln('=================');

writeln;

write('Masukkan Nilai Total : ');readln(total);

If total>=100000 then

writeln('Bonusnya adalah Diskon 10%')

else

If (total<100000) and (total>=50000) then

writeln('Bonusnya adalah 1 buah piring')

else

If (total<50000) and (total>=10000) then

writeln('Bonusnya adalah 2 buah gelas')

else

If total<10000 then

writeln('Tidak ada Bonus');

End.


Nah...hasil yang kita dapatkan adalah



Good Luck...!!!

Free Template Blogger collection template Hot Deals BERITA_wongANteng SEO