0 MANUSIA DAN TANGGUNG JAWAB

setiap manusia yang mempunyai jiwa kepemimpinan , pasti mempunyai rasa tanggung jawab. setiap orang secara individu pun pasti punya rasa tanggung jawab .Tanggung jawab bisa dikelompokkan dalam dua hal. Pertama, tanggung jawab individu terhadap dirinya pribadi. Dia harus bertanggung jawab terhadap akal(pikiran)nya, ilmu, raga, harta, waktu, dan kehidupannya secara umum. Kedua, tanggung jawab manusia kepada orang lain dan lingkungan (sosial) di mana ia hidup. Kita ketahui bersama bahwa manusia adalah makhluk yang membutuhkan orang lain dalam hidupnya untuk pengembangan dirinya. Dengan kata lain, ia mempunyai kewajiban-kewajiban moral terhadap lingkungan sosialnya. .Pada umumnya manusia mempunyai tanggung jawab kepada sesama manusia terutama kepada Tuhan YME,dan semuanya tertuang dalam Al-Quran dan Hadist. Semua itu dapat dilakukan dengan cara menjalankan kewajiban yang telah ditentukan Allah SWT,seperti sholat, dan berpuasa serta kewajiban lain yang ada di dalam rukun Islam, dan apabila dilanggar akan mendapat balasan di akhirat.

0 manusia dan keindahan

indah ?? keindahan ?? menurut saya indah itu adalah sesuatu yang abstrak dan sangat menyenangkan untuk dilihat..dia mempunyai keunikan , cantik ,bagus , dsb .

saya mengambil contoh saja, alam semesta ini.. ciptaan Tuhan , keindahannya yang dapat dinikmati oleh semua manusia .

ya tidak usah jauh-jauh , dalam kehidupan sehari-hari , para pria selalu melihat wanita dengan cara mereka , terkadang wanita itu mereka anggap indah , entah dalam sisi apa mereka melihatnya . haha .. ada yang positif atau negatif .

tapi setidaknya kita harus menjaga dan bersyukur atas keindahan yang sudah kita dapatkan , kita rasakan .

0 TUGAS BU MARLIZA No.7

program :
uses crt;
function ratarata (A : array of integer):real;
var i,jml,bnykdata : integer;
begin
jml := 0;
bnykdata := 0;
for i := low (A) to high (A) do begin
jml := jml + A [i];
inc(bnykdata);
end;
ratarata := jml/bnykdata;
end;
function simpanbaku (A : array of integer):real;
var i,bnykdata : integer;
ratarata,jml : real;
begin
ratarata := ratarata ;
jml := 0;
bnykdata := 0;
for i := low (A) to high (A) do
begin
jml := jml + sqrt (A [i] - ratarata);
inc (bnykdata);
end;
simpanbaku := sqrt (jml/bnykdata);
end;
var arr : array [1..8] of integer;
begin
clrscr;
arr [1] := 12;
arr [2] := 6;
arr [3] := 7;
arr [4] := 3;
arr [5] := 15;
arr [6] := 10;
arr [7] := 18;
arr [8] := 5;
writeln('ratarata : ', ratarata(arr):0:2);
writeln('simpanganbaku : ', simpanbaku(arr):0:2);
readln;
end.

output :

tugas no. 7

nama : aisyah purnamasari & nurmala febriyanti putri

kelas : 1KA22

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 :)