Minggu, 29 November 2015

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Latihan Praktikum Listview Pembayaran Tagihan PDAM (Tak ada Link)

Berikut Jawaban Program :
Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LV.Columns.Add("kode", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Jml Pemakaian", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pembayaran", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True


        Kode_pelanggan.Items.Add("001")
        Kode_pelanggan.Items.Add("002")
        Kode_pelanggan.Items.Add("003")

        Tipe.Items.Add("Toko")
        Tipe.Items.Add("Rumah")
        Tipe.Items.Add("Swalayan")
        Tipe.Items.Add("Pabrik")
    End Sub

    Private Sub Kode_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_pelanggan.SelectedIndexChanged
        Select Case Kode_pelanggan.Text
            Case "001"
                Nama.Text = "Jhon"
            Case "002"
                Nama.Text = "Eko"
            Case " 003"
                Nama.Text = "Dian"

        End Select
    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged
        Select Case Tipe.Text
            Case "Toko"
                Biaya_beban.Text = " 25000"
                Harga.Text = "300"
            Case "Rumah"
                Biaya_beban.Text = " 15000"
                Harga.Text = "100"
            Case "Swalayan"
                Biaya_beban.Text = " 10000"
                Harga.Text = "200"
            Case "Pabrik"
                Biaya_beban.Text = " 25000"
                Harga.Text = "500"
            Case ""
                Biaya_beban.Text = ""
                Harga.Text = ""
        End Select
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        Total_tagihan.Text = Val(Biaya_beban.Text) + Val(Harga.Text * Jumlah_pemakaian.Text)
        pajak.Text = 0.01 * Total_tagihan.Text
        Pembayaran.Text = Val(Total_tagihan.Text) + Val(pajak.Text)

        Dim lst As New ListViewItem
        lst.Text = Kode_pelanggan.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Tipe.Text)
        lst.SubItems.Add(Biaya_beban.Text)
        lst.SubItems.Add(Jumlah_pemakaian.Text)
        lst.SubItems.Add(Total_tagihan.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(Pembayaran.Text)
        lst.SubItems.Add(Harga.Text)
        LV.Items.Add(lst)


     
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Me.Close()

    End Sub

    Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click
        LV.Items.Clear()

    End Sub

    Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
        LV.Items.Remove(LV.SelectedItems(0))

    End Sub
End Class
======================================================================

Tampilan Hasil:

==================================================================

Demikilahlah postingan saya

Nama : Etty Diana Manurung
NPM : 14110306


Selamat Belajar Pemrograman VB NET

Kamis, 26 November 2015

Jawaban Quis Online Pak Mesran Dalam Bahasa C++

#include ("iostream") #include "conio.h" void main(){ int i,nik[15], gol[15], jumdata=4; char * nama ; float gaji,pajak,bersih ; cout("Informasi Penggajian Pegawai") ; for(i=0 ; i<jumdata ; i++ ){ cout("\nnik anda : ") ; cin("%d", &nik[i]) ; cout ("gol anda : ") ; cin("%d", &gol[i]) ; } clrscr() ; cout ("\n Informasi Penggajian Pegawai") ; cout ("\n---------------------------------------------------------------------") ; cout("\n No NIK Nama Golongan gaji pajak gaji bersih ") ; cout("\n---------------------------------------------------------------------") ; for(i=0 ; i<jumdata ; i++ ){ if(nik[i]==1){ nama = "Hendro" ; }else if(nik[i]==2){ nama = "Dian" ; }else if(nik[i]==3){ nama = "Jhoni" ; } if(gol[i]==1){ gaji =1500000 ; }else if(gol[i]==2){ gaji =2500000 ; }else if(gol[i]==3){ gaji =3500000 ; } pajak = 0.05 * gaji ; bersih = gaji-pajak; gotoxy(1,6+i) ; cout(" %i %d %s", i+1, nik[i], nama) ; gotoxy(30,6+i) ; cout("%i %10.0f %10.0f" "%10.0f", gol[i], gaji,pajak,bersih) ; } cout("\n--------------------------------------------------------------------") ; }

Kata-kata bijak motivasi dari "Tokoh dunia"



“jika ragu dalam melakukan sesuatu, sebaiknya tanya kepada diri sendiri, apa yang kita inginkan esok hari dari apa yang telah kita lakukan sebelumnya”
oleh Jonh Lubbock- pakar boilogi Inggris.

“kita hidup untuk saat ini, kita bermimpi untuk masa depan, dan kita belajar untuk kebenaran abadi”
oleh Chiang Kai Shek-pemimpin nasionalis Tiongkok.



“pengetahuan diperoleh dengan belajar, kepercayaan dengan keraguan, keahlian dengan berlatih, dan cinta dengan mencintai” 
oleh Thomas Szasz-psikiater asal Hungaria.

Kata-kata Bijak Versi Batak


Horasss, Sae adong do hata-hata namuttk rohatta sian versi batak on.

Dijolo raja sieahan, dipudi raja sipaimaon
(Hormatan do natua-tua dohot angka raja).

Sada silompa gadong dua silompa ubi,
Sada pe namanghatahon Sudema dapotan Uli.

Pitu batu martindi sada do sitaon nadokdok
(Unang maharaphu tu dongan).

Jujur do mula ni bada, bolus do mula ni dame
(Unang sai jujur-jujuri salani dongan, alai bolushon ma).

Siboru buas siboru Bakkara, molo dung puas sae soada mara
(Dame ma).

Sungkunon poda natua-tua, sungkunon gogo naumposo
(Bertanggung-jawab).

Selasa, 17 November 2015

Contoh Program Penggajian Pegawai Visual Basic.net 2008

1. Disainlah Lembar Kerja / Form Anda Seperti Gambar Dibawah :
Contoh Program Penggajian Pegawai  Visual Basic.net 2008
Gambar Di Atas Terdiri Dari Label,Textbox,Combobox Dan Button
                             

         2.     Keterangan
·         Name Pada Textbox,ComboBox  Di Kotak Properties Diganti Berdasarkan Label
Contoh :
Label
Name
NIk
Nik
Nama
Nama
Bagian
Bagian
Jabatan
Jabatan
·         Teks pada button  menjadi :
Hapus dan Proses
     Baiklah ..Setelah Selesai Kita Mengubah Name Pada Textbox,Combobox Dan Teks Pada Button , selanjutnya kita akan membuat printahnya atau pun codingnya
Okee :

          3.  Klik Double Bebas Pada Form Dan Isi Kan Printah Dibawah Ini :

Public Class Form1
  
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nik.Items.Add("PM010")
        nik.Items.Add("PS111")
        nik.Items.Add("KU101")
        nik.Items.Add("GD100")
        nik.Items.Add("PM0011")
        jabatan.Items.Add("KEPALA DIVISI")
        jabatan.Items.Add("STAFF")
        jabatan.Items.Add("WAKIL KEPALA")
        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")
        jumlah_anak.Items.Add("0")
        jumlah_anak.Items.Add("1")
        jumlah_anak.Items.Add("2")
    End Sub
     4.  Klik Double Pada Combobox Nik Dan Isikan Printah Ini :
     Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "PM010"
                nama.Text = "Awal"
            Case "PS111"
                nama.Text = "Satria"
            Case "KU101"
                nama.Text = "Ria Hartati"
            Case "GD100"
                nama.Text = "fitri ariska"
            Case Else
                nama.Text = "Selamat Bangun"
        End Select
        Dim j As String
        j = Microsoft.VisualBasic.Left(nik.Text, 2)
        If j = "PM" Then
            bagian.Text = "Pemasaran"
        ElseIf j = "PS" Then
            bagian.Text = "Personalia"
        ElseIf j = "KU" Then
            bagian.Text = "Keuangan"
        ElseIf j = "GD" Then
            bagian.Text = "Gudang"
        End If
    End Sub

  5.Klik Double Pada ComboBox Jabatan Dan Isikan Printah Ini :

  Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "KEPALA DIVISI"
                gaji.Text = "5000000"
            Case "STAFF"
                gaji.Text = "2000000"
            Case Else
                gaji.Text = "3500000"
        End Select
        pajak.Text = gaji.Text * 0.1
    End Sub
   6. Klik double pada combobox status dan isikan printah ini:

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "Menikah"
                tunjangan_keluarga.Text = gaji.Text * 0.15
            Case "Tidak Menikah"
                jumlah_anak.Text = ""
                tunjangan_keluarga.Text = 0
        End Select
    End Sub
     7.   Klik Double Pada Combobox Jumlah Anak :

           Namun.. Sebelumnya Saya Disini Menggunakan Keypress / Dengan Menekan Tombol Enter Untuk Mendapatkan Tunjangan Anak Dan Total Gaji…
Okeyy J
Setelah Di Ubah Di Kotak “Selectedchanged” Menjadi “Keypress”
Isikan printah ini : 
  Private Sub jumlah_anak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_anak.KeyPress
        If e.KeyChar = Chr(13) Then
            Select Case jumlah_anak.Text
                Case "0"
                    tunjangan_anak.Text = 0
                Case "1"
                    tunjangan_anak.Text = gaji.Text * 0.05
                Case "2"
                    tunjangan_anak.Text = gaji.Text * 0.1
                Case Else
                    tunjangan_anak.Text = gaji.Text * 0.5
            End Select
        End If
 total.Text = (gaji.Text) + Val(tunjangan_anak.Text) + Val(tunjangan_keluarga.Text) - pajak.Text
        total.Enabled = False
    End Sub
      8.  Kemudian Klik Doble Pada Button Hapus Dan Isikan Printah :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        nama.Text = ""
        nik.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        tunjangan_anak.Text = ""
        tunjangan_keluarga.Text = ""
        pajak.Text = ""
        status.Text = ""
        gaji.Text = ""
        total.Text = ""
        jumlah_anak.Text = ""
    End Sub
9   9.  Kemudian Klik Doble Pada Button keluar Dan Isikan Printah :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim tanya As String
        tanya = MsgBox("Apakah Anda ingin Keluar?", MsgBoxStyle.YesNo)
        If tanya = vbCancel Then
            Me.Close()
        ElseIf tanya = vbNo Then
            Me.Focus()
        ElseIf tanya = vbYes Then
            Me.Close()
        End If
    End Sub
End Class

Hasilnya :

Selasa, 16 Juni 2015

Review tentang blog mesran.blogspot.com

Di mesran.blogspot.com ini saya berkomentar tentang tampilan blog dan isi isi yang terdapat di dalamnya.
Menurut saya ini sudah baik karena blog ini membantu semua orang yang pecinta blogg dapat mendapat ilmu dari blog  mesran.blogspot.com .Dikarenakan di dalam blog ini terdapat banyak informasi yang bermanfaat bagi orang orang yang ingin belajar dan ingin lebih tau dengan komputer.




nah inilah review tentang blog mesran.blogspot.com yang bisa saya sampaikan ..

Selasa, 02 Juni 2015

Kumpulan Source code Sederhana Dalam Bahasa Pascal


Kumpulan Source code Sederhana Dalam Bahasa Pascal

Hampir senada dengan postingan yang linked list, Kali ini saya juga akan menshare kumpulan source code program-program kecil dalam bahasa pascal. Meskipun masih sederhana dan mungkin tidak cocok untuk programmer yang sudah mapan, tulisan ini saya harap bisa berguna untuk mereka yang masih atau mau belajar memprogram. Karena sebelum memahami hal yang rumit, harus paham yang sederhana dulu kan?  Dengan membaca kode-kode pascal yang ada disini, semoga bisa menambah pemahaman tentang pemprograman.
Bila dasar source code yang Linked List bukan saya yang membuat,  semua yang ada disini adalah kode yang saya tulis sendiri. Sebagian di kerjakan sebagai jurnal praktikum di kampus, sebagian tugas dari dosen, dan sisanya adalah hasil iseng-iseng. Jadi, saya jamin code disini tidak akan di temui di website atau blog lain, kecuali mereka memplagiat artikel ini. Jadi merasa beruntunglah sudah kesini, hwahwahwahah (tertawa setan)
Silahkan cermati, hayati, lalu komentari. Kalau ada yang kurang jelas, Tanyakanlah…..

Prosedur dan Fungsi
Di sub judul ini, ada 4 source code yang mengandung fungsi dan prosedur. Fokus yang ada disini adalah bukan mengenai bagaimana isi prosedur itu, tapi lebih ke bagaimana penggunaan fungsi dan prosedur itu. Tentang bagaimana deklarasinya, penerapan parameter, pemanggilannya dan sebagainya… Contoh disini dimulai dari yang paling sederhana hingga yang lebih ribet sedikit…..

Dilatasi
Fungsi : Mengalikan dua buah angka yang dimasukan dengan angka tertentu.
Hint : -
Screenshot Output:


uses crt;
var absis,ordinat,pengali:integer;
procedure dilat(a,b,peng:integer);
   var c,d:integer;
   begin
    c:=a*peng;
    d:=b*peng;
    writeln('(',c,',',d,')');
   end;
begin
  writeln('Kordinat Awal');
  write('Absis : ');readln(absis);
  write('Ordinat : ');readln(ordinat);
  writeln;
  write('masukan faktor pengali ');readln(pengali);
  write('Kordinat (',absis,',',ordinat,') setelah didilatasikan terhadap faktor ',pengali,' menjadi ');
  dilat(absis,ordinat,pengali);
  readln;
end.



Mencari Penyelesaian Fungsi Kuadrat

Fungsi : Mengitung nilai persamaan kuadrat bila nilai x diketahui
Hint: Masukan  nilai a,b,c  dan nilai x.
Screen Shot :

uses crt;
var x,y,z,s:integer;
function fungsi(a,b,c,x:integer):integer;
    begin
       fungsi:=a*(x*x)-b*x+c;
    end;
begin
   write('masukan a : ');readln(x);
   write('masukan b : ');readln(y);
   write('masukan c : ');readln(z);
   write('masukan x : ');readln(s);
   writeln('f(x)=',x,'(x^',x,'2)-',y,'x+',z);
   writeln('f(',s,') =',fungsi(x,y,z,s));
   readln;
end.


Menghitung Waktu Gerhana

Fungsi : Menghitung tanggal gerhana pada bulan tertentu dengan rumus yang sudah ada.
Hint: Sebenarnya intinya hanya membuat prosedur yang menampilkan jumlah hari dalam bulan tertentu..waktu gerhana ini sebagai tambahan saja.
Screen Shot :



uses crt;
var b,ha,ger:integer;
      bul:string;
procedure maks(s:integer);
    var y,k:integer;
    begin
      case s of
        1,3,5,7,8,10,12:ha:=31;
        4,6,9,11:ha:=30;
        2:begin
            write('masukan tahun ');readln(y);
            k:=y mod 4;
            if k=0 then
              ha:=28
           else ha:=29;
           end;
      else writeln('Bulan salah!!!');readln;exit;
    end;
end;
procedure hitung(bee:integer);
   begin
     ger:=bee-(2*b);
   end;
begin
   write('masukan bulan ke- :');readln(b);
   maks(b);
   hitung(ha);
   write('Gerhana bulan ');
   case b of
       1 : WRITE('Januari');
       2:WRITE('Februari');
       3:WRITE('Maret');
       4:WRITE('April');
       5:WRITE('Mei');
       6:WRITE('Juni');
       7:write('Juli');
       8:WRITE('Agustus');
       9:write('September');
       10:write('Oktober');
       11:WRITE('November');
       12:WRITE('desemberrrr');
   end;
   writeln(' terjadi pada hari ke-',ger);
readln;
end.


Penjumlah Pecahan

Fungsi : Menjumlahkan 2 buah pecahan.
Hint:  Tinggal masukan saja penyebut dan pembilang.
Screenshot :



uses crt;
var pemi,pemII,penyi,penyII:integer;
      j,k:integer;
function pemb(a,c:integer):integer;
    begin
       j:=penyii;
       k:=penyi;
       pemb:=a*j+k*c;
    end;
function peny(b,d:integer):integer;
   begin
     peny:=b*d;
   end;
begin
    writeln('Pecahan 1 ');
    write('Pembilang i :');readln(pemi);
    write('Penyebut i :');readln(penyI);
    writeln;
    write('Pecahan 2 ');
    write('Pembilang ii :');readln(pemII);
    write('Penyebut II: ');readln(penyII);
    writeln;
    writeln('maka hasil dari pertambahan ',pemi,'/',penyI,'+',pemii,'/',penyII,' adalah ',pemb(pemi,pemii),'/',peny(penyi,penyii));
readln;
end.


ARRAY
Setelah prosedur dan fungsi, beralih ke Array. Karena sudah masuk ke array, kode-kode yang sini mungkin terlihat lebih rumit dari sebelumnya…

Mencari angka kelipatan 3

Fungsi :Mencari angka kelipatan 3 dari sekumpulan angka yang diinputkan.
Hint: Masukan angka dan masukan -1 untuk berhenti, otomatis hasil akan ditampilkan.
Screen Shot :




uses crt;
 var a,b:array[1..10] of integer;
        i,j,k,l:integer;
begin
       {memasukan angka}
   j:=1;
   repeat
     write('angka ke-',j,': ');readln(a[j]);
      j:=j+1;
   until a[j-1]=-1;
   {menentukan mana yang kelipatan 3}
   for k:=1 to j do
     begin
        if a[k] mod 3=0 then
           b[k]:=a[k];
      end;
{Menampilkan mana yang kelipatan tiga}
  write('angka kelipatan 3 adalah : ');
  for i:=1 to (j-1) do
    begin
       if b[i]<>0 then
         write(b[i],', ');
     end;
  readln;
end.



Penjumlah Matrix

Fungsi : Menjumlahkan dua matriks 3x3 yang diinputkan
Hint: Masukan nilai matriks di tiap-tiap baris dan kolom.
Screen Shot :



uses crt;
 var m1,m2,mp:array[1..10,1..10] of integer;
       i,j,k,l:integer;
begin
{Menginput nilai matriks}
  writeln('Matriks ke 1');
  for i:=1 to 3 do
    for j:=1 to 3 do
       begin
          write('m1[',i,',',j,'] : ');readln(m1[i,j]);
       end;
  writeln;
  writeln('Matriks ke 2');
  for i:=1 to 3 do
       for j:=1 to 3 do
         begin
           write('m2[',i,',',j,'] : ');readln(m2[i,j]);
         end;
  writeln;
{jumlahkan}
 begin
  for i:=1 to 3 do
    for j:=1 to 3 do
       begin
          mp[i,j]:=m1[i,j]+m2[i,j];
       end;
 {lukis hasil penjumlahan}
 writeln('Hasil Penambahan = ');
 writeln;
    for i:=1 to 3 do
      begin
       writeln;
       for j:=1 to 3 do
         write(mp[i,j],' ');
      end;
readln;
end;
end.



Pendata Mahasiswa

Fungsi: Mendata data mahasiswa, atau apalah dengan array dan menampilkannya.
Hint: Intinya adalah membuat array di record.
Screen shot :



program mhsw;
uses crt;
type mahasiswa=record
               nama,nim,kelas:string;
               end;
var m:array[1..41] of mahasiswa;
       j,i:integer;

begin
write('Jumlah mahasiswa yang mendaftar : ');readln(j);
clrscr;
for i:=1 to j do
begin
writeln('Mahasiswa ',i,':');
write('Nama       : ');readln(m[i].nama);
write('Nim        : ');readln(m[i].nim);
write('Kelas      : ');readln(m[i].kelas);
  writeln;
  writeln;
  end;
clrscr;
writeln('==================================');
writeln;
writeln('DATA MAHASISWA KOMPUTOK');
writeln;
writeln('==================================');
for i:=1 to j do
begin
writeln('Mahasiswa ',i,':');
writeln('Nama       : ',m[i].nama);
writeln('Nim        : ',m[i].nim);
writeln('Kelas      : ',m[i].kelas);
writeln;
writeln;
end;
readln;
end.



Tabel Ajaib

Fungsi : Membuat tabel angka yang apabila nilai tabel dalam satu baris, kolom, dan diagonal di jumlahkan hasilnya akan sama.
Hint: jangan terlalu heran, semua sudah ada rumusnya. Tinggal masukan angka-angka saja.
Screen Shot :



uses crt;
var a,b,c,d,w,x,y,z,i,j:integer;
tab:array[1..4,1..4] of integer;
procedure lukistabel;
{Prosedur untuk menampilkan tabel}
var c:string;
begin
for i:=1 to 4 do
begin
writeln;
writeln;
for j:=1 to 4 do
begin
begin
  if (tab[i,j]>9) or ((tab[i,j]<0) and (tab[i,j]>-10))  then
 c:='    '
else if (tab[i,j]<10) and (tab[i,j]>-1) then
 c:='      '
  else c:='  ';
  end;
if j=1 then
write(tab[i,j],c)
  else if j=2 then write(tab[i,j])
else write(c,tab[i,j]);
end;
end;
end;
{program utama}
Begin
{memasukan nilai}
write('a = ');readln(a);
write('b = ');readln(b);
write('c = ');readln(c);
write('d = ');readln(d);
write('w = ');readln(w);
write('x = ');readln(x);
write('y = ');readln(y);
write('z = ');readln(z);
writeln('memproses.......');
delay(500);
{rumusnya ini}
tab[1,1]:=a-w;
tab[1,2]:=c+w+y;
tab[1,3]:=b+x-y;
tab[1,4]:=d-x;
tab[2,1]:=d+w-z;
tab[2,2]:=b;
tab[2,3]:=c;
tab[2,4]:=a-w+z;
tab[3,1]:=c-x+z;
tab[3,2]:=a;
tab[3,3]:=d;
tab[3,4]:=b+x-z;
tab[4,1]:=b+x;
tab[4,2]:=d-w-y;
tab[4,3]:=a-x+y;
tab[4,4]:=c+w;
{pemanggilan prosedur lukis tabel}
lukistabel;
readln;
end.


Fibbonaci Generator


Fungsi: Kode untuk Menghasilkan deret fibbonaci
Hint : Fibbonaci adalah deret yang angka selanjutnya adalah penjumlahan 2 angka sebelumnya.
Misal : 1 1 2 3 5 8 13 21 ….dst
Screen Shot



uses crt;
var a:array[1..1000] of longint;
i,k:integer;
begin
clrscr;
write('Input banyaknya fibbonaci: ');readln(i);

{fibbonacigenerator}
a[1]:=1;
a[2]:=1;
for k:=2 to i do
begin
a[k+1]:=a[k]+a[k-1];
end;
writeln;
writeln;

{menulis fibbonaci}
for k:=1 to i do
begin
write(a[k],' ');
end;
writeln;
readln;
end.



Iterasi
Nah, ini bagian perulangan. Tidak lebih rumit dari array, namun tidak sesederhana di sub bab fungsi dan prosedur.

Angka
Fungsi: Tak ada fungsi khusus, hanya menampilkan pola-pola angka saja…
Hint : Begitu jalan, langsung masukan angka saja, Jangan masukan angka terlalu kecil atau besar.
Screen Shot



uses crt;
var inp,i,a,t,r:integer;
begin
readln(inp);
t:=inp;
for i:=1 to inp do
  begin
for a:=1 to inp do
  write(a-t);
  writeln;
t:=t-1;
end;
readln;
end.



Jumlah Pangkat

Fungsi:  untuk menghasilkan deret pangkat, misal : 1, 4, 9, 16, 25 dst dan menjumlahkannya
Hint : Masukan jumlah deret pangkat yang akan ditampilkan untuk di jumlah…
Screen Shot



uses crt;
var k,jum:double;
i,n:longint;
begin
clrscr;
readln(n);
jum:=0;
for i:=1 to n do
begin
k:=sqr(i);
write(k:0:0);
  if i<>n then
write('+');
jum:=jum+k;
end;
write('=',jum:0:0);
readln;
end.


Tebak Angka

Fungsi:  Permainan Tebak angka, masukan angka rahasia dan suruh teman untuk menebaknya
Hint :  Permainan ini tidak akan asik bila dilakukan sendirian.
Screen Shot



uses crt;
var a,teb,c,d,rhs:integer;
begin
Write('Bilangan Rahasia : ');readln(rhs);
clrscr;
repeat
write('masukan Tebakan anda : ');readln(teb);
if (teb<>rhs) and (teb>rhs) then
writeln('Bilangan terlalu besar!')
else if (teb<>rhs) and (teb
writeln('bilangan terlalu kecil');
until (teb=rhs);
writeln('Tebakan Anda Benar!!!!, selamat!!!!');
readln;
end.

Z
Fungsi:  Melukis huruf Z dengan karakter ‘*’ sebesar jumlah perulangan yang di inputkan
Hint : Masukan angka untuk menentukan besar huruf Z
Screen Shot



uses crt;
var n,i,a:integer;
begin
readln(n);
for i:=1 to n do
begin
for a:=1 to n do
begin
  if (i=1) or (i=n) then
   write('#')
  else if (i<>1) and (i<>n) then
   begin
   if a+i=n then
     write('#')
     else
   write(' ');
   end;
     end;
     writeln;
     end;
readln;
end.





Program Pencari Pembagi

Program yang mungkin terlihat paling ribet, tapi sebenarnya alurnya sederhana. Berungsi untuk menampilkan pembagi dan hasil bagi bilangan bulat yang di masukan. Selain itu, disini juga bisa digunakan untuk menentukan bilangan mana yang prima atau bukan. Sebelumnya program ini sudah pernah di publish di artikel ini, namun saya tidak tampilkan source kodenya. Silahkan bila ingin langsung mencoba bisa langsung kesana.
Sebenarnya ada cacat di program ini, yaitu ada 2 perulangan disini. Yang satu untuk menentukan bilangan prima,  satunya lagi untuk menentukan pembagi. Sebenarnya 2 perulangan itu dapat dipangkas menjadi satu saja. Sehingga 2 perulangan menjadi tidak efisien. Kenapa harus 2?
Sejarahnya begini, awalnya saya menulis program ini iseng-iseng hanya untuk mencari yang mana bilangan prima. Lalu saya kembangkan lagi menjadi bisa menuliskan daftar bilangan pembagi, waktu itu, daripada repot mengedit perulangan untuk menentukan bilangan prima yang sudah mapan, saya membuat perulangan baru. Dan akhirnya program ini punya 2 perulangan yang strukturnya hampir mirip.
Tapi nampaknya tidak masalah, toh selisih waktu kalkulasinya hanya beberapa milidetik, bahkan untuk bilangan yang mencapai ratusan juta sekalipun. Mau edit lagi, rasanya malas……Berikut kodenya…….:
Hint: Sebelum di compile, buat dulu file bernama output.txt di folder yang sama dengan source code pembagi.



program pembagi;
uses crt;
var x,y,q,w,z,e,f,g:longint;
    l,a:string;
    out:text;
label k;

{prosedur untuk sekedar  merapikan hasil output}

procedure rapikan(s:longint;var t:string);
begin
if s<10 then
 t:='          '
 else if (s>9) and (s<100) then
 t:='         '
 else if (s>99) and (s<1000) then
 t:='        '
 else if (s>999) and (s<10000) then
 t:='       '
 else if (s>9999) and (s<100000) then
 t:='      '
 else if (s>99999) and (s<1000000) then
 t:='     '
 else if (s>999999) and (s<10000000) then
 t:='    '
 else if (s>9999999) and (s<100000000) then
 t:='   '
 else if (s>99999999) and (s<1000000000) then
 t:='  '
 else if (s>999999999) and (s<1000000000) then
 t:=' '
 else t:=' ';
end;

{program utama}
begin
textbackground(blue);
textcolor(Yellow);
clrscr;
assign(out,'output.txt');
append(out);
 gotoxy(3,1);writeln('+______________________________________________________+');
 gotoxy(3,2);writeln('|Copyright@2009, Xenovon, http://komputok.blogspot.com |');
 gotoxy(3,3);Writeln('+------------------------------------------------------+');
 writeln;
 writeln;
 gotoxy(3,5);writeln('Hint: Masukan angka 2 untuk keluar');
 gotoxy(3,6);writeln('      hasil juga dioutputkan ke output.txt');
 writeln;
 writeln;
 gotoxy(15,9);writeln('----[MENENTUKAN PEMBAGI SUATU BILANGAN BULAT]------');
 writeln;
 writeln;


{menuliskan ke output.txt}
 writeln(out);
 writeln(out);
 writeln(out);
 writeln(out,'+______________________________________________________+');
 writeln(out,'|Copyright@2009, Xenovon, http://komputok.blogspot.com |');
 Writeln(out,'+------------------------------------------------------+');
 writeln(out);
 writeln(out);
 writeln(out);
 writeln(out,'----[MENENTUKAN PEMBAGI SUATU BILANGAN BULAT]------');
 writeln(out);
 begin
{input bilangan yang akan di cari}
 k:
 write('masukan bilangan yang akan di cek : ');readln(x);writeln;

{error handling}
 if x<2 then goto k else

{pemeriksaan kondisi untuk keluar program, yaitu dengan menginput angka 2}
 if x=2 then
   begin
    writeln('2 adalah bilangan prima');
    writeln;
    write('Mau keluar?(y/x)');readln(l);
    writeln;
      if l='y' then exit else goto k;
   end;

{Menentukan apakah bilangan prima atau bukan}
 begin
  y:=1;
  repeat
   y:=y+1;
   q:=x mod y;
  until  (q=0);
 end;
if y=x then
 begin
  writeln(x,' adalah bilangan prima');writeln;
 writeln(out,x,' adalah bilangan prima');writeln(out);
 end
else
begin
     {apabila bukan prima, maka program menentukan pembagi yang mungkin}
 writeln('Pembagi dari ',x,': ');
 writeln('--------------------');
 writeln(out,'Pembagi dari ',x,': ');
 writeln(out,'--------------------');
 writeln(out);
 w:=1;
 repeat
  w:=w+1;
  e:=x mod w;
  if e=0 then
   begin
           {menuliskan pembagi & hasil bagi ke konsole dan ke output.txt}
   g:=x div w;
   rapikan(w,a);
   writeln(w,a,'--> ',x,'/',w,'= ',g);
   writeln(out,w,a,'--> ',x,'/',w,'= ',g);
   end;
 until  (w=x);
 writeln;
 writeln(out);
end;
goto k;
end;
close(out);
end.