JAWABAN UH PASCAL (PROGRAM GAJI)

Berikut Sciptnya : PROGRAM GAJI_PEGAWAI; USES CRT; VAR NO : INTEGER;     NAMA : STRING [30];     JABATAN : INTEGER;     GOLONGAN : STRING;     GAPOK : REAL;     BONUS : REAL;     GATOT : REAL; BEGIN      CLRSCR;      GOTOXY (1,1); WRITELN ('Program Created By : Ryan Eka Putra Wijaya (X-RPL2 / 20)');      GOTOXY (14,3) ; WRITELN ('GAJI PEGAWAI');      GOTOXY...

Read More

VISUAL BASIC

Visual Basic merupakan cara termudah dan tercepat untuk membuat aplikasi yang dijalankan di sistem operasi Microsoft Windows®. Apakah Anda seorang profesional atau pemula sekalipun di bidang pemrograman Windows, Visual Basic menyediakan kepada Anda sekumpulan perangkat untuk mempermudah dan menyederhanakan pengembangan aplikasi yang tangguh. Lalu apa sebenarnya definisi dari Visual Basic itu sendiri? Kata “Visual”merujuk...

Read More

SOAL UH PASCAL

Suatu perusahaan besar yang bernama Perusahaan Arpellow-gaz, ingin mendata Total Gaji Karyawannya. Input : Suatu input yang terdiri dari : Nomor Pegawai,  Nama Pegawai,  Jabatan, Untuk Jabatan berkode  1 =  Direktur.  2 =  Wakil direktur.  3 =  Kepala Bagian, 4 =  Kepala Seksi 5 =  Staf, yang terbagi menjadi golongan A,B,C, dan D.  Golongan, dan Gaji Pokok. Kondisi : Jika terdapat kondisi jabatan yang berisi kode 1,2 dan 3 maka mendapat Bonus dari pekerjaannya sebesar 25% Gaji...

Read More

PROGRAM JADWAL

Program ini masih program pascal yang berguna untuk teman-teman yang jadwal pelajarannya hilang. Tapi toh tujuan dibuatnya program ini bukan untuk itu, melainkan buat latihan pascal dan kreativitas. Oya... dan ini hanya jadwal untuk kelas X-RPL 2, untuk kelas lain buat sendiri saja. :-) Tinggal mengganti jadwal yang ada di dalam script aja. Oke, langsung aja, ini gan scriptnya : PROGRAM JADWAL_PELAJARAN; USES CRT; VAR HARI : BYTE; BEGIN      CLRSCR;      GOTOXY (14,2); WRITELN ('JADWAL PELAJARAN');     ...

Read More

INTERNET TV

Ingin menikmati siaran TV luar negeri tetapi tidak mempunyai antenna parabola? Tidak perlu kuatir, sekarang ini dengan adanya internet, kita dapat menikmati siaran TV luar negeri yang ada di seluruh penjuru dunia hanya dengan duduk di depan komputer atau laptop. Kita dapat menikmatinya baik di dalam kamar, di kantor, atau dimanapun tempatnya yang penting ada koneksi internet yang bagus. Kita hanya membutuhkan aplikasi (software)...

Read More

PROGRAM RAPOT

Nah,,, Ini program Pascal yang digunakan untuk mengathui rata-rata rapot siswa dan predikat hurufnya... Berikut kodenya... PROGRAM RAPOT_SISWA; USES CRT; VAR NIM : STRING [5];     NAMA : STRING [20];     TUGAS : REAL;     UTS : REAL;     UAS : REAL;     ANGKA : REAL;     HURUF : BYTE; BEGIN      CLRSCR;      GOTOXY (15,2); WRITELN ('DAFTAR NILAI SISWA');      GOTOXY (14,4); WRITELN ('SMK NEGERI 4 BOJONEGORO');   ...

Read More

KAOS ARPELLOW

Desain kaos kelas.. X-RPL 2 DEPAN BELAKANG ...

Read More

UNICODE

Penulisan karakter khusus dalam pascal biasanya di butuhkan. Berikut cara penulisannya : WriteLn(char(#178)); ...

Read More

STATEMENT PENGULANGAN (BAG 3)

ini Merupakan bahsan terakhir mengenai bagian2 pengulangan dalam pascal,,kali ini yang akan kita bahas adalah pengulangan dengan menggunakan repeat...until. :D :k okelah kita langsung saja tanpa buang waktu lama. Blok pengulangan ini sebenarnya mirip dengan pengulangan while,perbedaannya hanya pada jenis ini pengulangan akan terus dilakukan apabila kondisi yg didefinisikan masih bernilai false,jadi dengan kata lain pengulangan dihentikan jika...

Read More

STATEMENT PENGULANGAN (BAG 2)

Kemarin pengulangan for,sekarang pengulangan denganwhile,,tanpa lama2 kita langsung saja klo begitu :$ :DBerbeda dengan pengulangan for,pada konstruksi pengulangan while terdapat suatu kondisi yang harus diperiksa terlebih dahulu.Apabila kondisi bernilai benar (true) maka statemen yang terdapat dalam blok pengulangan akan dieksekusi,sebaliknya jika false maka pengulangan dihentikan.Sama seperti pengulangan for,dalam while pun diperlukan sebuah variable indeks pengulangan,juga variable indeks pengulangan tersebut harus diinisialisasikan terlebih...

Read More

STATEMENT PENGULANGAN (BAG 1)

Posting kemarin disinggung mengenai statemen2 dalam pengulangan (for,while,repeat) yang bagaimana menuliskan statemen berulang tanpa harus menulisnya beberapa kali :$ :D. langsung saja,Konstruksi for pada umumnya digunakan untuk melakukan pengulangan yang banyaknya sudah diketahui secara pasti (tanpa harus diperisa kondisinya). dalam pengulangan,kita membutuhkan sebuah variabel untuk indeks pengulangan yang dapat bertipe bilangan bulat.Berikut...

Read More

STATEMENT IF (3 KASUS/LEBIH)

Langsung saja ah ya  biar lebih cepat dan lebih baik.Maka berarti untuk if dengan tiga kasus atau lebih merupakan bentuk pemilihan yang agak sedikit lebih kompleks dari dua bentuk sebelumnya.Bentuk ini memiliki tiga buah kasus atau lebih sehingga terdapat statemen if di dalam if atau kita sebut if bersarang (nested if). Verikut adalah bentuk gambarannya: if (kondisi1) then begin statemen_jika_kondisi1_benar; ... end else if (kondisi2)...

Read More

STATEMENT IF (2 KASUS)

Statemen If yang melibatkan dua kasus merupakan perluasan dari bentuk pertama sebelumnya yang if satu kasus.Konsepnya sederhana,pemilihan ini terdapat penambahan statemen (bisa berbentuk gabungan statemen dalam satu blok) yang digunakan untuk mengatasi kejadian pada saat kondisi tidak terpenuhi. jadi kaya gini aja nih nih: if (kondisi) then statemen_jika_kondisi_benar {TIDAK DIAKHIRI DENGAN;} else statemen_jika_kondisi_salah; Apabila kondisi bernilai true maka statemen dengan kondisi benar akan dijalankan dan jika kondisi salah maka...

Read More

STATEMENT IF

#Statemen ifStatemen if akan diikuti oleh ekspresi (sebagai kondisi yang akan diperiksa) dan selalu berpasangan dengan kata kunci then.Apabila statemen yang akan dilakukan hanya satu maka kita tidak perlu menuliskan blok begin...end.Namun apabila statemen lebih dari satu maka blok begin...end harus dituliskan. Untuk mempermudah dalam penjelsan dari saya,maka saya klasifikasikan statemen if ini dalam tiga bagian,yaitu statemen if...

Read More

PROGRAM TABUNG

Berikut adalah Script Pascal pembuatan Program mencari segala hal tentang tabung : PROGRAM TABUNG; USES     CRT;     VAR JARI : REAL;     VAR TINGGI : REAL;     VAR LUAS_A : REAL;     VAR LUAS_S : REAL;     VAR LUAS_P : REAL;     VAR VOLUME : REAL; BEGIN      WRITELN ('MARI HITUNG TABUNG');      WRITE ('Masukan Jari-jarinya :');      READLN (JARI);     ...

Read More