Fungsi-fungsi Komunikasi :

1. Kontrol
   

   Ketika karyawan diwajibkan untuk mengomunikasikan keluhan yang terkait dengan pekerjaan kepada atasan langsung, untuk mengikuti deskripsi pekerja, untuk mematuhi segala kebijakan perusahaan.
   

2. Motivasi
   

   Komunikasi menjaga motivasi dengan cara menjelaskan kepada para karyawan mengenai apa yang harus dilakukan, seberapa baik pekerjaan mereka, bila hasil kurang baik, apa yang harus dilakukan karyawan.
   

3. Ekspresi Emosional
   

   Melalui komunikasi, para pekerja dapat menunjukkan rasa frustrasi / puas mereka, dan komunikasi menyediakan jalan keluar bagi ekspresi emosional tersebut.
   

4. Informasi
   

   Komunikasi memberikan informasi yang dibutuhkan oleh individu dan kelompok untuk mengambil keputusan dan mengevaluasi pilihan-pilihan alternatif yang ada.
   

Arah Komunikasi :

1. Ke Bawah
   

   Komunikasi yang mengalir dari satu tingkatan ke tingkatan yang lebih rendah (para manajer berkomunikasi dengan karyawannya) dalam suatu organisasi.
   

2. Ke Atas
   

   Komunikasi mengalir menuju tingkatan yang lebih tinggi (karyawan berkomunikasi dengan manajernya) dalam suatu organisasi.
   

3. Lateral
   

   Komunikasi yang terjadi antaranggota kerja kepada tingkatan yang sama / horizontal (manajer dengan manajer, karyawan dengan karyawan).
   

Komunikasi Antarpersonal

1. Komunikasi Lisan
   
2. Komunikasi Tertulis
   
3. Komunikasi Nonverbal (gerakan / bahasa tubuh, mengedipkan mata, mengangkat bahu, dan lain-lain).
   

Hambatan Bagi Komunikasi yang Efektif

1. Penyaringan / filtering
   

   Faktor—faktor seperti rasa takut untuk menyampaikan berita buruk, keinginan untuk menyenangkan hati atasan terkait dengan apa yang menurut mereka ingin didengar oleh atasan.
   

2. Persepsi Selektif
   

   Dalam proses komunikasi, penerima secara selektif melihat dan mendengar berdasarkan kebutuhan,motivasi, pengalaman, latar belakang dan karakteristik-karakteristik pribadi mereka yang lain.
   

3. Kelebihan Informasi
   

   Bila seseorang memiliki banyak informasi dari apa yang mereka butuhkan, maka cenderung akan membuangnya, mengabaikan dan melupakan informasi tersebut.
   

4. Emosi
   

   Apa yang telah dirasakan oleh penerima pesan akan mempengaruhi cara ia menerjemahkannya. Pesan yang sama diterima pada saat Anda marah / bingung tak jarang diterjemahkan secara berbeda ketika Anda sedang bahagia.
   

5. Bahasa
   

   Kata-kata bisa memiliki arti yang berbeda untuk orang yang berbeda umur, pendidikan, dan latar belakang kultural.
   

Menurut HOUSE :

1. Pemimpin yang Direktif
   

• Pemimpin yang memberitahu kepada para pengikut mengenai apa yang diharapkan dari mereka, menentukan pekerjaan yang harus diselesaikan, memberikan bimbingan khusus terkait dengan cara menyelesaikan berbagai tugas tersebut.
  

  
   

1. Pemimpin yang Suportif
   

• Pemimpin yang ramah dan memperhatikan kebutuhan para pengikutnya.
  

  
   

1. Pemimpin yang Partisipatif
   

• Pemimpin yang melakukan perundingan dengan para pengikutnya dan menggunakan saran-saran mereka sebelum mengambil suatu keputusan.
  

  
   

1. Pemimpin yang Berorientasi Pencapaian
   

• Pemimpin yang menetapkan tujuan-tujuan dan mengharapkan para pengikutnya untuk bekerja dengan sangat baik.

uses crt;
var nama,nim:array [1..10] of string[15];
tgs,quiz,uts,uas:array [1..10] of integer;
na:array [1..10] of real;
idx:array [1..10] of char;
menu,i,j,y,data,n:byte;

procedure masuk;
var q,b,r,p,a,c : byte;
np,kk:string[10];

begin
textbackground(red);
textcolor(white);
clrscr;
q:=65; b:=25; r:=1; p:=20;
while r<=44 do
begin
r:=r+1;
q:=q-1;
p:=p+1;
if (r mod 2 = 0) then
begin
gotoxy(p,7);
write('Û');
delay(75);
end
else if (r mod 2 = 1) then
begin
gotoxy(q,17);
write('Û');
delay(75);
end;
end;
a:=0; b:=18; c:=7;
while a<=9 do
begin
a:=a+1;
b:=b-1;
c:=c+1;
if (c mod 2 = 0) then
begin
gotoxy(20,c);
write('Û');
delay(75);
end
else if (c mod 2 = 1) then
begin
gotoxy(64,b);
write('Û');
delay(75);
end;
end;
textcolor(lightgreen+blink);
gotoxy(36,12);write('SELAMAT DATANG'); delay(1000);
textcolor(lightblue);
gotoxy(33,20);write('Nama : Moh. Habibi');
gotoxy(33,22);write('NIM : 10508656');
gotoxy(33,24);write('Kelas : MI - 14');
delay(2000);
repeat
clrscr; textcolor(blue);
gotoxy(20,9); writeln('SILAHKAN MASUKKAN NAMA PENGGUNA DAN KATA KUNCI');
textcolor(lightgreen);
gotoxy(30,12);write('Nama Pengguna : '); readln(np);
gotoxy(30,14);write('Kata Kunci : '); textcolor(red); readln(kk);
until (kk)='habibi';
end;

procedure tambah;
begin
textbackground(red);
textcolor(white);
clrscr;
gotoxy(20,2) ;writeln('ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄĶ');
gotoxy(20,3); writeln('º Banyak Data Yang Akan Dimasukkan ³ º');
gotoxy(20,4); writeln('ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄĶ');
gotoxy(57,3); readln(n);
for i:=data to (n+data-1) do
begin
clrscr;
gotoxy(35,7); write('Data ke-',i);
gotoxy(31,9); write('Nama : '); readln(nama[i]);
gotoxy(31,11); write('NIM : '); readln(nim[i]);
gotoxy(31,14); write('Nilai Tugas : ');readln(tgs[i]);
gotoxy(31,16); write('Nilai Quiz : '); readln(quiz[i]);
gotoxy(31,18); write('Nilai UTS : '); readln(uts[i]);
gotoxy(31,20); write('Nilai UAS : '); readln(uas[i]);
na[i]:= (10/100*tgs[i])+(20/100*quiz[i])+(30/100*uts[i])+(40/100*uas[i]);
if (na[i]>85) and (na[i]<=100) then
idx[i]:='A'
else if (na[i]>70) and (na[i]<=85) then
idx[i]:='B'
else if (na[i]>60) and (na[i]<=70) then
idx[i]:='C'
else if (na[i]>50) and (na[i]<=60) then
idx[i]:='D'
else if (na[i]<=50) then
idx[i]:='E';
end;
data := i+1;
end;

procedure lihat;
begin
clrscr;
gotoxy(31,2); write('DAFTAR NILAI MAHASISWA');
gotoxy(1,4); writeln('ÕÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍ͸');
gotoxy(1,5); writeln('³ ³ ³ ³ N I L A I ³ ³');
gotoxy(1,6); writeln('³ NO ³ N A M A ³ N I M ÃÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÄÄ´ INDEX ³');
gotoxy(1,7); writeln('³ ³ ³ ³ TUGAS ³ QUIZ ³ UTS ³ UAS ³ AKHIR ³ ³');
gotoxy(1,8); writeln('ÆÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍØÍÍÍÍÍÍØÍÍÍÍÍØÍÍÍÍÍØÍÍÍÍÍÍÍØÍÍÍÍÍÍ͵');
y:= 8;
for i:=1 to data-1 do
begin
y:= y+1;
gotoxy(1,y); write('³ ',i:2,' ³ ',nama[i]:15,' ³ ',nim[i]:9,' ³ ',tgs[i]:3,' ³ ',quiz[i]:3,
' ³ ',uts[i]:3,' ³ ',uas[i]:3);
writeln(' ³ ',na[i]:5:2,' ³ ',idx[i],' ³');
end;
gotoxy(1,y+1);writeln('ÔÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÏÍÍÍÍÍÍÏÍÍÍÍÍÏÍÍÍÍÍÏÍÍÍÍÍÍÍÏÍÍÍÍÍÍ;');
readln;
end;

procedure urut;
var plh:byte;
temp1,temp2:string;
temp3:real;
temp4,temp5,temp6,temp7:integer;
temp8:char;
begin
clrscr;
if n=0 then
begin
gotoxy(33,10); writeln('Data Masih Kosong');
gotoxy(27,12); writeln('Masukkan Data Terlebih Dahulu');
gotoxy(39,14); write(' ');
gotoxy(27,23); textcolor(yellow);textbackground(black); write('[ Tekan ENTER Untuk Ke MENU ]');
readln;
end else
begin
gotoxy(27,3); writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(27,4); writeln('º º');
gotoxy(27,5); writeln('º URUTKAN DATA BERDASARKAN º');
gotoxy(27,6); writeln('º º');
gotoxy(27,7); writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
gotoxy(27,8); writeln('º º');
gotoxy(27,9); writeln('º 1. Nama Mahasiswa º');
gotoxy(27,10); writeln('º º');
gotoxy(27,11); writeln('º 2. NIM Mahasiswa º');
gotoxy(27,12); writeln('º º');
gotoxy(27,13); writeln('º 3. Nilai Akhir º');
gotoxy(27,14); writeln('º º');
gotoxy(27,15); writeln('ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄĶ');
gotoxy(27,16); writeln('º P I L I H ³ º');
gotoxy(27,17); writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍͼ');
gotoxy(50,16); readln(plh);
if plh=1 then
begin
for i:=1 to data-2 do
for j:=i+1 to data-1 do
if (nama[i]) > (nama[j]) then
begin
temp1:=nama[i];
temp2:=nim[i];
temp3:=na[i];
temp4:=tgs[i];
temp5:=quiz[i];
temp6:=uts[i];
temp7:=uas[i];
temp8:=idx[i];
nama[i]:=nama[j];
nim[i]:=nim[j];
na[i]:=na[j];
tgs[i]:=tgs[j];
quiz[i]:=quiz[j];
uts[i]:=uts[j];
uas[i]:=uas[j];
idx[i]:=idx[j];
nama[j]:=temp1;
nim[j]:=temp2;
na[j]:=temp3;
tgs[j]:=temp4;
quiz[j]:=temp5;
uts[j]:=temp6;
uas[j]:=temp7;
idx[j]:=temp8;
end;
end else
if plh=2 then
begin
for i:=1 to data-2 do
for j:=i+1 to data-1 do
if (nim[i]) > (nim[j]) then
begin
temp1:=nama[i];
temp2:=nim[i];
temp3:=na[i];
temp4:=tgs[i];
temp5:=quiz[i];
temp6:=uts[i];
temp7:=uas[i];
temp8:=idx[i];
nama[i]:=nama[j];
nim[i]:=nim[j];
na[i]:=na[j];
tgs[i]:=tgs[j];
quiz[i]:=quiz[j];
uts[i]:=uts[j];
uas[i]:=uas[j];
idx[i]:=idx[j];
nama[j]:=temp1;
nim[j]:=temp2;
na[j]:=temp3;
tgs[j]:=temp4;
quiz[j]:=temp5;
uts[j]:=temp6;
uas[j]:=temp7;
idx[j]:=temp8;
end;
end else
if plh=3 then
begin
for i:=1 to data-2 do
for j:=i+1 to data-1 do
if (na[i]) < (na[j]) then
begin
temp1:=nama[i];
temp2:=nim[i];
temp3:=na[i];
temp4:=tgs[i];
temp5:=quiz[i];
temp6:=uts[i];
temp7:=uas[i];
temp8:=idx[i];
nama[i]:=nama[j];
nim[i]:=nim[j];
na[i]:=na[j];
tgs[i]:=tgs[j];
quiz[i]:=quiz[j];
uts[i]:=uts[j];
uas[i]:=uas[j];
idx[i]:=idx[j];
nama[j]:=temp1;
nim[j]:=temp2;
na[j]:=temp3;
tgs[j]:=temp4;
quiz[j]:=temp5;
uts[j]:=temp6;
uas[j]:=temp7;
idx[j]:=temp8;
end;
end;
gotoxy(3,19);
writeln('±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±');
for i:=1 to 76 do
begin
delay(70);
gotoxy(2+i,19);write('Û');
end;
gotoxy(30,21); textcolor(blue+blink); writeln('DATA TELAH DIURUTKAN !!');
gotoxy(27,23); textcolor(yellow);textbackground(black); write('[ Tekan ENTER Untuk Ke MENU ]');
readln;
end;
end;

procedure keluar;
var q,b,r,p,a,c : byte;
begin
textbackground(red);
textcolor(white);
clrscr;
q:=65; b:=25; r:=1; p:=20;
while r<=44 do
begin
r:=r+1;
q:=q-1;
p:=p+1;
if (r mod 2 = 0) then
begin
gotoxy(p,7);
write('Û');
delay(75);
end
else if (r mod 2 = 1) then
begin
gotoxy(q,17);
write('Û');
delay(75);
end;
end;
a:=0; b:=18; c:=7;
while a<=9 do
begin
a:=a+1;
b:=b-1;
c:=c+1;
if (c mod 2 = 0) then
begin
gotoxy(20,c);
write('Û');
delay(75);
end
else if (c mod 2 = 1) then
begin
gotoxy(64,b);
write('Û');
delay(75);
end;
end;
textcolor(lightgreen);
gotoxy(33,10);write('T E R I M A K A S I H');
gotoxy(33,12);write(' D A N');
gotoxy(33,14);write('S A M P A I J U M P A');
delay(2000);
end;

{Program Utama}
begin
masuk;
data := 1;
repeat
textbackground(red);
textcolor(white);
clrscr;
gotoxy(30,2); writeln('DATA NILAI MAHASISWA');
writeln;
gotoxy(27,6); writeln('ÛßßßßßßßßßßßßßßßßßßßßßßßßÛ');
gotoxy(27,7); writeln(' Û Û');
textcolor(yellow+blink); gotoxy(35,7); writeln('M E N U');
textcolor(white);
gotoxy(27,8); writeln('ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ');
gotoxy(27,9); writeln(' Û Û');
gotoxy(27,10);writeln('Û 1. Tambah Data Û ');
gotoxy(27,11);writeln(' Û Û');
gotoxy(27,12);writeln('Û 2. Lihat Data Û ');
gotoxy(27,13);writeln(' Û Û');
gotoxy(27,14);writeln('Û 3. Urutkan Data Û ');
gotoxy(27,15);writeln(' Û Û');
gotoxy(27,16);writeln('Û 4. Keluar Û ');
gotoxy(27,17);writeln('ºÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛº');
gotoxy(27,18); writeln('º º');
gotoxy(27,19); writeln('ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄĶ');
gotoxy(27,20); writeln('º P I L I H ³ º');
gotoxy(27,21); writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍͼ');
gotoxy(49,20); readln(menu);

if menu=1 then
tambah
else if menu=2 then
lihat
else if menu=3 then
urut;
until menu=4;
keluar;
end.

uses crt;
var p,d1,d2,h,t,l,luas,kel:real;
plh,plh2:byte;
un,ps:string[10];
label 1,2,3,4;
begin
repeat;
clrscr; textcolor(2);
gotoxy(30,12); write('Username : '); readln(un);
gotoxy(30,13); write('Password : '); textcolor(black); readln(ps);

until (ps)='habibi';
clrscr;
textcolor(2);
gotoxy(30,9); writeln('==========================');
gotoxy(30,10); writeln('= SELAMAT DATANG =');
gotoxy(30,11); writeln('= DI PROGRAM =');
gotoxy(30,12); writeln('= BANGUN DATAR =');
gotoxy(30,13); writeln('==========================');
gotoxy(34,19); writeln('Nama : Moh. Habibi');
gotoxy(34,20); writeln('NIM : 10508656');
gotoxy(30,24); textcolor(blink); writeln('[ Tekan ENTER Untuk Masuk ]');
readln;
if keypressed=true then goto 1;
textcolor(2);
1: clrscr;
gotoxy(30,2); writeln('MENGHITUNG BANGUN DATAR');
gotoxy(31,3); writeln('( KELILING DAN LUAS )');
gotoxy(1,5); writeln('================================================================================');
gotoxy(34,8); writeln('DAFTAR PILIHAN');
gotoxy(33,9); writeln('================');
gotoxy(23,11); writeln('1. Bujur Sangkar 5. Belah Ketupat');
gotoxy(23,13); writeln('2. Persegi Panjang 6. Layang-Layang');
gotoxy(23,15); writeln('3. Segitiga 7. Jajaran Genjang');
gotoxy(23,17); writeln('4. Lingkaran 8. Trapesium');
gotoxy(1,22); writeln('================================================================================');
gotoxy(30,24); write('PILIH SALAH SATU : '); readln(plh);

2: if (plh)=1 then
begin
clrscr;
gotoxy(35,2); writeln('BUJUR SANGKAR');
gotoxy(1,3); writeln('================================================================================');
gotoxy(27,5); write('Masukkan Panjang Sisi (cm) = '); readln(p);
kel:=4*p;
luas:=p*p;
end else
if (plh)=2 then
begin
clrscr;
gotoxy(35,2); writeln('PERSEGI PANJANG');
gotoxy(1,3); writeln('================================================================================');
gotoxy(27,5); write('Masukkan Panjang Sisi (cm) = '); readln(p);
gotoxy(27,6); write('Masukkan Lebar Sisi (cm) = '); readln(l);
kel:=2*(p+l);
luas:=p*l;
end else
if (plh)=3 then
begin
clrscr;
gotoxy(34,2); writeln('S E G I T I G A');
gotoxy(1,3); writeln('================================================================================');
gotoxy(27,5); write('Masukkan Alas (cm) = '); readln(p);
gotoxy(27,6); write('Masukkan Tinggi (cm) = '); readln(t);
gotoxy(27,7); write('Masukkan Sisi Miring (cm) = '); readln(h);
kel:=p+t+h;
luas:=0.5*p*t;
end else
if (plh)=4 then
begin
clrscr;
gotoxy(33,2); writeln('L I N G K A R A N');
gotoxy(1,3); writeln('================================================================================');
gotoxy(26,5); write('Masukkan Panjang Jari-Jari (cm) = '); readln(p);
kel:=pi*(p+p);
luas:=pi*(p*p);
end else
if (plh)=5 then
begin
clrscr;
gotoxy(34,2); writeln('BELAH KETUPAT');
gotoxy(1,3); writeln('================================================================================');
gotoxy(25,5); write('Masukkan Panjang Sisi (cm) = '); readln(h);
gotoxy(25,6); write('Masukkan Panjang Diagonal 1 (cm) = '); readln(d1);
gotoxy(25,7); write('Masukkan Panjang Diagonal 2 (cm) = '); readln(d2);
kel:=4*h;
luas:=0.5*d1*d2;
end else
if (plh)=6 then
begin
clrscr;
gotoxy(34,2); writeln('LAYANG - LAYANG');
gotoxy(1,3); writeln('================================================================================');
gotoxy(25,5); write('Masukkan Sisi Panjang (cm) = '); readln(p);
gotoxy(25,6); write('Masukkan Sisi Pendek (cm) = '); readln(l);
gotoxy(25,7); write('Masukkan Panjang Diagonal 1 (cm) = '); readln(d1);
gotoxy(25,8); write('Masukkan Panjang Diagonal 2 (cm) = '); readln(d2);
kel:=2*(p+l);
luas:=0.5*d1*d2;
end else
if (plh)=7 then
begin
clrscr;
gotoxy(34,2); writeln('JAJARAN GENJANG');
gotoxy(1,3); writeln('================================================================================');
gotoxy(25,5); write('Masukkan Panjang Sisi Atas (cm) = '); readln(p);
gotoxy(25,6); write('Masukkan Panjang Sisi Bawah (cm) = '); readln(l);
gotoxy(25,7); write('Masukkan Panjang Sisi Kanan (cm) = '); readln(d1);
gotoxy(25,8); write('Masukkan Panjang Sisi Kiri (cm) = '); readln(d2);
gotoxy(25,9); write('Masukkan Tinggi = '); readln(t);
kel:=p+l+d1+d2;
luas:=l*t;
end else
if (plh)=8 then
begin
clrscr;
gotoxy(33,2); writeln('T R A P E S I U M');
gotoxy(1,3); writeln('================================================================================');
gotoxy(25,5); write('Masukkan Panjang Sisi Atas (cm) = '); readln(p);
gotoxy(25,6); write('Masukkan Panjang Sisi Bawah (cm) = '); readln(l);
gotoxy(25,7); write('Masukkan Panjang Sisi Kanan (cm) = '); readln(d1);
gotoxy(25,8); write('Masukkan Panjang Sisi Kiri (cm) = '); readln(d2);
gotoxy(25,9); write('Masukkan Tinggi = '); readln(t);
kel:=p+l+d1+d2;
luas:=(p+l)*t*0.5;
end else
begin
clrscr;
gotoxy(30,13); write('PILIHAN ANDA TIDAK ADA !');
readln;
goto 1;
end;
gotoxy(33,11); writeln('HASIL PERHITUNGAN');
gotoxy(32,12); writeln('===================');
gotoxy(32,14); writeln('Keliling = ',kel:6:2,' cm');
gotoxy(32,15); writeln('Luas = ',luas:6:2,' cm');

4: gotoxy(38,18); writeln('PILIHAN');
gotoxy(37,19); writeln('=========');
gotoxy(19,21); writeln('1. Menu Utama');
gotoxy(35,21); writeln('2. Hitung Lagi');
gotoxy(55,21); writeln('3. Keluar');
gotoxy(1,23); writeln('================================================================================');
gotoxy(37,24); write('Pilih : '); readln(plh2);
if (plh2)=1 then goto 1 else
if (plh2)=2 then goto 2 else
if (plh2)=3 then goto 3 else
clrscr;
gotoxy(30,13); write('PILIHAN ANDA TIDAK ADA !');
readln;
clrscr;
goto 4;

3: clrscr;
gotoxy(32,8); writeln('=======================');
gotoxy(32,9); writeln('= TERIMA KASIH =');
gotoxy(32,10); writeln('= TELAH MENGGUNAKAN =');
gotoxy(32,11); writeln('= PROGRAM =');
gotoxy(32,12); writeln('= BANGUN DATAR =');
gotoxy(32,13); writeln('=======================');

gotoxy(30,24); textcolor(blink); write('[ Tekan ENTER Untuk Keluar ]');
readln;
end.