MANUSIA DAN PENDERITAAN

penderitaan adalah kejadian tidak menyenagkan yang dialami oleh manusia. setiap manusia pasti mengalami yang namanya penderitaan. Baik penderitaan secara fisik atau pun batin.
banyak manusia mengalami siksaan. baik siksaan yang diperoleh dari sesama manusia ataupun yang diperoleh dari tuhannya.
manusia bisa saling menyiksa, contoh banyak para pembantu rumah tangga disiksa oleh majikannya sendiri cuma karena masalah sepele. Semuanya itu terjadi karena kurangnya moral dan cinta kasih terhadap sesama.Penderitaan yang dialami oleh manusia secara batin saya rasa hanya bersifat sementara. semuanya tergantung dari diri kta yang menyikapi masalah tersebut.tetapi Penderitaan yang tidak kunjung terelesaikan bisa juga malah menambah masalah baru, akhirnya si orang tersebut menjadi gila akibat penderitaannya tersebut.
solusi yang bisa digunkan antara lain adalah: 1. memperbanyak pergaulan/teman, dengan adanya banyak teman kamu secara tidak langsung dapat melupakan semua penderitaan tersebut. kamu bisa berbagi degan teman di sekeliling kamu. siapa tau ja teman kamu bisa membantu masalah tersebut.
2. memperbanyak ibadah, dengan beribadah kepada tuhan secara tidak langsung kita dapat meringankan masalah kita. karena hanya dengan tuhan lah kita kembali kepada jalan yang benar.
pesan saya adalah "penderitaan bukan lah akhir dari segalanya, masih banyak jalan keluar untuk memecahkan masalah tersebut.. tetap semangat menjalani hari-harimu..!!!"

MANUSIA DAN CINTA KASIH

cinta adalah sebuah perasaan yang muncul kepada seseorang dari dasar hati, dengan kata lain mencintai seseorang tersebut dengan apa adanya. Kasih adalah mengasihi seseorang yang kita cintai.
disini saya akan bercerita tentang cinta kasih kepada mama. cerita ini adalah pengalaman pribadi.
ibuku seorang guru di sebuah SMA di jakarta, dan seorang dosen di salah satu perguruan tinggi dijakarta. Ibuku seorang pekerja keras. Dari dia masih muda dia sudah bisa biayain unuk dirinya sendiri tanpa meminta dari orang tua. sampai sekarang pun ia masih bekerja untuk menghidupi anak-anaknya. aku punya pa2, bapak ku seorang guru di salah satu SMA dijakarta. sifat bapak dan ibuku berbeda sekali. Ibuku seorang yang rajin sekali, dia rela hingga tengah malam menghabiskan waktunya bekerja untuk membiayai anak-anaknya. berbeda dengan ayahku, ayahku seseorang yang tidak terlalu rajin, dalam kata lain tidak serajin ibuku.
Ibuku jarang sekali dirumah. pada suatu hari ibku sudah malam belum juga tiba dirumah. Akhirnya aku sms "bu ada dimana..??" lalu ibuku membalas sms tersebut " ibu lagi di angkot mw pulang, ibu abis keja capek bgt", lalu aku membalas " ydh ibu jgn capek2 kerjanya entar sakitnya kumat loh". ibuku membalas lagi " abisnya kalo ibu ga kerja banting tulang kayak gini kamu mw dibiayain pke apa..?? mang udah nasib ibu susah dari muda., ibu engga apa apa sakit-sakitn yang penting ibu bsa bahagiain anak-anak ibu". pada saat itu aku meneteskan air mata membaca sms tersebut. Aku sangat terharu dengan perjuangan ibuku menghidupkan keluargaku. setelah aku menangis aku membalas sms ibuku, " tpi ibu ga boleh capek2 tar sakit lagi..!! suatu saat pasti gilang bisa bahagiain ibu". lalu ibuku membalas untuk terakhir kalinya " iya.. makasih ya a".
dengan kejadian tersebut aku benar-benar langsung ingin membahagiakan orang tuaku. orng tuaku susah payah untuk menghidupi keluargaku. Aku harus bisa menjadi yang terbaik untuk kelurgaku suatu saat nanti. I LOVE U MOM'S....

program rekursi

Program rekursi (bagian 1)



listing program 6.11


program RekursiFaktorial;
uses
crt;

function faktorial(x: integer) : integer ;
begin
if (x=0) then
faktorial := 1
else
faktorial := x * faktorial (x-1);
end;
var
bil, hasil : integer ;
begin
clrscr;
write ('Masukan Bilangan yang akan dihitung : '); readln(bil);
hasil := faktorial(bil);
writeln;
writeln(bil, ' ! = ', hasil);
readln;
end.

output program 6.11




progarm rekursi (bagian 2)

listing program 6.12

program RekursiPerpangkatan;

uses
crt ;

function pangkat(basis, eksp: integer): integer;
begin
if (eksp=0) then
pangkat := 1
else
pangkat := basis * pangkat(basis, eksp-1);
end;

var
hasil : integer;
begin
clrscr;
hasil := pangkat(2, 5);
writeln('2^5 = ', hasil);
readln;
end.

output program 6.12

REPEAT... UNTIL..

uses crt;
var
nilai : integer;
begin
clrscr;
nilai:=1;
repeat
writeln (nilai);
nilai:= nilai +1;
until nilai > 20;
readln;
end.

Manusia dan kebudayaan

Kebudayaan sangat erat hubungannya dengan masyarakat. Melville J. Herskovits dan Bronislaw Malinowski mengemukakan bahwa segala sesuatu yang terdapat dalam masyarakat ditentukan oleh kebudayaan yang dimiliki oleh masyarakat itu sendiri. Istilah untuk pendapat itu adalah Cultural-Determinism.

Herskovits memandang kebudayaan sebagai sesuatu yang turun temurun dari satu generasi ke generasi yang lain, yang kemudian disebut sebagai superorganic. Menurut Andreas Eppink, kebudayaan mengandung keseluruhan pengertian nilai sosial,norma sosial, ilmu pengetahuan serta keseluruhan struktur-struktur sosial, religius, dan lain-lain, tambahan lagi segala pernyataan intelektual dan artistik yang menjadi ciri khas suatu masyarakat.

Menurut Edward Burnett Tylor, kebudayaan merupakan keseluruhan yang kompleks, yang di dalamnya terkandung pengetahuan, kepercayaan, kesenian, moral, hukum, adat istiadat, dan kemampuan-kemampuan lain yang didapat seseorang sebagai anggota masyarakat.

Menurut Selo Soemardjan dan Soelaiman Soemardi, kebudayaan adalah sarana hasil karya, rasa, dan cipta masyarakat.

Dari berbagai definisi tersebut, dapat diperoleh pengertian mengenai kebudayaan adalah sesuatu yang akan mempengaruhi tingkat pengetahuan dan meliputi sistem ide atau gagasan yang terdapat dalam pikiran manusia, sehingga dalam kehidupan sehari-hari, kebudayaan itu bersifat abstrak. Sedangkan perwujudan kebudayaan adalah benda-benda yang diciptakan oleh manusia sebagai makhluk yang berbudaya, berupa perilaku dan benda-benda yang bersifat nyata, misalnya pola-pola perilaku, bahasa, peralatan hidup, organisasi sosial, religi, seni, dan lain-lain, yang kesemuanya ditujukan untuk membantu manusia dalam melangsungkan kehidupan bermasyarakat.

tugas pascal no 5

uses wincrt;
var input:real;
c, f, r:real;
suhu:char;
angka:real;
puas:char;
Celcius, Reamur, Fahrenheit:real;
label 100;

begin

100:
write(’Masukkan Jenis Suhu Celcius/ Fahrenheit/ Reamur (c/f/r) : ‘);
readln(suhu);

if(suhu <> ‘c’)then
if(suhu <> ‘f’)then
if(suhu <> ‘r’)then

begin
writeln(’Jenis suhu yang anda masukan salah, silahkan ulangi sekali lagi’);
writeln;
goto 100;
end;

begin
write(’Masukkan angka : ‘);
read(angka);
readln;
end;

if(suhu = ‘c’)then
begin
f:=(angka * 9/5) + 32;
r:=angka * 4/5;
writeln(’Hasil konversi dari suhu : Celcius’);
writeln(’Dalam Fahrenheit adalah : ‘,f:4:2);
writeln(’Dalam Reamur adalah : ‘,r:4:2);
end;

if(suhu = ‘f’)then
begin
c:=(angka * 5/9);
r:=(angka * 4/9) + 32;
writeln(’Hasil konversi dari suhu : Fahrenheit’);
writeln(’Dalam Celcius adalah : ‘,c:4:2);
writeln(’Dalam Reamur adalah : ‘,r:4:2);
end;

if(suhu = ‘r’)then
begin
c:=angka * 5/4;
f:=(angka * 9/4) + 32;
writeln(’Hasil konversi dari suhu : Reamur’);
writeln(’Dalam Celcius adalah : ‘,c:4:2);
writeln(’Dalam Fahrenheit adalah : ‘,f:4:2);
end;

write(’Apakah Anda puas? (y/n) : ‘);
readln(puas);

if(puas=’n')then
goto 100

end.

tugas pascal (bu marliza)

uses crt;
var
digit: integer;
begin
clrscr;
digit:=1;
while digit <= 20 do
begin
write(digit);
digit:= digit+1;
readln;
end;
end.


uses crt;
var
digit: integer;
begin
clrscr;
digit:=1;
while digit <= 20 do
begin
write(digit);
digit:= digit+1;
readln;
end;
end.

uses crt;
var
nilai ujian:real;
ket : string;
begin
clrscr;
ket :='Tidak Lulus';
write ('Nilai yang didapat ? ');
readln (nilaiujian);
if nilaiujian > 60 then ket := 'LULUS';
writeln (ket);
readln;
end.


uses crt;
var
nilaiujian: real;
ket : string;
begin
clrscr;
ket := 'tidak lulus';
write ('Nilai yang didapat ? ');
readln (nilaiujian);
if nilaiujian > 60 then ket := 'LULUS';
writeln (Ket);
readln;
end.


uses crt;
var
nilai : char;
begin
clrscr;
write('Nilai huruf yang didapat : ');readln(nilai);
case nilai of
'A' : writeln ('T-shirt');
'B' : writeln ('Sepatu');
'C' : Writeln ('Topi');
end;
readln;
end.

Contoh Program Pascal

uses crt;

var a : integer :
begin
for a := 1 to 5 do
writeln(a);
readln;
end.