CONTOH PROGRAM PASCAL DENGAN IF DAN PROSEDUR Program Genap program genap; uses wincrt; var x : integer; begin write('masukkan angka =');read (x); if x mod 2=0 then write('genap') else write('ganjil') end. Program Konversi Suhu Program Konversi_Suhu_Aziz; Uses WinCrt; var f,c:real; begin Writeln('Program Konversi Fareinheit Ke Celcius'); Writeln('======================================'); Writeln; Write('Masukan Suhu dalam Farenheit: ');readln(f); c:=5/9*(f-32); Writeln; Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2); end. Program konversi waktu Program Konversi_Waktu_Aziz; Uses Wincrt; Var j,m,d,h:integer; begin Writeln('Program Konversi Waktu Aziz'); Writeln('======================'); Writeln; Write('Masukkan Jumlah Jam : ');readln(j); Write('Masukkan Jumlah Menit : ');readln(m); Writeln; h:=(j*3600)+(m*60); Writeln('Jadi Hasil Konversi : ',h,' Detik'); end. Program Hak Pilih program hakpilih; uses wincrt; var KWN, KS, umur : integer; nama : string; begin writeln('=========== Panduan ==========='); writeln('kode warga Negara : '); writeln('1.WNI'); writeln('2.WNA'); writeln('kode status : '); writeln('1.menikah'); writeln('2.tidak menikah'); writeln('==============================='); write('masukan nama : '); readln(nama); write('masukan kode KWN : ' ); readln(KWN); if KWN = 1 then begin write('masukan umur : '); readln(umur); if umur >= 17 then writeln(nama, ' sudah termasuk hak pilih') else begin write('masukan kode status : '); readln(KS); if KS = 1 then writeln(nama, ' sudah termasuk hak pilih') else writeln(nama, ' belum termasuk hak pilih'); end; end else writeln(nama, ' belum termasuk hak pilih '); end. Program Konversi program konversi_nilai; uses wincrt; var n:integer; nama,pelajaran: string; begin writeln('Program Konversi Nilai Nur Sumiati'); writeln('=================================='); writeln('masukkan nama: ');readln(nama); writeln('masukkan pelajaran: ');readln(pelajaran); writeln('masukkan nilai: ');readln(n); writeln; writeln; writeln; writeln('HASIL'); writeln('Nama : ',nama); writeln('Pelajaran : ',pelajaran); if(n>=85)and(n<=100) then writeln('Anda mendapatkan nilai A = sangat baik'); if(n>=75)and(n<=84) then writeln('Anda mendapatkan nilai B = baik'); if(n>=65)and(n<=74) then writeln('Anda mendapatkan nilai C = cukup'); if(n>=0)and(n<=64) then writeln('Anda mendapatkan nilai D = kurang'); end. Program Belanja program belanja; uses wincrt; var j:real; begin writeln('Program Hadiah Belanja Nur Sumiati'); writeln('======================'); writeln('Berapa total belanja anda?Rp. ');readln(j); if (j>=200000) then writeln('Selamat anda mendapatkan hadiah BONEKA'); if (j>=150000)and(j<=199999) then writeln('Selamat anda mendapatkan hadiah HANDUK'); if (j>=100000)and(j<=149999) then writeln('Selamat anda mendapatkan hadiah KANEBO'); if (j>50000)and(j<=99999)then writeln('Selamat anda mendapatkan hadiah Sapu Tangan'); if (j<=49999) then writeln ('Maaf anda tidak mendapatkan hadiah'); end. Program Promo program promo; uses wincrt; var beli:real; begin writeln('Program Promosi Produk TOP Kopi Nur'); writeln('=================================='); writeln; writeln('Pembelian kopi : ');readln(beli); writeln; writeln; if (beli>=15) then writeln('gratis 4'); if (beli>=10)and(beli<=14) then writeln('gratis 3'); if (beli>=5)and(beli<=9) then writeln('gratis 2'); if (beli>=2)and(beli<=4) then writeln('gratis 1'); if (beli<=2) then writeln('gratis seduh'); end. Program Liburan program liburan; uses wincrt; var uang:real; begin writeln('Paket Hemat Liburan'); writeln('==================='); writeln; writeln('Berapa uang yang anda miliki: '); readln(uang); writeln; writeln; if uang>=200000 then writeln('cukup untuk liburan ke pangandaran'); if (uang>100000)and(uang<=199999) then writeln('cukup untuk liburan ke icakan'); if (uang>=50000)and(uang<=99999) then writeln('cukup untuk liburan ke karang kamulyan'); if (uang<=50000) then writeln('hanya cukup untuk liburan ke kuburan, wkwkwkwk'); end

Tugas Soal dan Jawaban Pascal

Struktur pertama dalam pascal adalah.....

a. Char;

b. String

c. End.

d. Writeln

e. Uses Crt; Alasan : uses digunakan untuk memanggil unit library 

2.   Untuk melihat hasil dari program yang di kerjakan tekan tombol....

a. Ctrl+F5

b. Ctrl+F9

c. Ctrl+F2

d. Ctrl+F12

e. Ctrl+F4 Alasan : Ctrl + F9 = Run /Jalankan

3.     Berapa kode yang digunakan  untuk membuat tulisan berwarna “CYAN”....

a. 4

b. 2

c. 128

d. 7

e. 3

Alasan : 1 : Biru, 2 : Hijau, 3 : Cyan, 4 : Merah

4.   Perintah dasar sederhana dalam program pascal adalah.....

a. Readln

b. End

c. Write

d. Writeln

e. Uses crt;  Alasan : write digunakan untuk membuat suatu perintah

5.   Tipe data bahasa pascal untuk TRUE FALSE  adalah....

a. String

b. Char

c. Boolean

d. Byte

e. Real

Alasan : Karena Boolean adalah suatu tipe data yang hanya mempunyai dua nilai. Yaitu true atau false (benar atau salah).

6.   Siapakah penemu program pascal....

a. Greyson Change

b. Prof. Niklaus Wirth

c. Kondrazuse

d. Prof. Niklaus Smirth

e. Dr.  Hercules

Alasan : Karena Pascal merupakan bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth

7.   Struktur bahasa pemrograman pascal paling pertama adalah....

a. Var;

b. Begin

c. End;

d. Uses crt;

e. Writeln;

Alasan : Hampir sama dengan Alasan no 1 Karena Keyword uses digunakan untuk memanggil unit library pascal.

8.   Tipe data pascal untuk karakter adalah....

a. Char

b. Boolean

c. Integer

d. Real

e. Byte

Alasan : Karena Char menampilkan semua karakter dari tabel ASCII

9.   Kapan terbentuknya pascal....

a. 1981

b. 1971

c. 1961

d. 1991

e. 1987

Alasan : Karena pada tahun 1971 Pascal  di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP), sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya

10.  Apa kepanjangan dari USES....

      a. Unit Secure

      b. Unit Syntax

c. Unit System

d. Up Software

e. Unit Semiconductor

Alasan : Karena uses merupakan pengenal untuk suatu sistem operasi yang di gunakan.

11. Berikut ini adalah penulisan identifier yang benar dalam pemrograman pascal adalah....

a. 9Program_Satu

b. Program_Satu

c. Program Satu

d. Begin

e. Array

Alasan : Karena Nama identifier harus dimulai dengan karakter huruf alfabet: a sampai z, A sampai Z atau karakter ‘_’ (underscore – garis bawah)

12. Tipe bilangan bulat dalam bahasa pascal dikenal sebagai....

a. Byte

b. Integer

c. Char

d. String

e. Boolean

Alasan : Karena Integer merupakan tipe data berupa bilangan bulat.

13. Istilah “perulangan” dalam pemrograman pascal dikenal dengan....

a. Repeating

b. Again

c. Function

d. Replay

e. Looping

Alasan : Karena dalam logika pemrogaman, Looping disebut juga perulangan.

14. Perintah untuk menutup program pada Pascal adalah...

a. END.

b. Program

c. Uses crt;

d. Finish

e. END;

Alasan : Karena untuk mengakhiri program pascal, interuksi END harus diikuti operator akhir program yaitu tanda titik (.)

15. Menggambarkan program secara logika merupakan fungsi dari...

a. Flowchart

b. DxDiag

c. Begin

d. SI

e. Sistem Operasi

Alasan : Karena Flowchart adalah penggambaran secara grafik dari langkah-langkah dan urutan-urutan prosedur dari suatu program.

16. Deklarasi yang digunakan untuk mengidentifikasikan data yang nilainya sudah ditentukan dan pasti, tidak  dapat  dirubah dalam program disebut deklarasi....

a. Deklarasi label

b. Deklarasi Konstanta

c. Deklarasi tipe

d. Deklarasi Variabel

e. Deklarasi Prosedur

Alasan : Karena Konstanta merupakan suatu nilai yang tidak dapat diubah selama proses program berlangsung. Konstanta nilainya selalu tetap.

17. Dibawah ini termasuk dalam Deklarasi dalam Pascal, kecuali....

a. Deklarasi perubah

b. Deklarasi proses

c. Deklarasi konstanta

d. Deklarasi tipe

e. Deklarasi prosedur

Alasan : Karena Deklarasi Proses tidak termasuk dalam macam-macam Deklarasi dalam Pascal.

18. Bilangan  yang  mengandung pecahan, palingsedikit  harus ada satu digit  sebelum dan sesudah titik  desimal termasuk dalam tipe data...

a. Real

b. Boolean

c. Integer

d. Longint

e. Byte

Alasan : Karena Tipe Data Real merupakan semua nilai pecahan dari 1E-38 to 1E+38.

19. Prosedur yang digunakan untuk membersihkan layar saat program dijalankan adalah....

a. Writeln

b. Readln

c. Begin

d. Write

e. Clrscr Alasan : Karena Clrscr, adalah prosedur untuk membersihkan layar yang ada di dalam unit CRT, maka untuk dapat memakai Clrscr, unit Crt harus di ‘Uses‘ dalam deklarasi unit.

20. Bentuk dari suatu  statement IF  berada  di dalam lingkungan statemen IF  yang  lainya, disebut IF dalam kondisi....

a. IF bersarang

b. IF bercabang

c. IF tunggal

d. IF-THEN

e. IF do while-until

Alasan : Karena suatu pernyataan IF bisa berada dalam pernyataan IF. Pernyataan IF seperti ini disebut IF bersarang (Nested IF).

21. Tipe data terstruktur yang  terdiri  dari  sejumlah komponen  komponen yang mempunyai tipe sama, disebut tipe data...

a. Array

b. Byte

c. Longint

d. Integer

e. Boolean

Alasan : Karena array adalah sebuah struktur datayang terdiri atas banyak variabel dengantipe data sama, dimana masing-masingelemen variabel mempunyai nilai indeks.

22. Perintah untuk menampilkan atau cetak dilayar monitor tanpa pindah baris, disebut...

a. Writeln

b. Write

c. Readln

d. Read

e. Begin Alasan : Karena Write menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama.

23. Perintah untuk menampilkan atau cetak dilayar monitor lalu pindah bariskebawah, disebut...

a. Writeln

b. Write

c. Readln

d. Read

e. Begin

Alasan : Karena writeln digunakan untuk menampilkan tampilan perbaris, akan ganti baris untuk tampilan berikutnya.

24.  Suatu identifier non-standar yang nilainya tidak tetap atau nilainya merupakan hasil dari suatu proses, disebut....

a. Variabel

b. Tipe Data

c. Prosedur

d. Deklarasi

e. Array

Alasan : Karena Variabel (variable) adalah objek data yang dapat diubah-ubah (dimanipulasi) nilainya.

25.  Suatu program terpisah dalam blok sendiri yang berfungsi sebagai subprogram ( program bagian ), disebut...

a. Variabel

b. Tipe Data

c. Prosedur

d. Deklarasi

e. Array  Alasan : Karena Prosedur adalah suatu program terpisah dalam blok tersendiri yang berfungsi sebagai sub program (program bagian) dan diawali dengan kata cadangan Procedure.

 

share

Kiat Menjadi Sahabat Yang Baik

1. Bersikaplah terbuka. Keterbukaan tidak saja akan membuat sahabat Anda lebih mengenal Anda, tetapi Anda juga akan lebih mengenal diri sendiri. Ungkapkanlah perasaan2, keinginan dan harapan-harapan Anda. Hanya dengan keterbukaan, Anda bisa bicara dari hati kehati, dan itu sangat penting bagi keintiman persahabatan. 2. Ciptakanlah keseimbangan antara memberi dan menerima. Anda tidak cukup hanya berperan sebagai pemberi tanpa menerima atau hanya sebagai penerima tanpa memberi. Hal ini menyangkut aspek yang luas, termasuk berbagi kegembiraan dan kesedihan. 3. Terimalah sahabat Anda sebagaimana adanya. Jadilah sahabatnya tanpa menuntutnya berubah sesuai keinginan Anda. Mungkin dia terlalu cerewet, agak cuek, sangat sensitif atau matre. Dia memang tidak sempurna dan mungkin sering melakukan hal-hal yang Anda tidak sukai. Namun jangan lupa, Andapun tidak luput dari kelemahan dan kekurangan. 4. Bila sahabat Anda mempunyai sifat atau kebiasaan yang umumnya tidak disukai orang lain dan bisa menghambat pergaulannya, ingatkanlah dia pada waktu yang tepat. Barangkali selama ini dia tidak menyadari atau belum pernah ada seorangpun yang mengkritiknya. Kalau diperlukan, berilah saran dan biarkan dia berubah sedikit demi sedikit. Supaya fair, boleh juga Anda memintanya mengkritik Anda. 5. Bermurahhatilah. Ulurkanlah tangan ketika ia memerlukan bantuan, hiburlah ketika dia sedang sedih, dengarkanlah ketika dia mencurahkan isi hatinya, temanilah ketika dia mengalami masa-masa sulit, doronglah semangatnya dll. 6. Berikanlah perhatian. Meskipun ia tampak tidak membutuhkannya, namun dia akan senang menerimanya. Jangan melupakan hari-hari istimewanya, bawakan oleh-oleh ketika Anda Pulang dari kota, pujilah potongan rambutnya yg bagus, tanyakan khabar keluarganya, dsb. 7. Bersikaplah penuh toleransi. Tidak ada masalah bila Anda berbeda dengan sahabat Anda, baik agama, suku, prinsip atau kebiasaan. Semua itu bisa memperkaya suatu persahabatan bila kedua belah pihak mau saling mengahargai. Dan semakin baik toleransi Anda, maka akan semakin matang kemampuan Anda bersosialisasi. 8. Hargailah sahabat Anda sebagai seorang pribadi yang punya harga diri. Meskipun hubungan sudah sangat akrab, dia masih bisa tersingung dengan sikap dan ucapan Anda. Hatinya bisa terluka bila dihina, dikecam atau dipermalukan, meskipun dalam konteks bercanda. 9. Hormatilah privasi sahabat Anda. Bila dia menceritakan sesuatu rahasia, jangan membocorkannya karena itu berarti mengkhianati perasaannya. Ketika dia sedang ingin sendiri, jangan mengganggunya. Jangan tergoda untuk membuka buku hariannya, tas atau dompet miliknya tanpa ijin, dsb. 10.  Bila terjadi konflik, selesaikanlah segera. Mulailah mengambil inisiatifuntuk menyelesaikannya. Jangan menunda-nunda apalagi bersikap seakan-akan tidak ada masalah. Meskipun konflik bisa mengganggu hubungan persahabatan, namun bila diselesaikan dengan baik bisa membuat hubungan menjadi lebih intim. Orang yang mempunyai sahabat akan lebih sehat dan bahagia daripada mereka yang tidak punya seorangpun. Seorang sahabat lebih berharga dari emas atau permata. Kekayaan tidak bisa membelikan Anda seorang sahabat atau membayar kerugian akibat kehilangan seorang sahabat. –C.D. Prestice-