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 (8,4) ; WRITELN ('PERUSAHAAN ARPELLOW-GAZ');

     GOTOXY (4,5); WRITELN ('-------------------------------');

     GOTOXY (4,6); WRITE ('Masukkan No Pegawai Anda: '); READLN (NO);

     GOTOXY (4,7); WRITE ('Masukkan Nama Anda: '); READLN (NAMA);

     GOTOXY (4,8); WRITE ('Masukkan Gaji Pokok Anda: '); READLN (GAPOK);

     GOTOXY (4,9); WRITE ('Masukkan Kode Jabatan: '); READLN (JABATAN);

     IF JABATAN = 1 THEN

     BEGIN

     GOTOXY (4,11); WRITELN ('Nama Anda: ', NAMA);

     GOTOXY (4,12); WRITELN ('Jabatan: DIREKTUR');

     BONUS := 0.25*GAPOK;

     GATOT := BONUS+GAPOK;

     GOTOXY (4,13); WRITELN ('Bonus Pekerjaan Anda: ', BONUS:8:2);

     GOTOXY (4,14); WRITELN ('GAJI TOTAL: ', GATOT:8:2);

     END;

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 kepada metode yang digunakan untuk membuat antar muka yang bersifat grafis Graphical User Interface (GUI). Daripada menulis berbaris-baris kode untuk menjelaskan pemunculan dan lokasi dari suatu elemen di dalam antar muka, Anda dengan mudah dapat menambahkan object yang sebelumnya sudah dibangun ke dalam tempat dan posisi yang Anda inginkan di layar Anda. Jika Anda pernah menggunakan program untuk menggambar seperti Paint, maka Anda sebenarnya sudah memiliki keahlian uuntuk membuat sebuah antar muka pengguna secara efektif.

Kata “Basic” merujuk kepada bahasa BASIC (Beginners All-Purpose Symbolic Instruction Code), sebuah bahasa yang digunakan oleh banyak programmer dibandingkan dengan bahasa lainnya dalam sejarah komputer. Visual Basic telah berubah dari bahasa asli BASIC dan sekarang memiliki ratusan pernyataan (statements), fungsi (functions), dan kata kunci (keywords), dan kebanyakan di antaranya terkait dengan antar muka grafis di Windows. Pengguna tingkat pemula sekalipun dapat membuat aplikasi dengan mempelajari hanya beberapa kata kunci, sementara kekuatan dari bahasanya membolehkan para pengguna tingkat professional mencapai apapun yang dapat dihasilkan dengan menggunakan bahasa pemrograman Windows lainnya.

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 Pokok.
• Jika jabatan tersebut berisi kode 4, maka mendapat Bonus dari pekerjaannya sebesar 100% dari Gaji Pokok.
• Jika jabatan tersebut berisi kode 5, maka Bonus dihitung bedasarkan Golongan.
• Jika Golongan A dan B, maka bonus mendapat 85% dari Gaji Pokok.
• Jika Golongan C dan D, maka mendapat 

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');
     GOTOXY (14,3); WRITELN ('X-RPL 2') ;
     GOTOXY (4,4); WRITELN ('_______________________________________');
     GOTOXY (4,6); WRITELN ('Ket : 1 mewakili Senin, 2 mewakili Selasa, dst');
     GOTOXY (4,7); WRITE ('Masukkan Hari (1-6) :'); READLN (HARI);

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) untuk itu. Dan aplikasi yang kita gunakan tidak perlu yang berbayar, cukup dengan aplikasi gratisan (freeware), kita sudah dapat menikmati lebih dari 5000 channel (siaran) TV dari 112 negara di seluruh dunia.

Freeware tersebut adalah Internet TV yang sekarang sudah mencapai versi 1.2. Tidak membutuhkan peralatan tambahan untuk itu, kita hanya perlu sambungan koneksi internet yang bagus. Jika tidak tayangan akan terlihat putus-putus.

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');
     GOTOXY (4,5); WRITELN ('______________________________________');
     GOTOXY (4,6); WRITE('Nomor Induk Siswa :'); READLN (NIM);
     GOTOXY (4,8); WRITE('Nama Siswa :'); READLN (NAMA);
     GOTOXY (4,12); WRITE('Nilai Tugas :'); READLN (TUGAS);
     GOTOXY (4,14); WRITE('Nilai UTS :'); READLN (UTS);
     GOTOXY (4,16); WRITE('Nilai UAS :'); READLN (UAS);

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 kondisi bernilai true. Juga dalam pengulangan repeat,kondisi ditulis di akhir blok.
Bentuk umumnya seperti ini:

repeat
  statemen;
  ...
until (kondisi);

sebagai bahan perbandingan dengan jenis2 pengulangan sebelumnya,kita lihat saja contoh programnya dibawah ini:

program statemenrepeat1;
uses wincrt;
var i:integer;
begin
 {inisialisasi nilai indeks i dengan 1}
 i:=1;
 {melakukan pengulangan}
 repeat
   writeln('Arpellowgaz');
   i:=i+1;
 until (i < 5);
end.

hasilnya tetap sama seperti pada pengulangan sebelumnya dengan menampilkan teks 'Arpellowgaz' sebanyak lima kali. coba lihat kondisi berada pada akhir bukan? kita lihat contoh lainnya dalam pengulangan repeat

Read More

STATEMENT PENGULANGAN (BAG 2)

Kemarin pengulangan for,sekarang pengulangan denganwhile,,tanpa lama2 kita langsung saja klo begitu :$ :D
Berbeda 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 dahulu juga sebagai kondisi yang harus diperiksa.
bentuk umumnya kaya gene :

{apabila hanya satu kondisi}
while (kondisi) do
  statemen;

{apabila terdapat lebih dari satu kondisi}
while (kondisi) do begin
  statemen1;
  statemen2;
  ...
end;

untuk contoh programnya bisa dilihat dari contoh berikut

program statemenwhile1;
uses wincrt;
var i:integer;
begin
{inisialisasi indeks dengan nilai 1}
i:=1;

{melakukan pengulangan}
while (i <= 5) do begin
  writeln('Arppelowgaz');
  i:=i+1; {menaikan nilai i sebesar 1}
end;
end.

apabila program dijalankan akan menghasilkan teks "Arpellowgaz' sebanyak 5 kali. Penjelasannya,mula2 variabel i bernilai 1,selanjutnya program akan memeriksa apakah i lebih kecil atau sama dengan 5,atau tidak. Karena 1 lebih kecil dari 5 maka blok pengulangan akan dieksekusi,kemudian i akan dinaikan satu sehingga i bernilai 2,lalu program akan mengecek kembali,karena 2 lebih kecil dari 5 maka statemen akan dieksekusi kedua kalinya,begitu seterusnya,dan pada saat i bernila 6 maka pengulangan akan dihentikan. :D Mudeng ga loh :D :D lihat juga contoh program yang satu ini

program statemenwhile2;
uses wincrt;
var i:integer;
begin
{inisialisasi indeks dengan nilai 1}
i:=1;

{melakukan pengulangan dengan indeks awal = 1}
while (i <= 20) do begin
  write(i, ' ');
  i:=i+2; {menaikan nilai i sebesar 1}
end;
end.

hasil dari program tersebut akan mencetak angka2 ganjil dari 1 sampai 20,try it beybeh :$

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

{untuk satu statemen}
for var_indeks:=batas_awal to batas_akhir do
  statemen_yang_akan_diulang;
{untuk statemen yang banyaknya lebih dari satu}
for var_indeks:=batas_awal to batas_akhir do begin
  statemen1_yang_akan_diulang;
  statemen2_yang_akan_diulang;
  ...end;

Banyaknya pengulangan yang akan dilakukan dihitung dari mulai nilai batas awal sampai batas akhir,dan yang perlu diperhatikan bahwa nilai dari batas awal harus lebih kecil dari batas akhir.
so kita lihat contoh programnya :D

program pengulangan1;
uses wincrt;
var i:integer;
begin
for i:=1 to 5 do
  writeln('Arpellowgaz');
end.

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) then begin
 statemen_jika_kondisi2_benar;
 ...
end else begin
 statemen_alternatif;
end;

agar lebih paham mari kita lihat contoh program dibawah ini:

program ifTigaKasus;
uses wincrt;
var bil:integer;
begin
 write('masukan sebuah bilangan');
 readln(bil);
 if (bil<0) then begin
  writeln(bil,' merupakan bilangan NEGATIF');
 end else if (bil=0) then begin
  writeln(bil,' merupakan bilangan NOL');
 end else begin
  writeln(bil,' merupakan bilangan POSITIF');
 end;
end.

coba compile dan jalankan saja dan coba lalu pahami dan lihat hasilnya  atau kita coba contoh lain

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 statemen kedua dijalankan yaitu statemen yang berada dalam bagian else

#Bentuk diatas hanya berlaku jika hanya memiliki satu baris statemen,dan yang harus diperhatikan adalah statemen pertama (sebelum kata kunci else) tidak boleh diakhiri tanda titik koma.Jika ingin menambahkan titik koma maka harus menempatkan statemen tersebut dalam blok (begin...end).kaya gene nih

if (kondisi) then
 begin
  statemen_jika_kondisi_benar;{pake titik koma}
 end
else
  statemen_jika_kondisi_salah;

atau kaya gini aja juga bisa(buat banyak statemen gitu)

Read More

STATEMENT IF

#Statemen if
Statemen 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 untuk satu kasus,dua kasus,tiga kasus atau lebih. 

*If satu kasus
Statemen if satu kasus merupakan bentuk yang paling sederhana karena hanya melibatkan satu kondisi yang akan diperiksa.Apabila kondisi yang diperiksa bernilai benar,maka program akan mengeksekusi bagian yang berada dalam blok.Bila sebaliknya maka program akan mengabaikan statemen dan langsung mengeksekusi ke statemen2 selanjutnya yang berada di bawah blok pemilihan.
bentuknya kaya gini

{apabila satu statemen}
if (ekspresi) then
  statemen;

{apabila beberapa statemen}
if (ekspresi) then begin
  statemen1;
  statemen2;
  ...
end;

kita buat kasusnya oke !!! 

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

     WRITE ('Masukan Tingginya:');

     READLN (TINGGI);

Read More