0 MANUSIA dan HARAPAN

Harapan ??

setiap manusia pasti punya harapan .. siapapun itu pasti punya harapan, walau terkadang pasrah akan sebuah keadaan . berhasil atau tidak harapan itu terwujud tergantung dari usaha orang tersebut . 

Semenjak dulu , mungkin dari saya SMP , saya mempunyai harapan ingin kuliah di perguruan tinggi negeri dengan jurusan Psikolog . stiap orang yang bertanya 'mau kuliah dmn' , 'mau ambil jurusan apa'.. slalu sama jawaban saya seperti apa yang saya impikan !!

Ketika saya mengikuti tes , dan tau hasilnya .. ternyata saya gagal masuk perguruan tinggi negeri . cukup sedih juga rasanya , apa mungkin karena orang tua juga kurang menyetujui saya ambil jurusan psikolog ?? entah .

oke saya pikir , saya masih bisa mengambil jurusan tersebut di PTS . tapi tetap tak dapat persetujuan .

akhirnya saya kuliah mengambil fakultas ilmu komputer . sedikit malas-malasan sebenarnya , karena saya bingung apa yang saya pelajari , apa yang saya dapat dari belajar seperti ini ????!!!!!

sempat stress menjalaninya ,, hingga IP semester pertama saya cukup pas-pasan --" arghhh !!

tapi saya sekarang sudah mulai terbiasa , sempat mikir juga , orang tua saya sudah bayar mahal untuk saya kuliah. membelikan kebutuhan saya untuk kuliah , kalo saya harus pindah lagi , brapa banyak lagi yang harus di kluarkan oleh mereka ?? :( huftttt

yang ada di benak saya , suatu hari nanti saya harus bisa jadi orang sukses , orang yang bisa membuktikan pada kedua orang tua saya , kalo saya akan berhasil !!! AMIN .INSYA ALLAH .

ya.. itulah harapan saya pribadi meskipun melenceng dari harapan saya sebelumnya,, pasti kalian sendiri pun punya harapan masing-masing . dan semoga harapan itu bisa terwujud nantinya .

0 tugas pascal

FOR ... DOWNTO ... DO
uses crt;
var

x: integer;
begin
clrscr;
for x := 5 downto 1 do
begin
writeln (x);
end;
readln;
end.
------------------------------------------

REPEAT ... UNTIL

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

FOR ... TO ... DO

uses crt;
var

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

-----------------------------------

FOR ... TO ... DO

uses crt;
var
a,b,c,d,e : integer ;
begin
clrscr ;
write ('masukkan angka : '); readln (a);
for b := 1 to a do
begin
for c := 1 to b do
begin
write (c);
end;
writeln;
end;
for d := a downto 1 do
begin
for e := 1 to (d-1) do
begin
write (e);
end;
writeln;
end;
readln;
end.
--------------------------------------------------------------
IF ... THEN

uses crt;
var
nilai : integer;
hasil : string;
begin
clrscr;
hasil = 'tidak lulus';
write ('Masukkan Nilai anda : ');readln(nilai);
if nilai >= 80 then
hasil = 'Lulus';
writeln (hasil);;
readln;
end.
-------------------------------------------------------

WHILE ... DO

uses crt;
var

y : integer;
begin
clrscr;

y:=1;
while(y<=5) do
begin
writeln('ok ', y);

y:=y+1;
end;
readln;
end.
--------------------------------------------

WHILE..DO
uses crt;

var

digit: integer;
begin;
clrscr;
digit := 1;
while digit <= 20 do
begin write(digit);
digit:= digit +1;
end;
readln;
end.
----------------------------------------------
CASE ...OF

uses crt;
var nilai :char;
begin;
clrscr;
write('Nilai huruf yang didpat : '); readln(nilai);
case nilai of
'A' :writeln('PIRING');
'B' :writeln('GELAS');
'C' :writeln('SENDOK');
end;
readln;
end.
-----------------------------------------------------------

0 konversi suhu

0 MANUSIA dan PENDERITAAN

derita ?? apa c derita itu ?? bagi saya derita atau penderitaan adalah sesuatu yang sakit untuk dirasakan .

banyak penderitaan yang saya alami begitu juga dengan keluarga, apalagi penderitaan ibu saya yang terjadi sekitar 2 taun lalu, ibu saya sakit.. banyak penyakit yang dia alami saat itu, entah itu apa terjadi komplikasi sehingga dalam perutnya banyak cairan yang membuat jadi kembung. gara-gara sakit itu ibu saya tidak pernah tidur, ketika itu saya ingin selalu memeluk ibu dan menangis di hadapannya dan berkata "cepat sembuh bu",

tapi saya tidak bisa, saya hanya bisa menangis di kamar sendiri !!! saya mempunyai adik 1 , laki-laki bernama reza. ketika itu masih SD , saya tidak dapat membayangkan jika ibu saya tiada nantinya , karena saat itu ibu saya selalu saja membicarakan tentang kematian , yang selalu saya ingat pesanny adalah "jaga reza",, 

saat itu ekonomi keluarga saya sedang tidak cukup untuk membawa ibu saya ke rumah sakit, jadi hanya di bawa ke dokter saja . tapi tetap keadaannya tidak membaik , ketika tetangga saya datang menjenguk ada yang memberi tau bahwa ada dokter yang cukup bagus, malam itu juga ibu saya di bawa k tempat tersebut, dan setelah seminggu dari berobat tersebut ALHAMDULILLAH ibu sembuh !! meski harus rawat jalan , tapi setidaknya ibu bisa lebih baik dari saat itu . bisa di bayangkan penderitaan apa yang ibu saya alami, begitu juga dengan keluarga saya. tapi ALLAH masih sayang dengan keluarga saya.kami smua cukup bersyukur atas kesembuhan ibu .
terima kasih ya Allah :)

0 MANUSIA DAN CINTA KASIH

PENGERTIAN CINTA KASIH

cinta adalah rasa sangat suka (rasa) sayang (kepada), ataupun (rasa) sangat kasih atau sangat tertarik hatinya. sedangkan kata kasih artinya perasaan sayang atau cinta kepada atau menaruh belas kasih.. karena itu cinta kasih dapat diartikan sebagai perasaan suka .

cinta itu memberi bukan menerima dan memberi merupakan ungkapan yang paling tinggi dari kemampuan.

pengertian cinta dikemukakan juga oleh Dr Sarlito W Sarwono bahwa cinta memiliki tiga unsur yaitu keterkaitan, keintiman, dan kemesraan.

CINTA KASIH

kata cinta , selain mengandung unsur perasaan aktif juga menyatakan tindakan yang aktif. pengertiannya sama dengan kasih sayang sehingga, kalo seseorang mencintai orang lain, artinya orang tersebut berperasaan kasih sayang atau berperasaan suka terhadap orang lain tersebut.

Cinta menurut ajaran agama :

• cinta diri
• cinta kepada sesama manusia
• cinta seksual
• cinta kebapakan
• cinta kepada ALLAH SWT
• cinta kepada RASUL

KASIH SAYANG

perasaan sayang, perasaan cinta atau perasaan suka kepada seseorang. dlam kasih sayang tidak sadar dari masing-masing pihak di tuntut tanggung jawab, pengorbanan, kejujuran, saling percaya, saling pengertian, saling terbuka, sehingga keduanya adalah kesatuan yang bulat dan utuh.

cinta kasih ?? smapai sekarang juga saya terkadang masih belum bisa mengerti bagaimana mengartikannya dengan kata-kata..

yang saya bisa lakukan hanya dengan perbuatan,sikap yang menunjukkan bahwa saya sayang atau cinta.

terkadang saya hanya bisa memberi cinta tanpa mendapat balasan..atau hanya disakiti.. sakit memang.... tapi tu perasaan yang tulus untuknya :) 

memang cinta atau kasih sayang bukan hanya untuk seorang kekasih saja. tapi bisa untuk siapa saja :) paling utama bagi saya adalah keluarga dan teman serta ALLAH SWT.

0 program pascal

program tes;
uses crt;
var
a,b,i : integer;
begin
clrscr;
write ('masukan bil1: ' );readln(a);
write (;masukan bil2: ' );readln(b);
i : =1;
while i<=b do
begin
write (a*i, ' ' );
i : =i+1;
end;
readln;
end.