Beasiswa Dataprint Tahun 2014

Hai guys,ada info menarik nih.. Dataprint bagi-bagi  beasiswa lagiii.lumayan buat bayar SPP kuliah  kalo kamu beruntung..makanya Check This Out..Segera daftar yah..aku juga daftar lho..

Program beasiswa DataPrint telah memasuki tahun keempat. Setelah sukses mengadakan program beasiswa di tahun 2011 hingga 2013, maka DataPrint kembali membuat program beasiswa bagi penggunanya yang berstatus pelajar dan mahasiswa.  Hingga saat ini lebih dari 1000 beasiswa telah diberikan bagi penggunanya.
Di tahun 2014 sebanyak 700 beasiswa akan diberikan bagi pendaftar yang terseleksi. Program beasiswa dibagi dalam dua periode. Tidak ada sistem kuota berdasarkan daerah dan atau sekolah/perguruan tinggi. Hal ini bertujuan agar beasiswa dapat diterima secara merata bagi seluruh pengguna DataPrint.  Beasiswa terbagi dalam tiga nominal yaitu Rp 250 ribu, Rp 500 ribu dan Rp 1 juta. Dana beasiswa akan diberikan satu kali bagi peserta yang lolos penilaian. Aspek penilaian berdasarkan dari essay, prestasi dan keaktifan peserta.
Beasiswa yang dibagikan diharapkan dapat meringankan biaya pendidikan sekaligus mendorong penerima beasiswa untuk lebih berprestasi. Jadi, segera daftarkan diri kamu, klik kolom PENDAFTARAN pada web ini!
Pendaftaran periode 1 : 7 Februari – 30 Juni 2014
Pengumuman                : 10 Juli 2014

Pendaftaran periode 2   : 1 Juli – 31 Desember 2014
Pengumuman                : 12 Januari 2015

PERIODE
JUMLAH PENERIMA BEASISWA
@ Rp 1.000.000@ Rp 500.000@ Rp 250.000
Periode 1
50 orang
50 orang
250 orang
Periode 2
50 orang
50 orang
250 orang

Peraturan

Persyaratan Umum:
1.  Pelajar/mahasiswa aktif dari tingkat SMP hingga perguruan tinggi untuk jenjang D3/S1
2.  Terlibat aktif di kegiatan atau organisasi sekolah/perguruan tinggi
3.  Tidak terlibat narkoba atau pernah melakukan tindak kriminal
4.  Tidak sedang menerima beasiswa dari perusahaan lain. Jika saat ini peserta masih menerima beasiswa dari kampus, peserta berhak mengikuti pendaftaran beasiswa dari DataPrint.
5. Penerima beasiswa di periode 2 tahun 2013 tidak dapat menjadi penerima beasiswa di periode 1 tahun 2014.
Peraturan Lomba :
1.  Mengisi formulir registrasi di kolom Pendaftaran
2.  Satu nomor kupon yang terdapat di dalam produk DataPrint, hanya berlaku untuk satu kali registrasi
3.  Pendaftaran tidak dipungut biaya
4.  Isilah formulir dengan sebenar-benarnya.
5. Kolom NAMA, diisi dengan nama lengkap
6. Kolom KODE KUPON, diisi dengan kode yang tertera pada bagian belakang kupon yang ada di dalam produk DataPrint
7. Kolom EMAIL, diisi dengan email aktif yang masih berlaku
8. Kolom NO TELPON, diisi dengan no HP atau no telpon rumah yang masih aktif dan bisa dihubungi
9. Kolom JENJANG PENDIDIKAN, diisi dengan jenjang pendidikan yang sedang ditempuh saat ini.
Contoh: SMA, D3, S1
10. Kolom NAMA PERGURUAN TINGGI/SEKOLAH, diisi dengan nama sekolah/perguruan tinggi tempat kamu menuntut ilmu.
11. Kolom PRESTASI YANG PERNAH DIRAIH, diisi dengan prestasi dari kompetisi yang pernah diikuti.
Sertakan keterangan waktu dan peringkat dalam kompetisi yang kamu ikuti tersebut.
Contoh: Juara Olimpiade Fisika tingkat Nasional pada tahun 2012 atau pada saat SMA
12. kolom KEGIATAN YANG PERNAH/SEDANG DIIKUTI, diisi dengan penjabaran partisipasi pendaftar beasiswa DataPrint pada kegiatan baik di dalam maupun di luar lingkungan sekolah/kampus.
Aktivitas berupa kuliah atau belajar di sekolah, tidak termasuk prestasi.
13. Kolom LAMA MENGGUNAKAN DATAPRINT, diisi dengan waktu penggunaan produk DataPrint.
Isi kolom ini dengan sebenar-benarnya karena kolom ini TIDAK MEMPENGARUHI penilaian.
14. Kolom MENGETAHUI INFORMASI BEASISWA, diisi dengan narasumber awal yang memberitahu mengenai program beasiwa pendidikan DataPrint
15. Kolom NILAI RAPORT (BAGI PELAJAR dan MAHASISWA BARU), diisi dengan total nilai secara keseluruhan beserta jumlah mata pelajaran pada semester terakhir. Ingat, kolom ini hanya diisi oleh pelajar atau mahasiswa baru yang belum mempunyai IP.
Contoh: 98 dari 7 mata pelajaran
16. Kolom IPK TERAKHIR (BAGI MAHASIWA), diisi dengan nilai IPK atau jika belum memiliki IPK boleh diisi dengan nilai IP semester terakhir. Tuliskan juga semester yang sedang ditempuh. Ingat, kolom ini hanya diisi oleh mahasiswa, bukan pelajar.
17. Kolom URL BLOG, diisi dengan copy URL blog kamu yang memuat informasi mengenai beasiswa DataPrint bukan essay. Isi kolom ini jika kamu memiliki blog. Pengisian pada kolom ini akan menambah poin pada penilaian.
18. Kolom ESSAY, diisi dengan karya tulis/essay berisi hasil pemikiran kamu sendiri sesuai dengan tema yang telah ditentukan. Panjang penulisan minimal 100 kata, maksimal 500 kata. Tema akan berubah setiap periode.
Dilarang mengcopy paste tulisan orang lain. Jika bermaksud untuk menyadur atau mengutip tulisan orang lain, tuliskan juga sumbernya.
19.  Beasiswa akan dibagi menjadi 2 periode.
20.  Jika gagal di periode pertama, peserta BOLEH mendaftarkan diri di periode selanjutnya.
21.  Penerima beasiswa yang telah mendapat dana beasiswa di satu periode TIDAK DAPAT menjadi penerima beasiswa di periode selanjutnya.
22.  Waktu per periode:
Periode 1: 7 Februari  – 30 Juni
Periode 2: 1 Juli – 31 Desember
22. Perincian pemenang per periode sebagai berikut:
PERIODE
JUMLAH PENERIMA BEASISWA
@ Rp 1.000.000
@ Rp 500.000
@ Rp 250.000
Periode 1
50 orang
50 orang
250 orang
Periode 2
50 orang
50 orang
250 orang







24.  Panitia tidak menghubungi penerima beasiswa. Nama penerima beasiswa  dapat dilihat di website ini, website DataPrint www.dataprint.do.id atau di www.facebook.com/dataprintindonesia . Simpan fotokopi raport terakhir atau IPK terakhir dan kupon sebagai bukti sah verifikasi jika Anda terseleksi sebagai penerima dana beasiswa.23.  Penerima beasiswa akan diseleksi (bukan diundi) oleh tim dari DataPrint.
25.  Dana beasiswa akan diberikan sekaligus dan secara langsung kepada penerima di periode tersebut.
26.  Dana beasiswa akan dikirimkan dalam jangka waktu paling lambat satu bulan setelah pengumuman dan atau setelah selesainya pemberkasan dari para penerima beasiswa.
27.  Beasiswa akan ditransfer melalui bank BCA. Bagi penerima beasiswa yang menggunakan rekening bank lain, biaya administrasi sebesar Rp 5.000 ditanggung penerima (beasiswa akan dipotong Rp 5.000).
28.  Penerima beasiswa akan diumumkan di website DataPrint www.dataprint.co.id , 
 page Facebook DataPrintwww.facebok.com/dataprintindonesia
dan www.beasiswadataprint.com
Tema Essay dapat dilihat di tab “ESSAY”




FAQ
1.  Siapakah yang boleh mendaftarkan diri di beasiswa DataPrint
Pengguna produk DataPrint yang berstatus pelajar atau mahasiswa aktif
2.  Apa saja persyaratan mengikuti pendaftaran beasiswa DataPrint?
Cukup isi semua kolom di formulir registrasi dengan data yang sebenar-benarnya. Kalau kamu keluar sebagai salah satu penerima dana beasiswa, pihak DataPrint akan menghubungi kamu untuk melakukan verifikasi data.
3.  Apakah pendaftaran dipungut biaya?
Pendaftaran beasiswa sama sekali tidak dipungut biaya atau gratis.
4.  Berapa dana beasiswa yang akan saya terima?
Dana beasiswa akan diberikan sebesar Rp 1.000.000, Rp 500.000 dan Rp 250.000
Penentuan besaran dana beasiswa yang akan diterima ditentukan oleh panitia beasiswa berdasarkan total nilai dari formulir pendaftaran.
5.  Apakah penerima beasiswa di satu periode dapat menjadi penerima beasiswa lagi?
Tidak, penerima beasiswa yang sudah pernah menerima beasiswa tidak berhak menjadi penerima beasiswa di periode berikutnya.
6.  Bagaimana cara pemberian beasiswa?
Dana beasiswa akan ditransfer kepada penerima. Beasiswa diberikan satu kali bagi penerima beasiswa.
7.  Kapan beasiswa akan diterima?
Setelah verifikasi yang dilakukan oleh pihak DataPrint selesai atau kurang lebih satu bulan setelah pengumuman.
8. Apakah pendaftar boleh melakukan pendaftaran lebih dari satu kali?
Boleh, pengguna produk DataPrint yang mendaftar beasiswa boleh melakukan lebih dari satu kali pendaftaran dengan menggunakan kode kupon yang berbeda dan essay yang berbeda. Panitia akan memilih formulir pendaftaran dengan nilai tertinggi.
9.  Apakah beasiswa yang diterima akan terkena pajak?
Tidak, beasiswa yang diterima tidak dikenai pajak. Dana beasiswa akan ditransfer melalui rekening BCA. Bagi penerima beasiwa yang memiliki rekening selain BCA maka dana administrasi akan ditanggung penerima.
10.  Dimana pengumuman penerima beasiswa dapat dilihat?
Pengumuman dapat dilihat di website DataPrint




  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

BEASISWA DATAPRINT TAHUN 2013
A. ABOUT

Program beasiswa DataPrint telah memasuki tahun ketiga. Setelah sukses mengadakan program beasiswa di tahun 2011 dan 2012, maka DataPrint kembali membuat program beasiswa bagi penggunanya yang berstatus pelajar dan mahasiswa.  Hingga saat ini lebih dari 1000 beasiswa telah diberikan bagi penggunanya.
Di tahun 2013 sebanyak 500 beasiswa akan diberikan bagi pendaftar yang terseleksi. Program beasiswa dibagi dalam dua periode. Tidak ada sistem kuota berdasarkan daerah dan atau sekolah/perguruan tinggi. Hal ini bertujuan agar beasiswa dapat diterima secara merata bagi seluruh pengguna DataPrint.  Beasiswa terbagi dalam tiga nominal yaitu Rp 250 ribu, Rp 500 ribu dan Rp 1 juta. Dana beasiswa akan diberikan satu kali bagi peserta yang lolos penilaian. Aspek penilaian berdasarkan dari essay, prestasi dan keaktifan peserta.
Beasiswa yang dibagikan diharapkan dapat meringankan biaya pendidikan sekaligus mendorong penerima beasiswa untuk lebih berprestasi. Jadi, segera daftarkan diri kamu, klik kolom PENDAFTARAN pada web ini!
Pendaftaran periode 1 : 1 Februari – 30 Juni 2013
Pengumuman                : 10 Juli 2013

Pendaftaran periode 2   : 1 Juli – 31 Desember 2013
Pengumuman                : 13 Januari 2014

PERIODE
JUMLAH PENERIMA BEASISWA
@ Rp 1.000.000@ Rp 500.000@ Rp 250.000
Periode 1
50 orang
50 orang
150 orang
Periode 2
50 orang
50 orang
150 orang
B. ESSAY
Peraturan cara penulisan essay:
1. Essay merupakan opini pribadi. Tuangkan ide kamu semenarik mungkin.
2. Penulisan dan tata bahasa sesuai dengan kaidah EYD.
3. Panjang tulisan minimal 100 kata, maksimal 500 kata.
4. Penulisan kutipan atau data tanpa menyertakan sumber/link akan dianggap copy paste dan formulir akan didiskualifikasi oleh panitia.
5. Bagi pemilik blog, tuliskan informasi mengenai beasiswa DataPrint di blog kamu, sertakan juga link/tautan ke website beasiswa DataPrint (www.beasiswadataprint.com)  dan website DataPrint (www.dataprint.co.id) . Kemudian cantumkan link yang berisi informasi ini ke dalam kolom “URL BLOG” di formulir pendaftaran. Pencantuman informasi dalam blog kamu akan menambah poin dalam penilaian sebesar 1-3 poin.
Contoh penulisan link:  www.blogsaya.com/beasiswadataprint.html
Jadi, bukan hanya penulisan nama blog seperti www.blogsaya.com .

ESSAY UNTUK PELAJAR:
Sekolah sebaiknya gratis atau berbayar?Berikan penjelasan

ESSAY UNTUK MAHASISWA
Penerapan IQ, EQ, dan SQ dalam dunia pendidikan dan masing-masing berikan contohnya
C. KUPON
D. PENDAFTARAN
Pendaftaran bisa dilihat di www.beasiswadataprint.com atau www.dataprint.co.id 
E. PERATURAN
  Persyaratan Umum:
1.  Pelajar/mahasiswa aktif dari tingkat SMP hingga perguruan tinggi untuk jenjang D3/S1
2.  Terlibat aktif di kegiatan atau organisasi sekolah/perguruan tinggi
3.  Tidak terlibat narkoba atau pernah melakukan tindak kriminal
4.  Tidak sedang menerima beasiswa dari perusahaan lain. Jika saat ini peserta masih menerima beasiswa dari kampus, peserta berhak mengikuti pendaftaran beasiswa dari DataPrint.
5. Penerima beasiswa di periode 2 tahun 2012 tidak dapat menjadi penerima beasiswa di periode 1 tahun 2013.
Peraturan Lomba :
1.  Mengisi formulir registrasi di kolom Pendaftaran
2.  Satu nomor kupon yang terdapat di dalam produk DataPrint, hanya berlaku untuk satu kali registrasi
3.  Pendaftaran tidak dipungut biaya
4.  Isilah formulir dengan sebenar-benarnya.
5. Kolom NAMA, diisi dengan nama lengkap
6. Kolom KODE KUPON, diisi dengan kode yang tertera pada bagian belakang kupon yang ada di dalam produk DataPrint
7. Kolom EMAIL, diisi dengan email aktif yang masih berlaku
8. Kolom NO TELPON, diisi dengan no HP atau no telpon rumah yang masih aktif dan bisa dihubungi
9. Kolom JENJANG PENDIDIKAN, diisi dengan jenjang pendidikan yang sedang ditempuh saat ini.
Contoh: SMA, D3, S1
10. Kolom NAMA PERGURUAN TINGGI/SEKOLAH, diisi dengan nama sekolah/perguruan tinggi tempat kamu menuntut ilmu.
11. Kolom PRESTASI YANG PERNAH DIRAIH, diisi dengan prestasi dari kompetisi yang pernah diikuti.
12. kolom KEGIATAN YANG PERNAH/SEDANG DIIKUTI, diisi dengan penjabaran partisipasi pendaftar beasiswa DataPrint di unit kegiatan pada lingkungan belajar, lingkungan rumah dan acara-acara khusus (seminar, dll).
Aktivitas berupa kuliah atau belajar di sekolah, tidak termasuk prestasi.
13. Kolom LAMA MENGGUNAKAN DATAPRINT, diisi dengan waktu penggunaan produk DataPrint
14. Kolom MENGETAHUI INFORMASI BEASISWA, diisi dengan narasumber awal yang memberitahu mengenai program beasiwa pendidikan DataPrint
15. Kolom NILAI RAPORT (BAGI PELAJAR dan MAHASISWA BARU), diisi dengan total nilai secara keseluruhan beserta jumlah mata pelajaran pada semester terakhir. Ingat, kolom ini hanya diisi oleh pelajar atau mahasiswa baru yang belum mempunyai IP.
Contoh: 98 dari 7 mata pelajaran
16. Kolom IPK TERAKHIR (BAGI MAHASIWA), diisi dengan nilai IPK atau jika belum memiliki IPK boleh diisi dengan nilai IP semester terakhir. Tuliskan juga semester yang sedang ditempuh. Ingat, kolom ini hanya diisi oleh mahasiswa, bukan pelajar.
17. Kolom URL BLOG, diisi dengan copy URL blog kamu yang memuat informasi mengenai beasiswa DataPrint. Isi kolom ini jika kamu memiliki blog. Pengisian pada kolom ini akan menambah 1-3 poin pada penilaian.
18. Kolom ESSAY, diisi dengan karya tulis/essay berisi hasil pemikiran kamu sendiri sesuai dengan tema yang telah ditentukan. Panjang penulisan minimal 100 kata, maksimal 500 kata. Tema akan berubah setiap periode.
Dilarang mengcopy paste tulisan orang lain. Jika bermaksud untuk menyadur atau mengutip tulisan orang lain, tuliskan juga sumbernya.
19.  Beasiswa akan dibagi menjadi 2 periode.
20.  Jika gagal di periode pertama, peserta BOLEH mendaftarkan diri di periode selanjutnya.
21.  Penerima beasiswa yang telah mendapat dana beasiswa di satu periode TIDAK DAPAT menjadi penerima beasiswa di periode selanjutnya.
22.  Waktu per periode:
Periode 1: 1 Februari  – 30 Juni
Periode 2: 1 Juli – 31 Desember
22.  Perincian pemenang per periode sebagai berikut:
PERIODEJUMLAH PENERIMA DANA BEASISWA
@ Rp 1.000.000@ Rp 500.000@ Rp 250.000
Periode I50 orang50 orang150 orang
Periode II50 orang50 orang150 orang
23.  Penerima beasiswa akan diseleksi (bukan diundi) oleh tim dari DataPrint.
24Panitia tidak menghubungi penerima beasiswa. Nama penerima beasiswa  dapat dilihat di website ini, website DataPrint www.dataprint.do.id atau diwww.facebook.com/dataprintindonesia . Simpan fotokopi raport terakhir atau IPK terakhir dan kupon sebagai bukti sah verifikasi jika Anda terseleksi sebagai penerima dana beasiswa.
25.  Dana beasiswa akan diberikan sekaligus dan secara langsung kepada penerima di periode tersebut.
26.  Dana beasiswa akan dikirimkan dalam jangka waktu paling lambat satu bulan setelah pengumuman dan atau setelah selesainya pemberkasan dari para penerima beasiswa.
27.  Beasiswa akan ditransfer melalui bank BCA. Bagi penerima beasiswa yang menggunakan rekening bank lain, biaya administrasi sebesar Rp 5.000 ditanggung penerima (beasiswa akan dipotong Rp 5.000).
28.  Penerima beasiswa akan diumumkan di website DataPrint www.dataprint.co.id ,  page Facebook DataPrint www.facebok.com/dataprintindonesia dan www.beasiswadataprint.com
Tema Essay dapat dilihat di tab “ESSAY”

FAQ
1.  Siapakah yang boleh mendaftarkan diri di beasiswa DataPrint
Semua pelajar atau mahasiswa yang masih aktif
2.  Apa saja persyaratan mengikuti pendaftaran beasiswa DataPrint?
Cukup isi semua kolom di formulir registrasi dengan data yang sebenar-benarnya. Kalau kamu keluar sebagai salah satu penerima dana beasiswa, pihak DataPrint akan menghubungi kamu untuk melakukan verifikasi data.
3.  Apakah pendaftaran dipungut biaya?
Pendaftaran beasiswa sama sekali tidak dipungut biaya atau gratis.
4.  Berapa dana beasiswa yang akan saya terima?
Dana beasiswa akan diberikan sebesar Rp 1.000.000, Rp 500.000 dan Rp 250.000
Penentuan besaran dana beasiswa yang akan diterima ditentukan oleh tim DataPrint.
5.  Apakah penerima beasiswa di satu periode dapat menjadi penerima beasiswa lagi?
Tidak, penerima beasiswa yang sudah pernah menerima beasiswa tidak berhak menjadi penerima beasiswa di periode berikutnya.
6.  Bagaimana cara pemberian beasiswa?
Dana beasiswa akan ditransfer kepada penerima.
7.  Kapan beasiswa akan diterima?
Setelah verifikasi yang dilakukan oleh pihak DataPrint selesai atau kurang lebih satu bulan setelah pengumuman.
8.  Apakah beasiswa yang diterima akan terkena pajak?
Tidak, beasiswa yang diterima tidak dikenai pajak. Dana beasiswa akan ditransfer melalui rekening BCA. Bagi penerima beasiwa yang memiliki rekening selain BCA maka dana administrasi akan ditanggung penerima.
9.  Dimana pengumuman penerima beasiswa dapat dilihat?
Pengumuman dapat dilihat di website DataPrint www.dataprint.co.id , page Facebook DataPrint www.facebook.com/dataprintindonesia dan www.beasiswadataprint.com

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Info Beasiswa guys

www.dataprint.co.id
www.beasiswadataprint.com

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Pengertian Pascal

 Program Turbo Pascal
Pascal adalah salah satu bahasa pemrograman tingkat tinggi (high level language). Nama Pascal diambil dari nama seorang ahli matematika dan filosofi terkenal abad 17 dari Perancis, yaitu Blaise Pascal. Bahasa ini dirancang oleh Prof. Niklaus Wirth dari Technical University di Zurich, Switzerland. Turbo Pascal adalah salah satu versi Pascal yang paling popular dan banyak digunakan saat ini. Terdapat tiga elemen utama dalam turbo pascal, yakni:
Menu Bar
Adalah fasilitas yang ada pada setiap aplikasi window. Ada delapan Menu Utama yang dapat dipanggil dengan menggunakan tombol Alt+[Huruf pertama dari menu]. Misal ingin memanggil menu File, tekan tombol Alt+F.
Toolbar
Adalah kumpulan tombol-tombol bergambar yang berfungsi untuk memberikan perintah pada komputer
Editor
Berfungsi untuk menulis dan menyunting program.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Pernyataan ARRAY

Array (larik) menyatakan tipe data terstruktur yang berupa kumpulan elemen-elemen dengan tipe data yang sama. Tipe Array dapat ditulis sebagai berikut:
Array [Indeks_1,…,Indeks_n] of Tipe_Dasar
• Array Dimensi Satu
Array berdimensi satu merupakan array dengan ciri memiliki tipe indeks hanya satu buah. Contoh deklarasi variabel dengan tipe array berdimensi satu:
VAR X : ARRAY[1..10] of Integer;
• Array Dimensi Dua
Array berdimensi dua merupakan array dengan ciri memiliki tipe indeks dua buah. Contoh deklarasi variabel dengan tipe array berdimensi dua:
VAR Y : ARRAY[1..5,1..10] of Integer;

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Statement REPEAT

Statement REPEAT adalah suatu perintah yang berfungsi untuk melakukan proses pengulangan, dimana pengulangan akan berhenti jika kondisi yang tertulis di akhir pengulangan dipenuhi. Sintak dari statement REPEAT adalah:
REPEAT
{Statement 1}
{Statement 2}
....
{Statement n}
UNTIL {Kondisi};

















Gambar 6. Flowchart Statement REPEAT

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Statement WHILE

Statement WHILE adalah suatu perintah yang berfungsi untuk melakukan proses pengulangan, dimana pengulangan akan terus dilakukan jika kondisi tertentu dipenuhi. Jika banyaknya pengulangan diketahui tapi kenaikan atau penurunan pengulangan tidak sebesar satu, statement IF tidak cocok untuk digunakan. Sebagai alternatif dapat digunakan statement WHILE atau REPEAT. Sedangkan jika banyaknya pengulangan tidak diketahui maka statement IF tidak dapat digunakan, sehingga harus digunakan statement WHILE atau REPEAT. Bentuk dari statement WHILE adalah:
WHILE {Kondisi} DO
BEGIN
{Statement 1}
{Statement 2}
....
{Statement n}
END;












Gambar 6. Flowchart Statement WHILE

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Statement FOR

Statement FOR adalah suatu perintah yang berfungsi untuk melakukan proses pengulangan, dimana jumlah pengulangannya sudah diketahui. Bentuk dari statement FOR adalah:
FOR {Variabel} := {Nilai Awal} TO {Nilai Akhir} DO
BEGIN
{Statement 1}
{Statement 2}
....
{Statement n}
END;



















Gambar 5. Flowchart Statement FOR TO DO
FOR {Variabel} := {Nilai Awal} DOWNTO {Nilai Akhir}
DO
BEGIN
{Statement 1}
{Statement 2}
....
{Statement n}
END;

















Gambar 6. Flowchart Statement FOR DOWNTO DO

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Pernyataan CASE

CASE <variabel-pemilih> OF
<daftar-label-1> : <Pernyataan-1>;
<daftar-label-2> : <Pernyataan-2>;
.
.
<daftar-label-n> : <Pernyataan-n>;
ELSE <Pernyataan-lain> ;
END;



  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Pernyataan IF Bersarang (NESTED)

Jika ada dua pernyataan IF atau lebih, dimana pernyataan IF yang satu berada di dalam pernyataan IF yang lain, maka pernyataan tersebut disebut Bersarang (nested). Contoh bentuk pernyataan IF Bersarang:
IF <syarat logika-1> THEN <Pernyataan-1>
ELSE IF <syarat logika-2> THEN <Pernyataan-2>
ELSE IF <syarat logika-3> THEN <Pernyataan-3>
ElSE <Pernyataan-4>;








Gambar 3. Flowchart Statement IF THEN Bersarang

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Program Array Segitiga Pascal


program array_pascal;
uses wincrt;
var input,i,j:word; isi:array [0..20,0..21] of word;
begin
writeln('masukkan berapa tingkat segitiga pascal!');
readln(input);
isi[0,1]:=1;
for i:= 1 to input do
begin
for j:= 1 to i+1 do
begin
isi[i,j]:=isi[i-1,j]+isi[i-1,j-1];
write(isi[i,j]);
end;
writeln;
end;
end.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Program Simpangan Baku

Program Hitung_Simpangan_Baku;
Uses wincrt;
Var X,N,I:Byte;
Akar,Jum,Rata,Sd,K,Y,Sigma,Pangkat:Real;
Data:Array[1..30] of byte;
Function Pengurangan(A,I:Byte):Integer;
Begin
Pengurangan:= A-I ;
end;
Procedure NilaiData;
Begin
Write ('Berapa Banyaknya Data Nilai= ');Readln(X);
For N:=1 to x do
Begin
Write('Data ke-',N,'=');Readln(Data[N]);
end;
end;
Procedure RataRata;
Begin
Jum:=0;
For N:=1 to X do
Begin
Jum:=Jum + Data[N] ;
Rata:= Jum / X;
end;
end;
Procedure PangkatSigma;
Begin
SIGMA:=0;
For N:= 1 to X do
Begin
Pangkat:=0;
K:= Data[N]-Rata;
Pangkat:= SQR (K);
Sigma:= Sigma+Pangkat;
end;
end;
Procedure TampilHasil;
Begin
For N:= 1 to X Do
Begin
Writeln ('Data Nilai ke- ',N,'=',Data[N]);
end;
end;
Begin
clrscr;
Sigma:=0;
Rata:=0;
Writeln ; {‘>> Menghitung Simpangan Baku <<’}
NilaiData;
RataRata;
PangkatSigma;
I:=1;
Y:=Pengurangan(X,I);
Akar:=Sigma/Y ;
Sd:= SQRT (Akar);
Clrscr;
Writeln ('Hasil Penghitungan Simpangan Baku');
TampilHasil;
Writeln ('Banyaknya Data Nilai =',X);
Writeln ('Nilai Rata-ratanya = ',Rata:4:2);
Writeln ('Simpangan Bakunya Adalah = ',Sd:4:2);
Readln;
end.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Program Aritmatik

program aritmatik;
uses wincrt;
var x: real;
begin
clrscr;
write('Masukkan nilai dari x = ');
readln(x);
if x<0 then x:=abs(x);
writeln('nilai x = ',x:5:2);
writeln('nilai eksponensialnya = ',exp(x):9:3);
writeln('nilai logaritma naturalnya = ',ln(x):9:3);
writeln('nilai integernya = ',int(x):9:3);
writeln('nilai fraksionalnya = ',frac(x):9:3);
writeln('nilai x dipangkatkan = ',sqr(x):9:3);
writeln('nilai x diakarkan = ',sqrt(x):9:3);
write('nilai x jika dimasukkan dalam ');
writeln('fungsi sin,cos,dan tangen: ');
writeln('- sinus = ',sin(x):9:3);
writeln('- cosinus = ',cos(x):9:3);
writeln('- tangen = ',arctan(x):9:3);
end.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Program Menghitung Luas Persegi Panjang

program luas_persegipanjang;
uses wincrt;
var a, b, nilai: integer;
begin
writeln('Program Penghitung Luas Persegi Panjang');
writeln('Masukkan nilai panjang');
readln(a);
writeln('Masukkan nilai lebar');
readln(b);
nilai:=a*b;
write('Luas Persegi Panjang adalah ');
writeln(nilai);
end.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Program Menghitung Pangkat

Program Menghitung_Pangkat;
Uses Wincrt;
Var i,n,m: integer;
x: real;
Begin
Writeln('Program Menghitung Pangkat');
Writeln('==========================');
Writeln;
Write('Masukkan Jumlah Pangkat : ');readln(n);
Write('Masukkan Bilangan yang Dipangkatkan : ');readln(m);
Writeln;
x:=1;
if (n>0) then
For i:= 1 to n do
x:=x*m
else
writeln('');
Writeln('Hasil Pangkat: ',x:6:2);
End.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS