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.