Program Gaji Karyawan

Kali ini saya akan sharing tentang program pascal, yaitu program Gaji Karyawan. Mudah-mudahan bermanfaat. Baik langsung saja......

Program Gaji_Karyawan;
uses crt;

var
nama, alm : string;
gapok, tot, tun : real;
gol, stt : char;
status, naik : boolean;


begin
clrscr;
   write('Masukkan Nama                : '); readln(nama);
   write('Masukkan Alamat              : '); readln(alm);

   repeat
   write('Masukkan Status [ M/T/D/J ]  : '); readln(stt);
   if (stt = 'M') or (stt = 'm') or
   (stt = 'T') or (stt = 't') or
   (stt = 'D') or (stt = 'd') or
   (stt = 'J') or (stt ='j') then
   naik := true
   else
     naik := false;
   until naik = true;

   repeat
   write('Masukkan Golongan [ A/B ]    : '); readln(gol);

   if (gol='A') or (gol='a') or (gol='B') or (gol='b') then
   status:= true
   else
     status:= false;

   until status = true;

   if (gol = 'A') or (gol = 'a')  then
   gapok := 500000
   else
     if (gol = 'B') or (gol = 'b') then
     gapok := 1000000;

   if (stt = 'm') or (stt = 'M') then
   tun := 0.1 * gapok
   else
     if (stt = 'tm') or (stt = 'TM') and
     (stt = 'D') or (stt = 'd') and
     (stt = 'J') or (stt ='j') then
     tun := 0;

tot := gapok + tun;

writeln;
writeln('======================================');
writeln('Nama       : ',nama);
writeln('Alamat     : ',alm);
writeln('Status     : ',stt);
writeln('Gaji Pokok : ',gapok:0:0);
writeln('Gaji Total : ',tot:0:0);
readln;
end.

Ini Hasil Running'nya....

Program Array_Dalam_Record

Kali ini saya akan sharing tentang program pascal, yaitu program menghitung nilai mahasiswa yang menggunakan array dalam record. mudah-mudahan bermanfaat.
Baik langsung saja mulai dari Sytak programnya dulu....

Program Array_Dalam_Record;
uses crt;
type data = record
     nama : string[50];
     uts,uas,tgs : byte;
     na : real;
     grade : char;
end;
var
   n,i : integer;
   x : array[1..100] of data;
begin
clscr;
  write('Masukan Jumlah Data : '); readln(n);
  writeln;
  for i:=1 to n do
  begin
      with x[i] do
      begin
           writeln;
           writeln(' DATA KE-',i,'');
           writeln('===================================');
           write('Masukkan nama        : '); readln(nama);
           write('Masukkan nilai Tugas : '); readln(tgs);
           write('Masukkan nilai UTS   : '); readln(uts);
           write('Masukkan nilai UAS   : '); readln(uas);

           na:= (0.2*tgs) + (0.3*uts) + (0.5*uas);
           if (na <= 100) and (na >= 80) then
           grade:= 'A'
           else
           if (na <= 79) and (na >= 60) then
           grade:= 'B'
           else
           if (na <= 59) and (na >= 40) then
           grade:= 'C'
           else
           if (na <= 39) and (na >= 20) then
           grade:= 'D'
           else
           if (na <= 19) and (na >= 0) then
           grade:= 'E';
      end;
  end;
  writeln;
  writeln(' * * * * * * * * DAFTAR NILAI AKHIR MAHASISWA * * * * * * * *');
  writeln('=============================================================');
  writeln;
  gotoxy(1,(n*10)); write('|   NAMA    ');
  gotoxy(1+10,(n*10)); write('| TUGAS ');
  gotoxy(1+25,(n*10)); write('| UTS ');
  gotoxy(1+30,(n*10)); write('| UAS ');
  gotoxy(1+35,(n*10)); write('| Nilai Akhir ');
  gotoxy(1+50,(n*10)); write('| Grade |');
  for i:=1 to n do
   begin
    with x[i] do
      begin
        gotoxy(1,(n*10+i)); write(' ',nama);
        gotoxy(1+10,(n*10+i)); write('| ',tgs);
        gotoxy(1+25,(n*10+i)); write('| ',uts);
        gotoxy(1+30,(n*10+i)); write('| ',uas);
        gotoxy(1+35,(n*10+i)); write('| ',na:0:2);
        gotoxy(1+50,(n*10+i)); write('| ',grade,'');
      end;
  end;
readln;
end.

Nah.....
dan ini hasil Runing programnya....!!!

Selamat Mencoba...!!!
:D

Jumlah Deret Perulangan

Sedikit contoh program perulangan yang menggunakan for to do untuk menghitung jumlah deret perulangan !

program Jumlah_Deret_Perulanagan;
uses crt;

Var

  i, x, jlm : integer;
  rata      : real;

begin
clscr;
  write('Masukkan Nilai Perulangan : ');

  readln(x);

  writeln('==============================');

  writeln;

  jlm:=0;

  for i:=1 to x do

  begin

    jlm:= jlm + i;

    end;
  rata := jlm/x;
  writeln('Jumlah Deret Perulangan : ',jlm);
  writeln('Rata - Rata Jumlah      : ',rata:0:2);
  readln;

end.                           

ini dia hasil outputnya !!!

                  

Deret Kuadrat dengan While do

Sedikit Tentang Program Untuk Menghitung Deret Kudrat di Pascal Dengan Menggunakan While do !!

program Deret_Kuadrat;
uses crt;

var
max, i, a : integer;

begin
clscr;
  write('Masukkan Batas Maksimal : ');
  readln(max);
  i:=0;
  while i < max do
  begin
    i:= i + 1;
    a := i * i;
    write(i);
    writeln(a:4);
  end;
  readln;
end.

Kurang Lebih Hasil Outputnya Seperti ini !!

 

Selamat Mencoba !!
:D

Pembalik Kata Dengan Array

Sekedar Berbagi tentang program pembalik kata di Pascal atau mengarjakan pascal dari Lazarus !!
:D

program pembalik_kata;
uses crt;
var
  x : array [1..100] of char;
  i, j, n : integer;

begin
clscr;
  write('Masukkan Jumlah Karakter : ');
  readln(n);
  writeln('================================');
  i:=0;
  j:=0;
  while n > i do
  begin
    i:= i + 1;
    write('Masukkan Karakter ke ',i,' : ');
    readln(x[i]);
  end;
  writeln;
  writeln('=====*** Hasil Keluaran ***=====');
  writeln;
  writeln('Kumpulan Karakter');
  writeln;
  while n > j do
  begin
    j:= j + 1;
    write(x[j]);
  end;
  WriteLn;
  writeln;
  writeln('Hasil Pembalikan');
  writeln;
  for i:=n downto 1 do
  begin
  write(x[i]);
  end;
  readln;
end.

Hasilnya Kira" kayak gini !!!
he.. he..,

Semoga Bermanfaat !!!

Mencari Rata - Rata dengan Perulangan For To Do

program rata_rata;
uses crt;
var
  i, jum, bil, n : integer;
  rata           : real;

begin
clscr;
  write('Masukkan Data yang Akan di Jumlahkan : ');
  readln(n);
  jum:=0;

  for i:=1 to n do
  begin
    write('Masukkan Bilangan ',i,' : ');
    readln(bil);
    jum:= jum + bil;
  end;
  rata := jum/n;
  writeln;
  writeln('Jumlah Bilangan    : ',jum);
  writeln('Rata - rata Jumlah : ',rata:0:2);
  readln;
end.

Ini dia Hasil Output Dari Program yg udah jadi.,
he.. he..

Selamat Mencoba...!!

Deret Bintang Dengan While do

Sekedar info untuk membuat deret bintang di pascal ato mengerjakan pascal dari lazarus.,
:D

program programbintang;
uses crt;
var
kolom,baris,jumbar : integer;

begin
clscr;
  write('Masukan Jumlah Baris: '); readln(jumbar);
  baris:= 0;
  while baris <= jumbar do
       begin
         kolom:=2;
         while kolom <= (baris + 1) do
         begin
           write('*');
           kolom:=kolom + 1;
         end;
         writeln;
         baris:=baris + 1
       end;
       readln;
end.

Nilai Maksimal dan Minimal dengan array

Pascal dan Lazarus Sedikit tentang program di dalam pascal atau lazarus untuk menghitung nilai maksimal dan minimal dengan menggunakan array....!!!!

program Array;
uses crt;
 
var

  Jum, I, Y, Max, Min    :integer;
  rata                   : real;
  X                      : array [1..100] of integer;
Pascal dan Lazarus

begin
clscr;
   write('Masukkan Batas Array : '); readln(Y);

    Jum:=0;

    writeln('===SILAKAN MASUKKAN NILAI====');

    for I:=1 to Y do

    begin

      write('Bilangan ke-',I,': '); readln(X[I]);

      Jum:=Jum + X[I];

      end;

    Rata:= Jum/y;

    Max := X[I];

    Min := X[I];

      For i:= 1 to Y do

      Begin

          if X[I] > max then max := X[I];

          if X[I ] < min then min := X[I]

    end;


    writeln;

    writeln('=============HASIL PENGELUARAN==============');

    writeln;

    writeln('Jumlah Data  adalah       : ',Jum);

    writeln('Rata - rata Jumlah adalah : ',Rata:0:2);

    writeln('Nilai Maksimalnya adalah  : ',Max);

    writeln('Nilai Minimalnya adalah   : ',Min);

    writeln;

    writeln('===========================================');

    writeln;

  readln;
end.

demikian syntak dari program nilai maksimal dan minimal dengan array.,
dan inilah hasil dari program waktu di jalankan