Sabtu, 19 November 2011

http://id.wikipedia.org/wiki/Konflik
http://markusadiwiarso.wordpress.com/2011/09/23/konsep-dasar-konflik-organisasi/
http://raipeza24.blogspot.com/2010/11/makalah-definisi-teori-penyebab-akibat.html
http://yoszuaccalytt.blogdetik.com/2010/09/23/7-penyebab-utama-konflik-di-dunia/

Senin, 14 November 2011

http://eavhany08.blogspot.com/2009/08/bab-ii-tinjauan-teori.html

http://www.scribd.com/doc/57517658/173/BAB-II-TINJAUAN-TEORI

Rabu, 09 November 2011

Contoh Program Sequential dengan menggunakan Bahasa Pemrograman PASCAL.

program sequential_searh2_boolean;
uses crt;
const nmax=100;
type tabinteger=array[1..nmax] of integer;
var
   tabint:tabinteger;
   jml_data,data,indeks:integer;
   found:boolean;
   cari:char;
   procedure inputdata(n:integer; var t:tabinteger);
   var
   i:integer;
   begin
     for i:=1 to n do
     begin
       write ('nilai ke - ',i,' : ');
       readln(t[i]);
     end;
   end;
   procedure seqsearch(t :tabinteger; n,x :integer;var idx:integer);
   var i:integer;
   begin
     i:=1;
     found :=false;
     while (i<=n) and (not found) do
     begin
       if t[i]=x then
         found:=true
       else
         i:=i+1;
   end;
       if found then
       idx:=i
       else
       idx:=0;
       end;
begin
  clrscr;
  write("banyaknya integer : ");readln(jml_data);
  inputdata(jml_data,tabint);
  repeat
    write("data yang akan dicari : ");readln(data);
    seqsearch(tabint, jml_data,data,indeks);
    if indeks=0 then
      writeln("data tidak ditemukan")
    else
      writeln("data ditenukan pada posisi ke-",indeks);
   write("cari data lagi (y/t) ? ");readln(cari);
   until(cari='t')or (cari='T');
   readln;
end.

untuk Outputnya silakan lihat di bawah ini: