PERCABANGAN pada PASCAL Afriduarchan1:02 PM 0 komentar

Statement penyeleksian kondisi berguna untuk memeilih satu dari 2 atau
lebih kemungkinan yang ada. Dan jika statement penyelsian kondisi tersebut terdiri
dari 2 atau lebih penyataan, maka pernyataan tersebut harus berada diantara begin
dan end.

1. Bentuk Perintah If Tunggal
Bentuk paling sederhana pilihan tunggal adalah IF-THEN, yakni jika hanya ada
satu pilihan yang disediakan. Statement IF-THEN digunakan untuk menyeleksi
suatu kondisi, bila kondisi yang diseleksi terpenuhi, maka statement yang mengikuti
THEN akan diproses. Sebaliknya bila kondisi tidak terpenuhi, maka yang akan
diproses adalah statement berikutnya. Bentuk umum statemen kendali IF untuk
pilihan tunggal
IF kondisi THEN

contoh:

Program Suhu1; USES Crt; VAR Suhu : Real; BEGIN ClrScr; Write (‘Suhu Tubuh : ‘); Readln (Suhu); IF Suhu > 37 THEN WriteLn(‘Suhu Tinggi !’); WriteLn(‘Selesai’); END.

2. Bentuk Perintah If Ganda
Bentuk yang digunakan adalah IF pilihan ganda, yakni dengan memilih salah
satu dari 2 alternatif yang disediakan. Bentuk umum :
IF kondisi THEN
Statemen1
ELSE
Statemen2.

contoh:

Program kata; uses crt; var i : integer; begin clrscr; write('Masukkan bilangan yang akan diuji : ');readln(i); if bil = 0 then begin write(‘Pernyataan Anda benar’); write(‘Silahkan diteruskan’); end else begin write(‘Pernyataan Anda salah’); write(‘Silahkan keluar); end; end.

3. Bentuk Perintah If Bertingkat
Bentuk statemen IF bertingkat merupakan variasi statemen IF yang lengkap.
Dalam pengambilan keputusan disediakan lebih dari 2 alternatif. Bentuk umum
statemen kendali IF bertingkat :
IF kondisi THEN
Statemen1
ELSE IF kondisi2 THEN
Statemen2
ELSE
Statemen berikutnya

contoh :

Program konversi; uses crt; var nilai : integer; Huruf : string; begin clrscr; write('Masukkan nilai yang akan diuji : ');readln(nilai); if nilai > = 90 then huruf :='A' else if nilai >= 80 then huruf:='B' else if nilai >=70 then huruf := ‘C’ else if nilai >=60 then huruf := ‘D’ else huruf := ‘E’; write('nilai huruf : ',huruf) end.

contoh output

Read More

Pengertian PASCAL Afriduarchan12:51 PM 0 komentar

Pascal adalah sebuah bahasa pemograman tempo dulu. Mungkin itu saja yang dapat saya definiskan, karena saya yakin pembaca lebih tahu mengenai definisi lengkap dari Pascal. Saya ingin berbagi ilmu walaupun cuma sedikit tentang pemograman dengan Pascal. Melalui tulisan ini, saya mencoba untuk mengulas program, prosedur dan fungsi menarik yang bisa Anda coba dan terapkan dalam pemograman Pascal.

Lebih lengkapnya download di sini

sumber : http://ilmukomputer.org/2008/11/25/pemrograman-pascal/

Read More

Perulangan dan Percabangan pada Visual Basic Afriduarchan10:22 AM 0 komentar

contoh  percabangan (Case_Of) =

Dim Upah, Gaji, Jamkerja As Long
Const Lembur As Long = 17500

Private Sub cmdhitung_Click()
If txtnama.Text = "" Then
    MsgBox "Nama Tidak Boleh Kosong", vbCritical, "Field Error"
    txtnama.SetFocus
    Exit Sub
End If

If cmbgolongan.Text = "" Then
    MsgBox "Golongan Belum Dipilih", vbCritical, "Field Error"
    cmbgolongan.SetFocus
    Exit Sub
End If
If txtjamkerja.Text = "" Then
    MsgBox "Jam Kerja Tidak Boleh Kosong", vbCritical, "Field Error"
    txtjamkerja.SetFocus
    Exit Sub
End If

If Not IsNumeric(txtjamkerja.Text) Then
    MsgBox "Harus Angka!", vbCritical, "Field Error"
    txtjamkerja.SetFocus
    Exit Sub
End If

lblnama.Caption = txtnama.Text
lblgolongan.Caption = cmbgolongan.Text
lbljamkerja.Caption = txtjamkerja.Text & " Jam"

Select Case cmbgolongan.Text
Case "A"
    Upah = 7000
    Jamkerja = txtjamkerja.Text
    If Jamkerja <= 48 Then
        Gaji = Upah * Jamkerja
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
    If Jamkerja > 48 Then
        Gaji = ((Jamkerja - 48) * Lembur) + (48 * Upah)
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
Case "B"
    Upah = 9000
    Jamkerja = txtjamkerja.Text
    If Jamkerja <= 48 Then
        Gaji = Upah * Jamkerja
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
    If Jamkerja > 48 Then
        Gaji = ((Jamkerja - 48) * Lembur) + (48 * Upah)
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
Case "C"
    Upah = 12000
    Jamkerja = txtjamkerja.Text
    If Jamkerja <= 48 Then
        Gaji = Upah * Jamkerja
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
    If Jamkerja > 48 Then
        Gaji = ((Jamkerja - 48) * Lembur) + (48 * Upah)
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
Case "D"
    Jamkerja = txtjamkerja.Text
    If Jamkerja <= 48 Then
        Gaji = Upah * Jamkerja
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
    If Jamkerja > 48 Then
        Gaji = ((Jamkerja - 48) * Lembur) + (48 * Upah)
        lblgaji.Caption = "Rp. " & Gaji & " /Minggu"
    End If
End Select

End Sub

Private Sub cmdkeluar_Click()
Tanya = MsgBox("Apakah Anda Yakin?", vbQuestion + vbYesNo, "Akhiri Program")
Select Case Tanya
Case vbYes
    End
Case vbNo
    Cancel = 1
End Select

End Sub

Private Sub cmdulangi_Click()
    txtnama.Text = ""
    cmbgolongan.ListIndex = 0
    txtjamkerja.Text = ""
    lblnama.Caption = ""
    lblgolongan.Caption = ""
    lbljamkerja.Caption = ""
    lblgaji.Caption = ""
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Tanya = MsgBox("Apakah Anda Yakin?", vbQuestion + vbYesNo, "Akhiri Program")
Select Case Tanya
Case vbYes
    End
Case vbNo
    Cancel = 1
End Select
End Sub

buat source code dari kakaknya yang lebih lengkap klik disini

Read More

Manusia dan Cinta Kasih Terhadap Lingkungan Afriduarchan2:22 PM 0 komentar

Hakikat cinta kasih yaitu cinta boleh jadi merupakan suatu istilah yang sulit untuk dibatasi secara jelas. Kendatipun demikian, sulit juga untuk diungkapkan dan diingkari bahwa cinta adalah salah satu kebutuhan hidup manusia yang cukup fundamental. Begitu fundamentalnya sampai-sampai membawa Victor Hago, seorang punnjagga terkenal, pada satu kesimpulan,bahwa mati tanpa cita sama halnya dengan mati dengan penuh dosa.

Cinta memang sangat erat terpaut dengna kehidupan manusia. Tidak pernah selintas pun orang berpikir bahwa cinta itu tidak penting. Mereka haus akan cinta.Kendatipun demikian, hampir setiap orang tidak pernah berpikir tentang apa dan bagaimana cinta itu. Padahal berpikir tentang apa dan bagaimana cinta itu padahal, cinta bisa diibaratkan sebagai suatu seni yang sebagaimana bentuk seni lainnya sangat memerlukan pengetahuan dan latihan untuk bisa menggapainya.

Cinta kasih mengandung arti yang berbeda-beda, misalnya istilah jatuh cinta, dilamun asamara, atau cinta kasih seorang ibu kepada bayinya, cinta kasih terhadap tanah air, cinta kasih terhadap alam, cinta kasih terhadap musik, mencintai sesame manusia seperti mencintai diri sendiri atau cinta seorang lelaki pada seorang perempuan. Semua istilah tersebut tidak sama tetapi merupakan variasi-variasi sekian banyak.

Cinta kasih terhadap lingkungan adalah cinta kasih kita terhadap alam semesta ini,mencitai keindahan dari lingkungan dan alam sekitar.Manusia adalah makhluk ciptaan Tuhan yang mencintai keindahan terhadap lingkungannya.Dimana dengan lingkungan yang indah manusia bisa menikmati suatu keindahan dan keasrian sehingga bisa menghilangkan kepenatan orang tersebut ketika menikmatinya.

Pada tulisan saya ini,saya mengutip sebuah tulisan dimana seseorang berkewarganegaraan asing jatuh cinta terhadap lingkungan yang berada di Indonesia,tepatnya di Sumatera Utara yaitu Danau Toba.Seseorang tersebut bernama Annette Horschmann,di tanah batak dia di beri nama Annette boru Siallagan.Dia lahir di Wengern, Germany pada tanggal 21 October 1967,ia telah 16 tahun tahun tinggal di Indonesia. Perempuan ini sangat berperan dalam kemajuan pariwisata Danau Toba Dia telah membangkitkan semangat orang Toba dia dan sebagai inspirasi orang2, dimana dia telah berperan penting dalam membersihkan lingkungan Danau Toba seperti pembersihan enceng gondong yang telah merusak perairan Danau Toba.Dengan begitu kecintaannya teradap lingkungan di danau toba ia sempat di nobatkan menjadi Duta Kebersihan Danau Toba.

Ini adalah kutipan artikel Annette “Kalau ku pandang kau dari jauh, Danau Toba yang indah… Tetapi kalau sudah dekat keindahan ini berkurang drastis di banyak titik di tepi Danau. Jarang kita mendapatkan teluk yang bebas dari “karpet terapung” yang terbentuk dari eceng gondok, yang mudah berkembang di air yang terpolusi dan dicampur dengan adanya ikan-ikan yang sudah mati ditepi Danau, maupun sampah yang sangat tidak enak dipandang di Danau Toba yang indah ini.

Padahal menurut orang tua mencemari Danau Toba pantang sekali karena ada kepercayaan-kepercayaan dari Nenek moyang, Danau Toba punya “tondi” atau roh yang akan marah dan manusia bisa jadi terancam musibah kalau mereka mengotori atau mencemari Danau Toba dan disekelilingnya. Makanya Ibu dari suami saya selalu memperingatkan anak anak “jangan buang sampah apapun ke Danau!” dan “kampung saya harus bersih dari sampah dan polusi” Kepercayaan Nenek moyang itu kebetulan bukan suatu fiktif belaka, tetapi fakta. Kalau orang tidak mulai sadar dan menjaga kebersihan air dan lingkungan, kesehatan kita dan mata pencaharian kita dari bisnis yang terkait dengan pariwisata akan terancam.

Maka dari itu kita jangan pernah malas atau letih membersihkan lingkungan disekeliling areal kita yang terjangkau, biarpun bukan kita yang membuang sampah di areal rumah kita tetapi orang yang belum sadar. Kalau tidak akan berakibat fatal bagi kita, generasi penerus dan para pengunjung yang datang ke Danau Toba ini. Karena ‘tidak membersihkan area disekeliling rumah kita sama saja kita juga ikut mengotori rumah kita, dimana kita membuang sampah sembarangan atau tidak pada tempat yang sudah disediakan’! Jangan pernah ada kata malas atau tidak mau melakukannya, karena banyak orang masih „buta atau tidak tahu“ tentang linkungan dan bahayanya lingkungan yang tercemar. Kita bisa mulai dari diri kita sendiri dan menegor atau menasehati orang yang belum mengerti, oleh dari itu akan tercipta lingkungan yang bersih dan nyaman!

“Kita harus bersama-sama meningkatkan daya saing, dengan berbagai kemudahan yang disediakan pemerintah, serta perbaikan layanan oleh pelaku-pelaku wisata,” katanya.”

http://naimarata.com/annette-horschmann-ketemu-cinta-sejati-di-danau-toba.html

Kita sebagai manusia seharusnya bisa mencintai lingkungan sama seperti kita mencintai makhluk hidup lainnya.Lingkungan juga bisa mempengaruhi psikologis kita manusia.Bila lingkungan yang kita cintai bersih,indah dan asri begitu juga isi hati kita manusia yang mencerminkan suasana lingkungan tersebut.Marilah kita cintai lingkungan sekitar kita.

Read More

Tugas IBD minggu 1 Afriduarchan12:16 PM 0 komentar

1.  Mata kuliah pengantar ilmu sosial bersifat :

     a. memberi arahan penekanan materi seluruh ilmu-ilmu sosial

     b. memberi arahan penekanan secara global dan tidak mendalam

     c. memberi arahan penekanan pada subyek oriented menuju specialisasi

     d. memberi penekanan mataeri ilmu sosial secara terperinci

jawaban : a

2.  Ilmu sosial dasar adalah :

     a. ilmu yang membahan mengenai masalaha sosial dalam kehidupan masyarakat

     b. ilmu yang memiliki wawasan komprehensif dan pendekatan integral

     c. tujuan pendidikan dan pengajaran di perguruan tinggi

     d. pengetahuan yang menelaah masalah-masalah sosial yang menggunakan pengertian-pengertian ( fakta, teori, konsep) berasal dari berbagai bidang pengetahuan keahian

jawaban : d

3. Latar belakang diberikannya ISD pada prinsipnya adalah menghindari :

     a. anggapan bahwa sistem pendidikan kita hanya mementingkan sosial science

     b. kritik terhadap sistem pendidikan kita oleh sejumlah cendikiawan

     c. anggapan bahwa sistem pendidikan kita tidak berbau kolonial

     d. a, b dan c benar

jawaban : c

4.  Tenaga ahli yang dihasilkan oleh perguruan tinggi diharapkan memiliki tiga ketrampilan yang tidak termasuk kedalam kemampuan ini adalah ;

     a. personal                                       c. likwidasi

     b. akademis                                     d. profesional

 jawaban : c

5.Profesional adalah kemampuan dalam bidang profesi tenaga ahli yang bersangkutan,   maksudnya adalah :

     a. para tenaga ahli diharapkan mempunyai pandangan yang luas

     b. peka terhadap masalah yang dihadapi oleh masyarakat Indonesia

     c. para tenaga ahli diharapkan memiliki pengetahuan dan ketrampilan yang tinggi dalam  

        bidang profesi

     d. a, b dan c benar

jawaban : c

6. ISD termasuk program pendidikan umu ( MKDU ) , tujuan dari MKDU adalah untuk

     a. memperluas cakrawala perhatian dan pengetahuan para mahasiswa sehingga  tidak

        terbatas pada bidang pengetahuan keahlian golongan asal masing-masing

     b. memberi pemahaman kepada mahasiswa sebagai layaknya mata kuliah lain yang

        diberikan

     c. mengantarkan mahasiswa agar menjauhi masalah-masalah sosial

     d. a, b dan c benar

 jawaban : a

7   Salah satu definisi ISD adalah ilmu-ilmu sosial yang dipergunakan dalam pendekatan, sekaligus sebagai sarana jalan keluar untuk mencari pemecahan masalah-masalah sosial yang berkembang dalam kehidupan masyarakat. Dari pernyataan itu maka ISD itu bersifat :

     a. subject-oriented                                                  c. problem-oriented

     b. object-oriented                                                   d. humanties

 jawaban : c

8. Ilmu pengetahuan sosial ( IPS ) merupakan :

     a. ilmu yang mempelajari manusia dan interaksinya

     b. bidang studi yagn merupakan paduan dari sejumlah mata pelajaran sosial

     c. suatu program pelajaran baru yang dikembangkan di perguruan tinggi

     d. a, b dan c benar

 jawaban : b

9.      Filsafat merupakan sumber ilmu pengeatahuan alam maupun sosial. Hakekat dari ilmu filsafat adalah mempersoalkan

a. asal-usul ilmu pengetahuan

b. hadup dan kehidupan manusia didunia

c. rasa ingin tahu manusia mengenai dunia

d. pencabangan ilmu pengetahuan

e.penelaahan alam sekitar dan perkembangannya

jawaban : b

10.  Menghadapi era globalisasi, lulusan perguruan tinggi dituntut kualitasnya secara memadai. Kualitas tersebut harus terlihat dengan diperolehnya pengetahuan, sikap, tingkah laku dan tindakan sebagai cerminan kepribadian Indoensia. Perolehan-perolehan ini adalah merupakan sebgaian dari kemampuan

A personal

B  profesonal

C  akademik

D  manajerial

E. vokasional

jawaban : a 

11.  Lulusan perguruan tinggi perlu memiliki wawasan yang tidak terbatas pada bidang keahliannya. ISD adalah bagian dari program mata kuliah dasar umum untuk membawa mahasiswa agar

A memiliki keahlian beragam menghadapi persaingan dunia kerja

B menyadari posisinya sebagai calon pemimpin masa depan

C peka,terbuka, dan ada rasa tanggungjawab terhadap masalah sekitar

D selalu mengikuti perkembangan masalah – masalah masyarakat

E memiliki kemampuan tinggi dalam profesinya

 jawaban : c

12.  ISD dan pengetahuan sosial dibedakan keduanya dalam hal orientasi atas pendekatan yang dilakukan. Beda keduanya adalah :

A isd berorientasi materi, pengetahuna sosial berorientasi multidisiplin

B isd berorientasi materi, pengetahuan sosial berorientasi inter disiplin

C isd berorientasi inter disiplin, pengetahuan sosial berorientasi praktis

D isd berorientasi inter disiplim, pengetahuan sosial  berorientasi materi

E isd berorientasi praktis, pengetahuan sosial berorientasi materi

jawaban : d

Read More