KOMUNIKASI

Ditulis oleh Abby

Fungsi-fungsi Komunikasi :

Kontrol
Ketika karyawan diwajibkan untuk mengomunikasikan keluhan yang terkait dengan pekerjaan kepada atasan langsung, untuk mengikuti deskripsi pekerja, untuk mematuhi segala kebijakan perusahaan.
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.
Ekspresi Emosional
Melalui komunikasi, para pekerja dapat menunjukkan rasa frustrasi / puas mereka, dan komunikasi menyediakan jalan keluar bagi ekspresi emosional tersebut.
Informasi
Komunikasi memberikan informasi yang dibutuhkan oleh individu dan kelompok untuk mengambil keputusan dan mengevaluasi pilihan-pilihan alternatif yang ada.

Arah Komunikasi :

Ke Bawah
Komunikasi yang mengalir dari satu tingkatan ke tingkatan yang lebih rendah (para manajer berkomunikasi dengan karyawannya) dalam suatu organisasi.
Ke Atas
Komunikasi mengalir menuju tingkatan yang lebih tinggi (karyawan berkomunikasi dengan manajernya) dalam suatu organisasi.
Lateral
Komunikasi yang terjadi antaranggota kerja kepada tingkatan yang sama / horizontal (manajer dengan manajer, karyawan dengan karyawan).

Komunikasi Antarpersonal

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

Hambatan Bagi Komunikasi yang Efektif

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.
Persepsi Selektif
Dalam proses komunikasi, penerima secara selektif melihat dan mendengar berdasarkan kebutuhan,motivasi, pengalaman, latar belakang dan karakteristik-karakteristik pribadi mereka yang lain.
Kelebihan Informasi
Bila seseorang memiliki banyak informasi dari apa yang mereka butuhkan, maka cenderung akan membuangnya, mengabaikan dan melupakan informasi tersebut.
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.
Bahasa
Kata-kata bisa memiliki arti yang berbeda untuk orang yang berbeda umur, pendidikan, dan latar belakang kultural.

Lanjutannya...

0 komentar

PERILAKU PEMIMPIN

Ditulis oleh Abby

Menurut HOUSE :

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.

Pemimpin yang Suportif

Pemimpin yang ramah dan memperhatikan kebutuhan para pengikutnya.

Pemimpin yang Partisipatif

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

Pemimpin yang Berorientasi Pencapaian

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

Lanjutannya...

0 komentar

PENGURUTAN (Program Keduaku) :-)

Ditulis oleh Abby

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.

Lanjutannya...

Filed under Tugas Pascal

0 komentar

BANGUN DATAR [IF-ELSE] (Program Pertamaku) :-)

Ditulis oleh Abby

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.

Lanjutannya...

Filed under Tugas Pascal

0 komentar

Saat Nilai Kuliah Buruk....

Ditulis oleh Abby

Nilai buruk bukanlah suatu kebetulan, melainkan suatu hasil dari kesalahan yang kita buat pada saat proses perkuliahan. Ingat!! bukan hanya kesalahan pada saat ujian (baik UTS maupun UAS) saja, tetapi bersumber dari proses belajar sebelumnya. tapi, seperti para orang bijak bilang, kegagalan adalah bagian dari keberhasilan, dan pengalaman adalah guru yang terbaik.

Jika kita mendapatkan nilai yang jelek, terus langsung mencap bahwa diri kita bodoh dan kehilangan semangat belajar, itu adalah hal yang sangat wajar, tapi perlu diingat, jangan berlarut-larut dalam kesedihan dan jangan sampai kehilangan semangat untuk belajar dan berjuang lagi. Nilai buruk saat ini bukan berarti nilai buruk untuk waktu berikutnya.

Belajarlah dari kesalahan kita dalam proses belajar ketika kuliah. Tanyalah pada diri kita, kenapa kita bisa mendapatkan nilai yang jelek tersebut. Lalu temukan jawabannya. Setelah menemukan jawaban yang tepat, segeralah perbaiki kesalahan kita agar di masa mendatang tidak terulang kembali dan jangan sesali.

Tinggalkan cara belajar kita yang membuat nilai kita buruk dan jangan terlalu sering bermain.

Sumber : Sukses Jadi Mahasiswa

Lanjutannya...