Syntax TPW Program Tes Kepribadian

Program TES_KEPRIBADIAN;
USES WINCRT;
var
angka1,angka2,angka3,angka4,angka5,angka6,angka7,angka8,
angka9,angka10,angka11,angka12,angka13,angka14,angka15,angka16,angka17,angka18,angka19,
angka20,angka21,angka22,angka23,angka24,angka25,angka26,angka27,angka28,angka29,
angka30,angka31,angka32,angka33,angka34,angka35,angka36,angka37,angka38,angka39,angka40,angka41,angka42,
angka43,angka44,angka45,angka46,angka47,angka48,angka49,angka50,angka51,
angka52,angka53,angka54,angka55,angka56,hasil1,hasil2,hasil3,hasil4,hasil5,hasil6,hasil7:integer;
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,a1,b1,c1,d1,e1,f1,g1,h1,i1,xxx:STRING[255];

BEGIN
repeat
clrscr;
a:=’CIRI: TIDAK SUKA KOMPROMI,BERKEMAUAN KERAS,JUJUR,BERANI BAYAR HARGA,SUKA MENDRAMATISIR’;
h:=’KELEMAHAN: KURANG TOLERANSI,SANGAT MUDAH MENGHAKIMI ORANG,SUKA LUPA MEMUJI,BERGUMUL DENGAN MASALAH’;
i:=’FAEDAH: TIDAK MAU BERKOMPROMI DENGAN HAL - HAL YANG NEGATIF’;
j:=’JALAN KELUAR: BELAJAR UNTUK SABAR TERHADAP ORANG LAIN DAN MENGERTI PERASAAN DAN KEADAAN ORANG LAIN’;
k:=’PROFESI YANG COCOK: PENGAWAS LAPANGAN, FILSUF.’;
b:=’CIRI: SENANG MELAYANI ORANG LAIN,SANGAT PEKA THD KEBUTUHAN ORANG LAIN, SUKA MENOLONG,TIDAK SUKA DIAM’;
l:=’KELEMAHAN: SUKA MENGKRITIK ORANG YANG TIDAK MAU MEMBANTU,GAMPANG KEHILANGAN PRIORITAS,SULIT MENJADI PEMIMPIN’;
m:=’FAEDAH: MAU UNTUK MELAKUKAN HAL - HAL YANG TIDAK DILIHAT OLEH ORANG LAIN,RINGAN TANGAN’;
n:=’CARA MENGEMBANGKAN DIRI: HARUS MENETAPKAN PRIORITAS,JGN MENILAI PENGHARGAAN ORANG LAIN,BELAJAR PERCAYA PADA ORANG LAIN’;
o:=’PROFESI YANG COCOK : SEKRETARIS,KOKI,AHLI BENGKEL,PENDEKORASI,AHLI PERPUSTAKAAN.’;
c:=’CIRI: SANGAT MAHIR DALAM PENGETAHUAN,PIKIRANNYA SELALU SISTEMATIS, SENANG MENELITI,SELALU MENILAI SESUATU’;
p:=’KELEMAHAN: CENDERUNG BERSIFAT TEORITIS DAN KURANG MENEKANKAN HAL - HAL YANG PRAKTIS,CENDERUNG LEGALISME (DOKTRIN)’;
q:=’FAEDAH: PUNYA STANDAR YANG BENAR DAN PASTI,PUNYA PENGERTIAN YANG DALAM DALAM KEBENARAN’;
r:=’CARA MENGEMBANGKAN DIRI: HARUS BELAJAR UNTUK MENGAMBIL KEPUTUSAN DENGAN CEPAT DAN TEPAT’;
s:=’PROFESI YANG COCOK: TRAINER,GURU,DOSEN.’;
d:=’CIRI: SENANG NGOMONG,SENANG MENDAMAIKAN ORANG LAIN,PERIANG,MUDAH BERGAUL,AKTIF,REAKSINYA SUKACITA’;
t:=’KELEMAHAN : BANYAK BICARA MAKA BANYAK KESALAHAN’;
u:=’FAEDAH: MEMILIKI PENDORONG UNTUK PERTUMBUHAN,SENANG PADA HAL - HAL YANG PRAKTIS’;
v:=’CARA MENGEMBANGKAN DIRI: BELAJAR UNTUK MEMBATASI DIRI DALAM BERBICARA’;
w:=’PROFESI YANG COCOK: KONSULTAN,NOTARIS,PENGACARA,MARKETING,KONSELOR.’;
e:=’CIRI: SENANG MEMBERI DLM BENTUK NYATA (MISAL UANG),PUNYA PRINSIP,MERASA HARTANYA ADALAH BARANG TITIPAN TUHAN’;
x:=’KELEMAHAN: CENDERUNG MAMAKSA ORANG LAIN UNTUK MEMBERI’;
y:=’FAEDAH: MENJADI PENDUKUNG DALAM PEMBIAYAAN TERTENTU’;
z:=’CARA MENGEMBANGKAN: PERLU LEBIH BANYAK TERLIBAT DALAM SUATU HAL, TIDAK HANYA MEMBERI SAJA’;
a1:=’PROFESI : BAGIAN HUMAS SUATU PERUSAHAAN.’;
f:=’CIRI: MEMILIKI MISI,BERKEMAMPUAN UTK MEREALISASIKAN VISINYA, SELALU MEMBUAT RENCANA (STRATEGI)’;
b1:=’KELEMAHAN: SUKA KECEWA APABILA ORANG LAIN MEMILIKI VISI YANG BERBEDA DENGAN DIRINYA’;
c1:=’FAEDAH: MAMPU UNTUK MENGATUR, MEMOTIVASI DAN MEMBANGUN ORANG LAIN UNTUK BEKERJA SAMA’;
d1:=’CARA MENGEMBANGKAN: BELAJAR UNTUK MENGHARGAI PENDAPAT ORANG LAIN YANG BERBEDA’;
e1:=’PROFESI YANG COCOK: KEPALA(SEKOLAH,DEPARTEMEN,KANTOR,PERUSAHAAN,DLL),PEMIMPIN RAPAT.’;
g:=’CIRI: PERHATIAN,BERANI MENYATAKAN KASIH SAYANG,MEMPUNYAI HATI YG LEMBUT,SUKA MEMBELA ORANG LAIN’;
f1:=’KELEMAHAN: SULIT MENGAMBIL KEPUTUSAN,CENDERUNG KOMPROMI DENGAN HAL - HAL YANG BURUK, SUKA SAKIT HATI,MEMAKAI PERASAAN’;
g1:=’FAEDAHNYA: DAPAT DIANDALKAN UNTUK MENOLONG ORANG LAIN’;
h1:=’CARA MENGEMBANGKAN: BELAJAR UNTUK TIDAK TERLALU MENGANDALKAN PERASAAN,BELAJAR UNTUK DAPAT TEGAS’;
i1:=’PROFESI YANG COCOK: GEMBALA, PEKERJA SOSIAL,SUSTER,AKTOR.’;
writeln(’ TES KEPRRIBADIAN’);
writeln(’ ————————————————’);
writeln(’ oleh : Adi Supriyadi NIM : 0809165′);
writeln;
writeln;
writeln;
writeln(’ Melalui tes ini, anda dapat menguji respon - respon yang anda alami’);
writeln(’ untuk dapat mengenal lebih tinggi karakteristik mana yang lebih mendalam’);
writeln(’ didalam diri anda, dan untuk saling melengkapi satu sama lain’);
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln(’ Tekan Untuk Memulai’);
readln;
clrscr;
writeln(’ SOAL - SOAL’);
writeln(’ ———————————————————–’);
writeln(’TATA CARA PENGISIAN TES KEPRIBADIAN’);
writeln(’1. Berilah nilai “0″ jika tidak pernah dialami’);
writeln(’2. Berilah nilai “1″ jika jarang dialami’);
writeln(’3. Berilah nilai “2″ jika kadang - kadang dialami’);
writeln(’4. Berilah nilai “3″ jika biasa dialami’);
writeln(’5. Berilah nilai “4″ jika kebanyakan dialami’);
writeln(’6. Berilah nilai “5″ jika selalu dialami’);
writeln(’7. Isilah dengan jujur supaya lewat hasil yang anda peroleh anda dapat’);
writeln(’ lebih mengendalikan diri anda sendiri’);
writeln;
writeln(’1. Dengan cepat & tepat sekali dapat mengetahui sesuatu yang baik atau yg jahat’);
write(’JAWAB :’);read(angka1);
writeln(’2. Cepat mengetahui kebutuhan orang lain dan tanggap memenuhi kebutuhan tesebut’);
write(’JAWAB :’);read(angka2);
writeln(’3. Menyampaikan kebenaran dengan cara logis dan sistematis’);
write(’JAWAB :’);read(angka3);
writeln(’4. Senang menolong orang lain untuk hidup berkemenangan (penuh sukacita)’);
write(’JAWAB :’);read(angka4);
writeln(’5. Dengan rela memberi uang, barang - barang, waktu dan perhatian’);
write(’JAWAB :’);read(angka5);
writeln(’6. Senang mengatur segala sesuatu yang menjadi tanggung jawab’);
write(’JAWAB :’);read(angka6);
writeln(’7. Memiliki kemampuan yang besar untuk menyatakan kasih’);
write(’JAWAB :’);read(angka7);clrscr;
writeln(’8. Menyatakan segala sesuatu benar atau salah dengan tegas’);
write(’JAWAB :’);read(angka8);
writeln(’9. Senang melakukan pekerjaan dengan keterampilan tangan’);
write(’JAWAB :’);read(angka9);
writeln(’10. Suka menguji sesuatu dengan fakta - fakta’);
write(’JAWAB :’);read(angka10);
writeln(’11. Butuh seorang teman dekat untuk membagikan ide dan pemikirannya’);
write(’JAWAB :’);read(angka11);
writeln(’12. Suka memberi dengan diam - diam’);
write(’JAWAB :’);read(angka12);
writeln(’13. Senang dibawah otoritas supaya memiliki otoritas’);
write(’JAWAB :’);read(angka13);
writeln(’14. Selalu mencari hal yang baik pada diri seseorang’);
write(’JAWAB :’);read(angka14);clrscr;
writeln(’15. Dapat dengan mudah mengetahui karakter orang lain’);
write(’JAWAB :’);read(angka15);
writeln(’16. Menjaga segala sesuatu tetap rapi dan teratur’);
write(’JAWAB :’);read(angka16);
writeln(’17. Senang mempelajari arti kata dari bahasa aslinya’);
write(’JAWAB :’);read(angka17);
writeln(’18. Lebih suka menerapkan kebenaran daripada menyelidikinya’);
write(’JAWAB :’);read(angka18);
writeln(’19. Merasa terlibat dari apa yang disumbang’);
write(’JAWAB :’);read(angka19);
writeln(’20. Tidak suka sesuatu yang bersifat rutin’);
write(’JAWAB :’);read(angka20);
writeln(’21. Peka terhadap keadaan orang lain’);
write(’JAWAB :’);read(angka21);clrscr;
writeln(’22. Lupa memuji orang lain atas keberhasilannya’);
write(’JAWAB :’);read(angka22);
writeln(’23. Lupa menolong keluarga karena terlalu sibuk menolong orang lain’);
write(’JAWAB :’);read(angka23);
writeln(’24. Lambat untuk menerima pandangan atau pendapat orang lain’);
write(’JAWAB :’);read(angka24);
writeln(’25. Memberi nasihat yang sama berulang - ulang’);
write(’JAWAB :’);read(angka25);
writeln(’26. Agresif dalam berusaha menumbuhkan kerohanian orang lain’);
write(’JAWAB :’);read(angka26);
writeln(’27. Dapat menahan luka yang disebabkan oleh kritikan orang lain’);
write(’JAWAB :’);read(angka27);
writeln(’28. Mudah terluka oleh orang lain’);
write(’JAWAB :’);read(angka28);clrscr;
writeln(’29. Agresif dalam berusaha menumbuhkan semangat orang lain’);
write(’JAWAB :’);read(angka29);
writeln(’30. Dapat menjadi agresif dalam keinginan untuk menolong orang lain’);
write(’JAWAB :’);read(angka30);
writeln(’31. Cenderung merasa lebih cerdas dari kebanyakan orang sebaya’);
write(’JAWAB :’);read(angka31);
writeln(’32. Membicarakan pendapat dengan berani’);
write(’JAWAB :’);read(angka32);
writeln(’33. Cenderung memanjakan keluarga atau kerabat lainnya’);
write(’JAWAB :’);read(angka33);
writeln(’34. Kadangkala dapat memakai orang untuk sasarannya sendiri’);
write(’JAWAB :’);read(angka34);
writeln(’35. Mau berjuang bagi perkara yang baik’);
write(’JAWAB :’);read(angka35);clrscr;
writeln(’36. Hanya mempunyai sedikit teman dan hampir tidak sama sekali’);
write(’JAWAB :’);read(angka36);
writeln(’37. Menyelesaikan dengan tuntas apa yang sudah dimulai’);
write(’JAWAB :’);read(angka37);
writeln(’38. Kecewa jika isi kitab suci yang digunakan diluar konteksnya’);
write(’JAWAB :’);read(angka38);
writeln(’39. Senang bekerja dengan orang bukan dengan alat’);
write(’JAWAB :’);read(angka39);
writeln(’40. Ingin memberikan yang terbaik dari apa yang diberikan’);
write(’JAWAB :’);read(angka40);
writeln(’41. Menyenangi pekerjaan yang mempunyai sasaran dan proyek jangka panjang’);
write(’JAWAB :’);read(angka41);
writeln(’42. Lebih memperhatikan luka batin daripada luka fisik’);
write(’JAWAB :’);read(angka42);clrscr;
writeln(’43. Berkeinginan kuat untuk taat kepada Tuhan dan berani bayar harga’);
write(’JAWAB :’);read(angka43);
writeln(’44. Sulit berkata tidak terhadap permohonan orang lain’);
write(’JAWAB :’);read(angka44);
writeln(’45. Menginginkan kebenaran ditegakkan dalam setiap situasi’);
write(’JAWAB :’);read(angka45);
writeln(’46. Mendorong orang lain untuk mengembangkan pelayanan mereka sendiri’);
write(’JAWAB :’);read(angka46);
writeln(’47. Mensyukuri karunia dari Tuhan’);
write(’JAWAB :’);read(angka47);
writeln(’48. Seorang pribadi yang memiliki visi dan misi dengan sudut pandang yang luas’);
write(’JAWAB :’);read(angka48);
writeln(’49. Menolong orang lain untuk memiliki hubungan yang baik dengan sesama’);
write(’JAWAB :’);read(angka49);clrscr;
writeln(’50. Berani hidup berdasarkan prinsip - prinsip agama’);
write(’JAWAB :’);read(angka50);
writeln(’51. Lebih tertarik untuk memenuhi kebutuhan orang lain daripada diri sendiri’);
write(’JAWAB :’);read(angka51);
writeln(’52. Mampu menganalisa secara objektif (tanpa perasaan pribadi)’);
write(’JAWAB :’);read(angka52);
writeln(’53. Senang menemukan kebenaran dalam pengalaman’);
write(’JAWAB :’);read(angka53);
writeln(’54. Memberi untuk mendukung dan melayani orang lain’);
write(’JAWAB :’);read(angka54);
writeln(’55. Mampu menempatkan orang yang tepat untuk menyelesaikan suatu pekerjaan’);
write(’JAWAB :’);read(angka55);
writeln(’56. Senang memberikan tempat/kesempatan yang lebih baik kepada orang lain’);
write(’JAWAB :’);read(angka56);readln;clrscr;

hasil1:=angka1+angka8+angka15+angka22+angka29+angka36+angka43+angka50;
hasil2:=angka2+angka9+angka16+angka23+angka30+angka37+angka44+angka51;
hasil3:=angka3+angka10+angka17+angka24+angka31+angka38+angka45+angka52;
hasil4:=angka4+angka11+angka18+angka25+angka32+angka39+angka46+angka53;
hasil5:=angka5+angka12+angka19+angka26+angka33+angka40+angka47+angka54;
hasil6:=angka6+angka13+angka20+angka27+angka34+angka41+angka48+angka55;
hasil7:=angka7+angka14+angka21+angka28+angka35+angka42+angka49+angka56;
if hasil1>hasil2 then
if hasil1>hasil3 then
if hasil1>hasil4 then
if hasil1>hasil5 then
if hasil1>hasil6 then
if hasil1>hasil7 then
begin
clrscr;
writeln;
writeln(’ ++++++++++++++++++++++++++ KEPRIBADIAN ANDA +++++++++++++++++++++++++++’);
writeln;
writeln(’”BERNUBUAT/MENGAMATI”‘);
writeln(a);
writeln(h);
writeln(i);
writeln(j);
writeln(k);
end;
if hasil2>hasil1 then
if hasil2>hasil3 then
if hasil2>hasil4 then
if hasil2>hasil5 then
if hasil2>hasil6 then
if hasil2>hasil7 then
begin
clrscr;
writeln;
writeln(’ ++++++++++++++++++++++++++ KEPRIBADIAN ANDA +++++++++++++++++++++++++++’);
writeln;
writeln(’”MELAYANI”‘);
writeln(b);
writeln(l);
writeln(m);
writeln(n);
writeln(o);
end;
if hasil3>hasil1 then
if hasil3>hasil2 then
if hasil3>hasil4 then
if hasil3>hasil5 then
if hasil3>hasil6 then
if hasil3>hasil7 then
begin
clrscr;
writeln;
writeln(’ ++++++++++++++++++++++++++ KEPRIBADIAN ANDA +++++++++++++++++++++++++++’);
writeln;
writeln(’”MENGAJAR”‘);
writeln(c);
writeln(p);
writeln(q);
writeln(r);
writeln(s);
end;
if hasil4>hasil1 then
if hasil4>hasil2 then
if hasil4>hasil3 then
if hasil4>hasil5 then
if hasil4>hasil6 then
if hasil4>hasil7 then
begin
clrscr;
writeln;
writeln(’ ++++++++++++++++++++++++++ KEPRIBADIAN ANDA +++++++++++++++++++++++++++’);
writeln;
writeln(’”MENASEHATI”‘);
writeln(d);
writeln(t);
writeln(u);
writeln(v);
writeln(w);
end;
if hasil5>hasil1 then
if hasil5>hasil2 then
if hasil5>hasil3 then
if hasil5>hasil4 then
if hasil5>hasil6 then
if hasil5>hasil7 then
begin
clrscr;
writeln;
writeln(’ ++++++++++++++++++++++++++ KEPRIBADIAN ANDA +++++++++++++++++++++++++++’);
writeln;
writeln(’”MEMBERI”‘);
writeln(e);
writeln(x);
writeln(y);
writeln(z);
writeln(a1);
end;
if hasil6>hasil1 then
if hasil6>hasil2 then
if hasil6>hasil3 then
if hasil6>hasil4 then
if hasil6>hasil5 then
if hasil6>hasil7 then
begin
clrscr;
writeln;
writeln(’ ++++++++++++++++++++++++++ KEPRIBADIAN ANDA +++++++++++++++++++++++++++’);
writeln;
writeln(’”MEMIMPIN”‘);
writeln(f);
writeln(b1);
writeln(c1);
writeln(d1);
writeln(e1);
end;
if hasil7>hasil1 then
if hasil7>hasil2 then
if hasil7>hasil3 then
if hasil7>hasil4 then
if hasil7>hasil5 then
if hasil7>hasil6 then
begin
clrscr;
writeln;
writeln(’ ++++++++++++++++++++++++++ KEPRIBADIAN ANDA +++++++++++++++++++++++++++’);
writeln;
writeln(’”BERBELAS KASIHAN”‘);
writeln(g);
writeln(f1);
writeln(g1);
writeln(h1);
writeln(i1);
end;
readln;
clrscr;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;

write (’Apakah Anda ingin mencobanya lagi ??? (Y/N)’);readln(xxx);
if (xxx ‘y’) and (xxx ‘n’) and (xxx ‘Y’) and (xxx ‘N’) then
begin
while (xxx ‘n’) and (xxx ‘y’) and (xxx ‘Y’) and (xxx ‘N’) do

end
else
until (xxx =’n') or (xxx =’N');
clrscr;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln (’ ************************************SELESAI***********************************’);
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;

END.

PLTN

Pemberdayaan Pembangkit Listrik Tenaga Nuklir Sebagai Salah Satu Solusi dalam Mengatasi Krisis Energi di Indonesia

Akhir – akhir ini terjadi kelangkaan bahan bakar minyak di Indonesia, sehingga terjadi pengalihan bahan bakar minyak ke gas. Hal ini merupakan indikator dari krisis energi yang terjadi di negara yang konon katanya merupakan negara yang kaya sumber daya alam. Namun, muncul permasalahan baru yaitu berapa lamakah gas akan bertahan sebagai bahan bakar utama ? Berdasarkan penelitian dalam 30 tahun, bahan bakar gas yang kini menjadi pilihan pemerintah untuk menanggulangi masalah krisis energi lewat program konversi minyak tanah ke gas, juga akan habis. Lalu bagaimanakah dengan nasib warga Indonesia dimasa depan ?

Banyak teknologi – teknologi terbaru seperti yang telah dilaksanakan di negara – negara maju untuk menanggulangi krisis energi. Salah satunya yaitu Pembangkit Listrik Tenaga Nuklir (PLTN).

Pembangkit Listrik Tenaga Nuklir (PLTN) adalah sebuah pembangkit lisrik yang bekerja dengan memanfaatkan energi yang dilepaskan oleh inti atom pada saat reaksi nuklir terjadi. Energi yang dilepaskan luar biasa besarnya namun berbanding terbalik dengan bahan bakar yang dibutuhkan, hal inilah yang menyebabkan PLTN sangat efisien. Berdasarkan penelitian, 1 gr bahan nuklir U-235 dapat menghasilkan energi listrik bersih sebesar 24,58 x 10⁹ J. Apabila sebuah TV mempunyai daya sebesar 100 watt, maka dengan 1 gr U-235 hasil reaktor nuklir, dapat menyalakan TV tersebut selama 24,58 x 107 s atau sama dengan 7,78 tahun terus-menerus tanpa dimatikan. Sebagai perbandingan dengan batubara, satu kg bahan nuklir dapat menghasilkan energi panas setara dengan 2400 ton batubara. Luar biasa sekali keefisienan dari PLTN tersebut, jika benar – benar direalisasikan di Indonesia tentu akan menghemat dana APBN yang sebagian besarnya digunakan untuk kebutuhan energi.

Namun, permasalahnya adalah seberapa disiplinkah pegawai - pegawai yang akan menangani PLTN tersebut sehingga warga menjadi percaya dan mendukung sepenuhnya atas pembangunan PLTN di Indonesia.

Isu dan permasalahan mengenai pembangunan PLTN di Indonesia banyak mengundang pro dan kontra. Di satu pihak warga masyarakat menyetujui pembangunan PLTN, namun di pihak lain tidak sedikit pula masyarakat yang menolak sepenuhnya pembangunan PLTN ini dengan alasan membahayakan. Permasalahan inilah yang seharusnya segera ditangani oleh pemerintah Indonesia demi kemajuan bangsa.

Banyak solusi untuk mengatasi isu dan permasalahan ini. Salah satunya dengan memberikan penyuluhan secara menyeluruh sehingga mereka mengerti betapa pentingnya pembangunan PLTN demi mengatasi krisis energi yang terjadi di Indonesia saat ini. Selain itu penyuluhan pun dapat merubah paradigma masyarakat yang hanya terfokus pada bahaya nuklir saja.

Jika permasalahan tersebut dapat diatasi maka isu kelangkaan energi di Indonesia hanya akan menjadi angin lalu saja, sehingga kesejahteraan masyarakat Indonesia pun akan meningkat dan masalah yang menimpa negara kita ini pun sedikit demi sedikit akan berkurang. Negara – negara maju di dunia seperti di Amerika Serikat, Jerman, Inggris, Perancis, Rusia, Korea Utara dan Iran sudah sangat tergantung pada PLTN, lalu apalagi yang kita tunggu ? Apakah kita akan mengikuti jejak mereka ataukah akan terus memperdebatkannya tanpa menghasilkan solusi ?