Masjito Blog

Tukang Jualan Aplikasi / Software LKM (BPR, BMT, KSP, LKM, Lab Banking, Dll)

Category Archives: Algoritma Pascal

Pascal Penjadwalan Job / Proses

LISTING PROGRAM : Download Klik Disini Program Penjadwalan_Job; {adalah program untuk penjadwalan job} uses crt; var job_a, job_b, job_c, job_d, job_e :string[1]; a1, a2, b1, b2, c1, c2, d1, d2, … Continue reading

26/04/2009 · 2 Comments

Kode Pascal Perkalian Matriks

program perkalian_matriks; uses crt; const n_i=2; n_j=2; n_k=1; var A: array [1..n_i,1..n_j] of integer; B: array [1..n_j,1..n_k] of integer; C: array [1..n_i,1..n_k] of integer; i,j,k:integer; begin clrscr; writeln(‘penetapan nilai matriks … Continue reading

18/12/2007 · Leave a comment

Kode Pascal Penjumlahan Matrik

program penjumlahan_matrik; uses crt; const j_baris=2; j_kolom=2; var a,b,c : array[1..j_baris,1..j_kolom] of integer; baris, kolom : integer; begin clrscr; color_background(white); textcolor(blue); writeln(‘Penetapan nilai matrik A’); for baris:=1 to j_baris do … Continue reading

18/12/2007 · Leave a comment

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 … Continue reading

19/11/2007 · Leave a comment

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 … Continue reading

19/11/2007 · Leave a comment

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; … Continue reading

15/11/2007 · Leave a comment

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; … Continue reading

15/11/2007 · Leave a comment

My Tweet

Follow

Get every new post delivered to your Inbox.