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, e1, e2 : real;
start_a, start_b, start_c, start_d, start_e : real;
end_a, end_b, end_c,end_d, end_e : real;
late_a, late_b, late_c, late_d, late_e : real;
late_a1, late_b1, late_c1, late_d1, late_e1 : real;
tot_idle, tot_late : real;
lagi : char;
begin
lagi:=’y’;
while [...]

Read Full Post »

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 A’);
for i:=1 to n_i do
for j:=1 to n_j do
begin
write(‘baris ke-’,i,’kolom ke-’,j,’ :’);
readln(A[i,j]);
end;
writeln(‘penetapan nilai matriks B’);
for j:=1 to n_j do
for k:=1 to n_k do
begin
write(‘baris ke-’,j,’kolom ke-’,k,’ :’);
readln(B[j,k]);
end;
writeln(‘Perhitungsn sedang dilakukan ..’);
for i:= 1 to n_i do
for k:= 1 to [...]

Read Full Post »

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
for kolom:=1 to j_kolom do begin
write(‘Baris ke-’,baris,’ Kolom ke-’,kolom,’:’);
readln(A[baris,kolom]);
end;
textcolor(red);
writeln(‘Penetapan nilai matrik B’);
for baris:=1 to j_baris do
for kolom:=1 to j_kolom do begin
write(‘Baris ke-’,baris,’ Kolom ke-’,kolom,’:’);
readln(B[baris,kolom]);
end;
textcolor(green+blink);
writeln(‘Perhitungan sedang dilakukan’);
for baris:=1 to j_baris do
for kolom:=1 to j_kolom do begin
C[baris,kolom]:= A[baris,kolom]+B[baris,kolom];
end;
textcolor(yellow);
writeln(‘Nilai matrik C’);
for baris:=1 [...]

Read Full Post »

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                               
     clrscr;
     i := 0;
     while ( i<50 )
     do
       begin
         i [...]

Read Full Post »

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;
     i:=1;
     repeat
        write(‘ ‘,i);
        i:=i+2;
     until(i>50);
        readln;
end.

Read Full Post »

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           :’); readln(g_pokok);
     write(‘Status Perkawinan    :’); readln(kd_status);
        case kd_status of
             1: begin  {kawin}
                   tj_istri:=0.1*g_pokok;
                   write(‘Jumlah Anak [...]

Read Full Post »

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 Kerja   : ‘); readln(jam);
     writeln;
     if jam<=145 then
        begin
            jam_lembur:=0;
        end
     else
        [...]

Read Full Post »