Masjito Blog
Archive for
Kode Pascal Menampilkan Bilangan Genap
Berikut ini adalah contoh pengulangan while .. do dalam bahasa pascal. Program Pengulangan; {program pengulangan menggunakan (while – do) tampilkan Bilangan GENAP kerjakan aksi SELAMA kondisi terpenuhi yaitu i<50 proses akan berhenti ketika nilai akhir i=49 } uses wincrt; {ganti dengan uses crt; jika menggunakan compiler free pascal} var i : integer; Begin … Continue reading
Kode Pascal Menampilkan Bilangan Ganjil
Berikut ini contoh bahasa Pascal untuk kasus pengulangan menggunakan: repeat .. until Program pengulangan; {program pengulangan menggunakan Repeat – Until menampilkan bilangan ganjil kerjakan aksi SAMPAI kondisi terpenuhi yaitu i>50 proses akan berhenti ketika nilai akhir i=51 } uses wincrt; {ganti dengan uses crt; jika menggunakan compiler free pascal} var i:integer; Begin clrscr; … Continue reading
Kode Pascal Menghitung Gaji (case .. of)
Program Penggajian_Case; {adalah program untuk menghitung gaji: CASE} uses wincrt; var no_induk: string[10]; nama : string[20]; kd_status, jml_anak : integer; g_pokok, t_gaji, tj, tj_istri, tj_anak: real; Begin clrscr; writeln(‘Sistim Perhitungan Gaji pakai CASE :’); write(‘Nomor Induk Pegawai :’); readln(no_induk); write(‘Nama :’); readln(nama); write(‘Gaji Pokok :’); … Continue reading
Kode Pascal Hitung Lembur (Case .. of)
Program Penggajian; {contoh algoritma pascal untuk menghitung upah dan lembur: mengunakan CASE .. OF} uses crt; var nama : string[20]; gol : integer; jam, jam_lembur, g_tetap, g_lembur, t_gaji : real; Begin clrscr; writeln(‘Sistim Perhitungan Gaji:’); writeln; write(‘Nama Karyawan : ‘); readln(nama); write(‘Golongan : ‘); readln(gol); write(‘Jumlah Jam … Continue reading
masjitoe
