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/
Sabtu, 19 November 2011
Senin, 14 November 2011
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:
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:
Langganan:
Postingan (Atom)