Translate

Senin, 13 Mei 2013

Manusia Dan Penderitaan, Manusia dan Keadilan (tugas3)

Disusun Oleh :

       MOCHAMMAD ARIF FACHRIZAL (14112652)

 

Manusia dan Penderitaan

Pengertian Penderitaan

Penderitaan berasal dari kata derita. Kata derita berasal dari bahasa sansekerta dhra artinya menahan atau menanggung. Derita artinya  menanggung atau merasakan sesuatu yang tidak menyenangkan. Penderitaan dapat berupa penderitaan lahir atau batin atau lahir dan batin. Penderitaan termasuk realitas manusia dan dunia. Intensitas penderitaan bertingkat-tingkat, ada yang berat, ada yang ringan. Namun peranan individu juga menentukan berat-tidaknya intensitas penderitaan. Suatu pristiwa  yang dianggap penderitaan oleh seseorang belum tentu merupakan penderitaan bagi orang lain. Dapat pula suatu penderitaan merupakan energi untuk bangkit kembali bagi seseorang, atau sebagai langkah awal untuk mencpai kenikmatan dan kebahagiaan.

Mengenai penderitaan yang dapat memberikan hikmah, contoh yang gamblang dapat dapat dicatat disini adalah tokoh-tokoh filsafat eksistensialisme. Misalnya Kierkegaard (1813-1855), seorang filsuf Denmark, sebelum menjadi seorang filsuf besar, masa kecilnya penuh penderitaan. Penderitaan yang menimpanya, selain melankoli karena ayahnya yang pernah mengutuk Tuhan dan berbuat dosa melakukan hubungan badan sebelum menikah dengan ibunya, juga kematian delapan orang anggota keluarganya, termaksud ibunya, selama dua tahun berturut-turut. Peristiwa ini menimbulkan penderitaan yang mendalam bagi Soren Kierkegaard, dan ia menafsirkan peristiwa ini sebagai kutukan Tuhan akibat perbuatan ayahnya. Keadaan demikian, sebelum Kierkegaard muncul sebagai filsuf, menyebabkan dia mencari jalan membebaskan diri (kompensasi) dari cengkraman derita dengan jalan mabuk-mabukan. Karena derita yang tak kunjung padam, Kierkegaard mencoba mencari “hubungan” dengan Tuhannya, bersamaan dengan keterbukaan hati ayahnya dari melankoli. Akhirnya ia menemukan dirinya sebagai seorang filsuf eksistensial yang besar

Pengertian Siksaan

Siksaan atau penyiksaan (Bahasa Inggris: torture) digunakan untuk merujuk pada penciptaan rasa sakit untuk menghancurkan kekerasan hati korban. Segala tindakan yang menyebabkan penderitaan, baik secara fisik maupun psikologis, yang dengan sengaja dilakukkan terhadap seseorang dengan tujuan intimidasi, balas dendam, hukuman, sadisme, pemaksaan informasi, atau mendapatkan pengakuan palsu untuk propaganda atau tujuan politik dapat disebut sebagai penyiksaan. Siksaan dapat digunakan sebagai suatu cara interogasi untuk mendapatkan pengakuan. Siksaan juga dapat digunakan sebagai metode pemaksaan atau sebagai alat untuk mengendalikan kelompok yang dianggap sebagai ancaman bagi suatu pemerintah. Sepanjang sejarah, siksaan telah juga digunakan sebagai cara untuk memaksakan pindah agama atau cuci otak politik.

Berbicara tentang siksaan, maka terbayang oleh kita tentang neraka, dosa dan akhirnya firman Allah SWT. dalam kitab suci Al-Qur'an. Seperti kita maklumi di dalam kita suci Al-Qur'an terdapat banyak sekali surat dan ayat yang membahas tentang ini. Dalam Al-Qur'an ini surat-surat lain banyak berisi jenis ancaman dan siksaan bagi orang-orang musyrik, syirik, makan riba, dengki, memfitnah, mencuri, makan harta anak yatim, dan sebagainya.

Berbicara tentang siksaan terbayang di benak kita sesuatu yang sangat mengerikan bahkan mungkin mendirikan bulu kuduk kita, siksaan itu berupa penyakit, siksaan hati, siksaan badan oleh orang lain dan sebagainya. Siksaan manusia ini ternyata juga menimbulkan kreativitas bagi yang pernah mengalami siksaan atau orang lain yang berjiwa seni yang menyaksikan baik langsung ataupun tidak langsung.

Siksaan bersifat psikis

Siksaan yang sifatnya Psikis misalnya kebimbangan, kesepian dan ketakutan. Kebimbangan dialami oleh seseorang bila ia pada suatu saat tidak dapat menentukan pilihan mana yang akan diambil. Misalnya pada suatu saat apakah seseorang yang bimbang itu pergi atau tidak. Akibat dari kebimbangan seseorang berada dalam keadaan yang tidak menentu, sehingga ia merasa tersiksa dalam hidupnya saat itu. Bagi orang yang lemah berpikirnya, masalah kebimbangan akan lama dialami, sehingga siksaan itu berkepanjangan. Tetapi bagi orang yang kuat berpikirnya ia akan cepat mengambil suatu keputuan, sehingga kebimbangan akan cepat dapat diatasi.

Kesepian dialami oleh seseorang merupakan rasa sepi dalam dirinya atau jiwanya, walaupun ia dalam lingkungan orang ramai, kesepian ini tidak boleh dicampur adukkan dengan keadaan sepi seperti yang  dialami oleh petapa  atau biarawan yang tinggalnya ditempat yang sepi. Tempat mereka memang sepi tetapi hati mereka tidak sepi. Kesepian juga merupakan salah satu wujud dari siksaan yang dialami seseorang.

 

Tiga Siksaan Bersifat Psikis

• Kebimbangan, siksaan ini terjadi ketika manusia sulit untuk menentukan pilihan yang mana akan meraka ambil dan mereka tidak ambil. Situasi ini sangat membuat psikis manusia tidak stabil dan butuh pertimbangan yang amat sangat sulit.

• Kesepian, merupakan perasaan sepi yang amat sangat tidak diinginkan oleh setiap manusia.

Pada hakikatnya manusia itu adalah makhluk yang bersosial ,hidup bersama dan tidak hidup seorang diri.Faktor ini dapat mengakibatkan depresi kejiwaan yang berat dan merupakan siksaan paling mendalam yang menimpa rohani manusia

• Ketakutan, adalah suatu reaksi psikis emosional terhadap sesuatu yang ditakuti oleh manusia.

• Rasa takut ini dapat menimbulkan traumatik yang amat mendalam. Dampaknya manusia bisa kehilangan akal pikirannya dan membuat manusia berkejatuhan mental.

 Kekalutan Mental

Penderitaan batin dalam ilmu psikologi dikenal sebagai kekalutan mental. Secara lebih sederhana kekalutan mental adalah gangguan kejiwaan akibat ketidakmampuan seseorang menghadapi persoalan yang harus diatasi sehingga yang bersangkutan bertingkah laku secara kurang wajar.

Gejala Seseorang yang Mengalami Kekalutan Mental

• Nampak pada jasmani yang sering merasakan pusing, sesak napas, demam, nyeri pada lambung

• Nampak pada kejiwaannya dengan rasa cemas, ketakutan, patah hati, apatis, cemburu, mudah marah

Tahap-tahap Gangguan Kejiwaan

• Gangguan kejiwaan nampak pada gejala-gejala kehidupan si penderita bais jasmana maupun rokhani

• Usaha mempertahankan diri dengan cara negative

• Kekalutan merupakan titik patah (mental breakdown) dan yang bersangkutan mengalam gangguan

Sebab-sebab timbulnya Kekalutan Mental

• Kepribadian yang lemah akibat kondisi jasmani atau mental yang kurang sempurna

• Terjadinya konflik sosial budaya

• Cara pematangan batin yang salah dengan memberikan reaksi yang berlebihan terhadap    kehidupan sosial

Proses-proses Kekalutan Mental

Proses kekalutan mental yang dialami seseorang mendorongnya kearah positif dan negative. Posotf; trauma jiwa yang dialami dijawab dengan baik sebgai usaha agar tetap survey dalam hidup, misalnya melakukan sholat tahajut, ataupun melakukan kegiatan yang positif setelah kejatuhan dalam hidupnya. Negatif; trauma yang dialami diperlarutkan sehingga yang bersangkutan  mengalami fustasi, yaitu tekanan batin akibat tidak tercapainya apa yang diinginkan. Bentuk fustasi antara lain :

• Agresi berupa kamarahan yang meluap-luap akibat emosi yang tak terkendali dan secara fisik berakibat mudah terjadi Hypertensi atau tindakan sadis yang dapat membahayakan orang sekitarnya

• Regresi adalah kembali pada pola perilaku yang primitive atau kekanak-kanakan

• Fiksasi adalah peletakan pembatasan pada satu pola yang sama (tetap) misalnya dengan membisu

• Proyeksi merupakan usaha melemparkan atau memproyeksikan kelemahan dan sikap-sikap sendiri yang negative kepada orang lain

• Identifikasi adalah menyamakan diri dengan seseorang yang sukses dalam imaginasinya

• Narsisme adalah self love yang berlebihan sehingga yang bersangkutan merasa dirinya lebih      superior dari paa orang lain

• Autisme ialah menutup diri secara total dari dunia riil, tidak mau berkomunikasi dengan orang lain, ia puas dengan fantasinya sendiri yagn dapat menjurus ke sifat yang sinting.

SALAH SATU CONTOH PENDERITAAN MASYARAKAT

PENGANGGURAN SEBAGAI SALAH SATU PENDERITAAN MASYARAKAT

1.Pengertian pengangguran

Pengangguran atau tuna karya adalah istilah untuk orang yang tidak bekerja sama sekali, sedang mencari kerja, bekerja kurang dari dua hari selama seminggu, atau seseorang yang sedang berusaha mendapatkan pekerjaan yang layak. Pengangguran umumnya disebabkan karena jumlah angkatan kerja atau para pencari kerja tidak sebanding dengan jumlah lapangan kerja yang ada yang mampu menyerapnya. Pengangguran seringkali menjadi masalah dalam perekonomian karena dengan adanya pengangguran, produktivitas dan pendapatan masyarakat akan berkurang sehingga dapat menyebabkan timbulnya kemiskinan dan masalah-masalah sosial lainnya.

 

2.Jenis-jenis pengangguran

A.     Berdasarkan jam kerja :

1.      Pengangguran terselubung

2. Pengangguran terbuka

3.setengah menganggur.

       B. Berdasarkan penyebab terjadinya :

1. Pengangguran friksional (frictional unemployment)

2. Pengangguran konjungtural (cycle unemployment)

3. Pengangguran struktural (structural unemployment)

4. Pengangguran musiman (seasonal Unemployment)

5. Pengangguran siklikal

6.Pengangguran teknologi

7.Pengangguran siklus

 3.Penyebab pengangguran

Pengangguran umumnya disebabkan karena jumlah angkatan kerja tidak sebanding dengan jumlah lapangan pekerjaan yang mampu menyerapnya. Pengangguran seringkali menjadi masalah dalam perekonomian karena dengan adanya pengangguran, produktivitas dan pendapatan masyarakat akan berkurang sehingga dapat menyebabkan timbulnya kemiskinan dan masalah-masalah sosial lainnya.

4.Akibat pengangguran

  • Bagi perekonomian negara

  1. Penurunan pendapatan perkapita.

  2. Penurunan pendapatan pemerintah yang berasal dari sektor pajak.

  3. Meningkatnya biaya sosial yang harus dikeluarkan oleh pemerintah.

·         Bagi masyarakat

  1. Pengangguran merupakan beban psikologis dan psikis.

  2. Pengangguran dapat menghilangkan keterampilan, karena tidak digunakan apabila tidak bekerja.

  3. Pengangguran akan menimbulkan ketidakstabilan sosial dan politik

 

Kesimpulan :

Penderitaan itu merupakan sesuatu yang tidak menyenangkan, tetapi bila penderitaan itu kita sikapi dengan bijaksana maka penderitaan itu akan berubah menjadi sesuatu yang hebat. contoh seperti di atas, siksaan dapat menjadi sebuah kreativitas. oleh sebab itu kita harus menyikapi penderitaan secara bijak, karena kita memiliki Tuhan yang selalu ada setiap saat. 

 

 

Manusia dan Keadilan

Pengengertian
Keadilan menurut Aristoteles adalah kelayakan dalam tindakan manusia. Kelayakan diartikan sebagai titik tengah antara kedua ujung ekstrem yang terlalu banyak dan terlalu sedikit. Kedua ujung ekstrem ini menyangkut dua orang atau benda. Bila kedua orang tersebut mempunyai kesamaan dalam ukuran yang telah ditetapkan, maka masing-masing orang harus memperoleh benda atau hasil yang sama, kalau tidak sama, maka masing – masing orang akan menerima bagian yang tidak sama, sedangkan pelangggaran terjadap proporsi tersebut disebut tidak adil.
Keaadilan oleh Plato diproyeksikan pada diri manusia sehingga yang dikatakan adil adalah orang yang mengendalikan diri dan perasaannya dikendalikan oleh akal. Socrates memproyeksikan keadilan pada pemerintahan. Menurut Socrates, keadilan akan tercipta bilamana warga Negara sudah merasakan bahwa pemerintah sudah melakukan tugasnya dengan baik. Mengapa diproyeksikan kepada pemerintah ? sebab pemerintah adalah pimpinan pokok yang menentukan dinamika masyarakat. Kong Hu Cu berpendapat bahwa keadilan terjadi apabila anak sebagai anak, bila ayah sebagai ayah, bila raja sebagai raja, masing-masing telah melaksanakan kewajibannya. Pendapat ini terbatas pada nilai-nilai tertentu yang sudah diyakini atau disepakati.
Menurut pendapat yang lebih umum dikatakan bahwa keadilan itu adalah pengakuan dan pelakuan yang seimbang antara hak-hak dan kewajiban. Keadilan terletak pada keharmonisan menuntuk hak dan menjalankan kewajiban. Atau dengan kata lain, keadilan adalah keadaan bila setiap orang memperoleh apa yang menjadi hak nya dan setiap orang memperoleh bagian yang sama dari kekayaan bersama.

Berbagai Macam Keadilan
  1. Keadilan legal atau keadilan moral
Plato berpendapat bahwa keadilan dan hukum merupakan substansi rohani umum dari masyarakat yang membuat dan menjadi kesatuannya. Dalam masyarakat yang adil setiap orang menjalankan pekerjaan menurut sifat dasarnya paling cocok baginya ( the man behind the gun ). Pendapat Plato itu disebut keadilan moral, sedangkan oleh yang lainnya disebut keadilan legal
  1. Keadilan distributive
Aristotele berpendapat bahwa keadilan akan terlaksana bilamana hal-hal yang sama diperlakukan secara sama dan hal-hal yang tidak sama diperlakukan tidak sama (justice is done when equels are treated equally).
  1. Keadilan komutatif
Keadilan ini bertujuan untuk memelihara ketertiban masyarakat dan kesejahteraan umum.Bagi Aristoteles pengertian keadilan ini merupakan asas pertalian dan ketertiban dalam masyarakat. Semua tindakan yang bercorak ujung ekstrem menjadikan ketidakadilan dan akan merusak atau bahkan menghancurkan pertalian dalam masyarakat
Kejujuran
Kejujuran atau jujur artinya apa-apa yang dikatakan seseorang sesuai dengan hati nuraninya, apa yang dikatakan sesuai dengan kenyataan yang ada. Sedang kenyataan yang ada itu adalah kenyataan yang benar-benar ada. Jujur juga berarti seseorang bersih hatinya dari perbuatan-perbuatan yang dilarang oleh agama dan hukum. Untuk itu dituntut satu kata dan perbuatan, yang berarti bahwa apa yang dikatakan harus sama dengan perbuatannya. Karena itu jujur berarti juga menepati janji atau kesanggupan yang terlampir melalui kata-kata ataupun yang masih terkandung dalam hati nuraninya yang berupa kehendak, harapan dan niat.

Kecurangan
Kecurangan atau curang identik dengan ketidakjujuran atau tidak jujur, dan sama pula dengan licik, meskipun tidak serupa benar. Curang atau kecurangan artinya apa yang diinginkan tidak sesuai dengan hari nuraninya atau, orang itu memang dari hatinya sudah berniat curang dengan maksud memperoleh keuntungan tanpa bertenaga dan berusaha. Kecurangan menyebabkan orang menjadi serakah, tamak, ingin menimbun kekayaan yang berlebihan dengan tujuan agar dianggap sebagai orang yang paling hebat, paling kaya, dan senang bila masyarakat disekelilingnya hidup menderita. Bermacam-macam sebab orang melakukan kecurangan. Ditinjau dari hubungan manusia dengan alam sekitarnya, ada 4 aspek yaitu aspek ekonomi, aspek kebudayaan, aspek peradaban dan aspek teknik. Apabila keempat asepk tersebut dilaksanakan secara wajar, maka segalanya akan berjalan sesuai dengan norma-norma moral atau norma hukum. Akan tetapi, apabila manusia dalam hatinya telah digerogoti jiwa tamak, iri, dengki, maka manusia akan melakukan perbuatan yang melanggar norma tersebut dan jadilah kecurangan.

Pemulihan nama baik
Nama baik merupakan tujuan utama orang hidup. Nama baik adalah nama yang tidak tercela. Setiap orang menajaga dengan hati-hati agar  namanya baik. Lebih-lebih jika ia menjadi teladan bagi orang/tetangga disekitarnya adalah suatu kebanggaan batin yang tak ternilai harganya. Penjagaan nama baik erat hubungannya dengan tingkah laku atau perbuatan. Atau boleh dikatakan bama baik atau tidak baik ini adalah tingkah laku atau perbuatannya. Yang dimaksud dengan tingkah laku dan perbuatan itu, antara lain cara berbahasa, cara bergaul, sopan santun, disiplin pribadi, cara menghadapi orang, perbuatn-perbuatan yang dihalalkan agama dan sebagainya. Pada hakekatnya pemulihan nama baik adalah kesadaran manusia akan segala kesalahannya; bahwa apa yang diperbuatnya tidak sesuai dengan ukuran moral atau tidak sesuai dengan ahlak yang baik. Untuk memulihkan nama baik manusia harus tobat atau minta maaf. Tobat dan minta maaf tidak hanya dibibir, melainkan harus bertingkah laku yang sopan, ramah, berbuat darma dengan memberikan kebajikan dan pertolongan kepaa sesama hidup yang perlu ditolong dengan penuh kasih sayang , tanpa pamrin, takwa terhadap Tuhan dan mempunyai sikap rela, tawakal, jujur, adil dan budi luhur selalu dipupuk.

Pembalasan
Pembalasan ialah suatu reaksi atas perbuatan orang lain. Reaksi itu dapat berupa perbuatan yang serupa, perbuatan yang seimbang, tingkah laku yang serupa, tingkah laku yang seimbang. Pembalasan disebabkan oleh adanya pergaulan. Pergaulan yang bersahabat mendapat balasan yang bersahabat. Sebaliknya pergaulan yagn penuh kecurigaan menimbulkan balasan yang tidak bersahabat pula. Pada dasarnya, manusia adalah mahluk moral dan mahluk sosial. Dalam bergaul manusia harus mematuhi norma-norma untuk mewujudkan moral itu. Bila manusia berbuat amoral, lingkunganlah yang menyebabkannya. Perbuatan amoral pada hakekatnya adalah perbuatan yang melanggar atau memperkosa hak dan kewajiban manusia. Oleh karena itu manusia tidak menghendaki hak dan kewajibannya dilanggar atau diperkosa, maka manusia berusaha mempertahankan hak dan kewajibannya itu. Mempertahankan hak dan kewajiban itu adalah pembalasan.

Dibawah ini merupakan pengertian keadilan dari beberapa ahli:
                                        
-Keadilan menurut aristoteles adalah kelayakan dalam tindakan manusia
-Keadilan menurut W.J.S Poerwadarminta, kata adil berarti tidak berat sebelah atau memihak manapun tidak sewenang-wenang
Dari hal di atas dapat kita simpulkan bahwa keadilan adalah sebuah hal yang seimbang tidak berat di kiri ataupun dikanan dan merupakan hal yang layak untuk dilakukan oleh manusia. Secara umum keadilan terbagi menjadi beberapa macam yaitu :


Keadilan legal atau keadilan moral
Yaitu merupakan subtansi rohani umum dari masyarakat yang mebuat dan menjadi kesatuannya.
Keadilan distributive
Yaitu keadilan ini akan terlaksana apabila hal-hal yang sama dilakukan secara sama dan hal-hal yang tidak sama diperlakukan tidak sama.

Keadilan komutatif
Yaitu keadilan ini merupakan asa pertahun dan ketertiban dalam masyarakat.
Bila dihubungkan dengan kemanusiaan keadilan merupakan sesuatu hal yang menjadi hak asasi manusia ,seseorang butuh keadilan dalam hidupnya namun seseorang juga harus adil dalm memberi sesuatu atau melakukan sesuatu sesuai dengan hak dan kewajiban nya.seperti bunyi pada sila ke-5 pancasila yaitu keadilan bagi seluruh rakyat Indonesia.tepat sekali bila seseorang yang dilahirkan ke bumi ini harus mendapat keadilan baik dalam kehidupan,pendidikan yang layak maupun pangan,papan dan sandang .namun dia pun harus berlaku adil dengan semua keadilan yang ia dapat tadi manusia harus dapat mempertanggung jawabkannya .keadilan sangat erat dengan manusia karena memng keadilan sudah ada semenjak manusia dilahirkan contohnya seperti TUHAN yang menghukum setiap umat yang melakukan kesalahan dan tidak membeda-bedakan baik dia orang kaya maupun miskin sekali bersalah tetap bersalah,namun DIA tetap adil juga karena tidak membeda-bedakan kasih-NYA pada semua umatnya.maka dari itu keadilan sangat terkait dengan kemanusiaan maka dari itu keadilan harus slalu ditegakkan untuk kesetimbangan dunia ini.  


 

 

Jumat, 03 Mei 2013

Download Program Pascal

Ni buat temen-temen yang belum punya Program Pascal nya :
cara pakai :
     - Extract file rar.
     - cari file yang bernama Turbo.exe . karena didalam file ini banyak sekali file-file latihan (takut ketuker) :p

klik disini : http://www.4shared.com/rar/B2e5BOIr/fachriarifblogspotcom.html

Tugas Pascal Select Case


uses crt:
var
   l1,l2,r : real:
   a,t,pil : integer:
   label exit mulai :


begin
mulai: writeln('Program');
     writeln('1.Luas Lingkaran');
     writeln('2.Luas Segitiga');
     writeln('3.Keluar');
     write('Masukan Pilihan  = '); readln(pil);
case pil of
     1: begin
        writeln;
        writeln('Luas Lingkaran');
        write('Nilai Jari-Jari = '); readln(r);
        l1:= 3.14*r*r;
        write('Luas Lingkaran = ',l1:0:1);
        readln;
        end;
     2: begin
        writeln;
        writeln('Luas Segitiga');
        write('Nilai alas = '); readln(a);
        write('Nilai Tinggi = '); readln(t);
        l2:= a*t/2;
        write('Luas Segitiga = ', l2:0:1);
        readln;
        end;
     3: goto exit ;
else
     writeln('Wooy Pilihan Lu Salah !!!'):
     writeln('Ulangi Lagi');
     writeln:
     goto mulai:
    end:
    exit :
 end.

JANGAN LUPA FOLLOW BLOG ANE sebagai imbalannya :p

Tugas Pascal Array


program barang;
uses crt;
var
   kd : array [1..50] of string[10];
   nama : array [1..50] of string[20];
   quantity : array [1..50] of real;
   harga: array [1..50] of real;
   tot : array [1..50] of real;
   a, b, c:integer;
   total : real;
begin
total:= 0:
clrscr;
write('Input berapa barang = '); readln(a);
for b := 1 to a do
    begin
         write(' Kode Barang = '); readln(kd[b]);
         write(' Nama Barang = '); readln(nama[b]);
         write(' Quantity = '); readln(quantity[b]);
         write(' Harga Satuan = '); readln(harga[b]);
         tot[b] := quantity[b] * harga[b];
         total:=total+ tot[b];
         writeln;
    end;
garis;
writeln('Kode Barang    Nama Barang       Quantity     Harga Satuan    Total Harga');
for c := 1 to a do;
writeln(kd[c]:5 , nama[c]:10, quantity[c]:20:0, harga[c]:10:0, tot[c]:13:0);
garis;
writeln('Total Harga = ', total:10:0);
readln;
end.

JANGAN LUPA FOLLOW BLOG ANE sebagai imbalannya :p

Tugas Pascal Menggunakan With


program Program_Barang;
uses crt:
type
brg=record
kd:string[5];
nama:string[10];
quantity:real;
harga:real;
tot :real;
end;
var
   barang:array[1..50] of brg;
   d,e,f:integer:
   total:real:
begin
total := 0:
clrscr;
write('Mau Input Berapa Data ?= '); readln(d);
for e := 1 to a do
    begin
    with barang[e] do
         begin
             write('Kode Barang = '); readln(kd);
             write('Nama Barang = '); readln(nama);
             write('Quantity = ');  readln(quantity);
             write(Harga Satuan = '): readln(harga):
             tot := quantity * harga;
             total := total + tot;
             writeln;
         end;
    end;

writeln('Kode Barang      Nama Barang     Quantity     Harga Satuan    Total Harga');
for f := 1 to a do
begin
   with barang[f] do
   writeln(kd:17 , nama:5, quantity:25:0, harga:15:0, tot:0);
end;
writeln('Total Harga = ', total;10:0):
readln;
end.

JANGAN LUPA FOLLOW BLOG ANE sebagai imbalannya :p

Tugas Pascal Record Tidak Menggunakan With


buat teman-teman yang baca artikel ini . guw sedikit tambah kan . ini merupakan tugas terbaru dari dosen pa donie . sebelum dikumpulkan periksa ulang program teman-teman semua . terutama pada titik koma, dan titik dua .

program Program_Barang;
uses crt;
type
brg=record
kd:array[1..50] of string[5]:
nama:array[1..50] of string[10];
quantity:array[1..50] of real;
harga:array [1..50] of real:
tot :array[1..50] of real;
total:real;
end;
var
   barang:brg;
   d,e,f : integer;
begin
barang.total := 0:
clrscr;
write('Input Berapa Data ?= '); readln(d):
for e := 1 to a do
    begin
         write(' Kode Barang = '); readln(barang.kd[e]);
         write(' Nama Barang = '); readln(barang.nama[e]);
         write(' Quantity = ');  readln(barang.quantity[e]);
         write(' Harga Satuan = '); readln(barang.harga[e]);
         barang.tot[b] := barang.quantity[e] * barang.harga[e];
         barang.total := barang.total + barang.tot[e]:
         writeln;
    end;
writeln('Kode Barang      Nama Barang     Quantity     Harga Satuan    Total Harga');

for f := 1 to d do
writeln(barang.kd[f]:10 , barang.nama[f]:25, barang.quantity[f]:20:0, barang.harga[f]:15:0, barang.tot[f]:15:0);

writeln('Total Harga = ', barang.total:10:0):
readln:
end;


JANGAN LUPA FOLLOW BLOG ANE sebagai imbalannya :p , jangan ambil datanya aja :D

Rabu, 01 Mei 2013

Cheat Money Become A Legend di PES 2013


Cheat Money Become A Legend di PES 2013



Buat temen-temen yang kesusahan mencari uang di Master League, Game Pro Evolution Soccer 2013.


Langsung aja deh saya kasih tau caranya..
 

  1. Download dulu Money Become A Legend ,, extract RAR. Password RAR: shareyuk4all.blogspot.com
     

  2. Copy file "MoneyBaL dan decrypt.dll" paste ke folder yang sudah terinstal Pro Evolution Soccer 2013.
  3. Jalankan MoneyBaL, pilih menu dan open. (Peringatan: jangan jalankan game PES 2013)
  4. Buka file Become A Legend Anda di Library > Documents > KONAMI > PES 2013 > save
  5. Pilih file bernama BL01 (Become A Legend slot 01) jika sudah ada save become a legend secara otomatis/manual di PES 2013.

      
     
  6. Lingkaran merah adalah uang dari Become A Legend Anda yang belum diubah,
    lingkaran hijau adalah uang yang Anda inginkan di Become A Legend Player's Anda.
    Contoh ubah: 9.999.999.999.999 -> max 13 digit
  7. Klik "accept and save"
  8. Silahkan cek Become A Legend slot 1 di Player's Anda Pro Evolution Soccer 2013. 

Cheat GP Master league(ML) dan Become A Legend(BAL) PES 2013 dengan Cheat engine


Cheat GP Master league(ML) dan Become A Legend(BAL) PES 2013 dengan Cheat engine

Persyaratan:
  1. Game PES 2013 sudah terinstal
  2. Cheat engine sudah terinstal (dalam kasus saya menggunakan versi 6.2)
  • Pertama-tama, buka dulu game PESnya dan load Master league(ML) atau Become a legend(BAL)nya, untuk mengetahui berapa jumlah gp yang dimiliki.
"dalam kasus ini saya melakukan cheat dengan Master League(ML) Pes 2013"
  • gambar diatas menunjukkan bahwa gp yang saya miliki sebanyak GP300, jika sudah tahu berapa jumlah GPnya, kembali ke dekstop dengan menekan windows + D
  • sekarang buka cheat enginenya, dan buka proses pes 2013nya(lihat gambar dibawah)

  • isi jumlah gp yang dimliki di kotak valuenya, dan klik "first scan"
  • dan akan mendapat hasil yang lumayan banyak.
  • balik lagi ke PESnya dengan menekan Alt + TAB, atau klik pada taksbar.
  • kurangi gp dengan membeli Equipment (dalam kasus saya membeli Physico terapi yang harganya 200GP) dan next sampai gpnya menjadi GP100
 

  • balik lagi ke Cheat enginenya dengan menekat Alt + Tab, atau Windows + D dan klik cheat engine di taksbar.
  • pada kotak valuenya ubah 300 menjadi 100, dan Klik "next scan"
 
  •  dan akan mendapatkan hasil seperti gambar dibawah.
 
  •  klik dua kali pada setiap addres yang didapatkan, sehingga address akan beradapada kolom bagian bawah seperti pada gambar dibawah

  •  pada kolom bagian bawah, ubah valuenya pada kedua address dengan keinginan anda contoh saya ubah dari 100 menjadi 900000, dan klik OK jika sudah.

  • jika langkah diatas telah selesai, buka lagi game PESnya dan lihat hasilnya (jika tidak terjadi perubahan pada gp, anda harus match dulu. dan kembali lagi setalah match selesai untuk melihat perubahannya. tapi jika gp tetap tidak bertambah anda harus mengalangi langkah langkah diatas lagi, dan pastikan semuanya dilakukan dengan benar)