Wednesday 9 May 2012

Contoh Program Data Mahasiswa

No comments
Baiklah tanpa basa basi ini dia source codenya...


Program nilaimahasiswa;
uses wincrt;
const
     Nmaks = 100;      {banyaknya elemen array}
Type Mahasiswa = record
    Nim : integer;
    NamaMhs : string[30];
    IPK : real;
                  end;
type TabMhs = array[1..Nmaks] of Mahasiswa;
var
   Fin : text;
   Fout : text;
   Mhs : TabMhs;
   i : integer; {indeks array}
   n : integer; {banyaknya elemen array}
   nomor:integer;

procedure BacaArsip(var A : TabMhs; var n:integer);
begin
    assign (Fin, 'datamhs.txt');
    reset (Fin);
    readln(Fin,n);
    for i := 1 to n do
    begin
         readln (Fin, A[i].Nim);
         readln (Fin, A[i].NamaMhs);
         readln (Fin, A[i].IPK);
    end;
end;
procedure CetakArray(A : TabMhs; n:integer);
begin
         write('No');
         write('   ');
         write('NIM');
         write('   ');
         write('Nama');
         write('   ');
         writeln('IPK');
    for i := 1 to n do
    begin
         write(i);
         write('   ');
         write(A[i].Nim);
         write('   ');
         write(A[i].NamaMhs);
         write('   ');
         writeln(A[i].IPK:0:2);
    end;
end;
procedure TambahData(var A : TabMhs; var n:integer);
begin
    i := n+1;
    begin
         writeln('Masukkan data mahasiswa [',i,']: ');
         write('Nim      : ');readln(A[i].Nim);
         write('Nama     : ');readln(A[i].NamaMhs);
         write('IPK      : ');readln(A[i].IPK);
    end;
    n :=n+1;
end;
procedure UbahData(var A : TabMhs; var n:integer);
begin
    write('Masukkan Nomor data yang akan diubah : ');  readln(i);
         write(i);
         write('   ');       
         write(A[i].Nim);
         write('   ');
         write(A[i].NamaMhs);
         write('   ');
         writeln(A[i].IPK:0:2);
    begin
         writeln('Masukkan data baru : ');
         write('Nim      : ');readln(A[i].Nim);
         write('Nama     : ');readln(A[i].NamaMhs);
         write('IPK      : ');readln(A[i].IPK);
    end;
end;
procedure HapusData(var A : TabMhs; var n:integer);
var cek:char;
    x:integer;
begin
    write('Masukkan Nomor data yang akan dihapus : ');  readln(x);
         write(x);
         write('   ');       
         write(A[x].Nim);
         write('   ');
         write(A[x].NamaMhs);
         write('   ');
         writeln(A[x].IPK:0:2);
    begin
         write('Apakah benar akan dihapus (y=ya, t=tidak)');readln(cek);
         if (cek='y') then
            begin
                 for i := x to n-1 do
                begin
                      A[i].Nim := A[i+1].Nim;
                      A[i].NamaMhs := A[i+1].NamaMhs;
                      A[i].IPK :=A[i+1].IPK;
                 end;
           n:=n-1;
           end
         else
             writeln('Penghapusan Batal');
    end;
end;
procedure SimpanArsip(A : TabMhs; n:integer);
begin
    assign (Fout,'datamhs.txt');
    rewrite (Fout);
    writeln(Fout,n);
    for i := 1 to n do
    begin   
         writeln(Fout,A[i].Nim);
         writeln(Fout,A[i].NamaMhs);
         writeln(Fout,A[i].IPK:0:2);
    end;
    close(Fout);
    writeln('Data sudah disimpan');
end;
begin
 repeat
 begin
 clrscr;
 writeln('***************************************');
 writeln('**** Sistem Administrasi Mahasiswa ****');
 writeln('***************************************');
 writeln('1. Tampilkan Data');
 writeln('2. Tambah Data');
 writeln('3. Ubah data');
 writeln('4. Hapus data');
 writeln('5. Keluar program');
 write('Masukkan pilihan anda (1/2/3/4/5) : ');readln(nomor);
 clrscr;
 case nomor of
 1: begin
        BacaArsip(Mhs,n);
        CetakArray(Mhs,n);
    end;
 2: begin
        BacaArsip(Mhs,n);
        TambahData(Mhs,n);
        SimpanArsip(Mhs,n);
    end;

 3: begin

        BacaArsip(Mhs,n);

        UbahData(Mhs,n);

        SimpanArsip(Mhs,n);
    end;
 4: begin
        BacaArsip(Mhs,n);
        HapusData(Mhs,n);
        SimpanArsip(Mhs,n);
    end;
 5: writeln('Keluar Program');
 else
  writeln('Nomor yang anda masukkan tidak ada di menu');
 end;
 end;
 readln;
 until(nomor=5);
end.

Contoh program sederhana pascal

No comments
Berikiut adalah beberapa program sederhana yang bisa di buat di pascal...

Assignment
program ini bertugas mengisikan nilai variabel


program asign2;
uses crt;
var
   i: integer;
   ii: longint;
begin
     clrscr;
     writeln('hello');
     i:= 1234;
     ii:=123456;
     writeln ('ini nilai i:  ',i);
     writeln ('ini nilai ii:',ii);
     writeln ('ini nilai max integer: ',maxint);
     writeln ('ini nilai max longint:',maxlongint);
     readln;
end.
Baca
program baca;
uses crt;
var
   a: integer;
begin
     clrscr;
   write ('contoh membaca dan menulis, ketik nilai integer:');
   readln(a);
   writeln ('nilai yang dibaca :  ',a);
   readln;
end.

Data pegawai
Program DataPegawai;
Uses Wincrt;
Type Pegawai = record
NIP       : String[9];
Nama      : String[50];
Golongan  : Char;
Jamkerja  : Real;
End;
Var
Data                 : Pegawai;
Gapok               : Real;
Insentif,Gaber    : Real;
Ul                    : Char;
Begin
  Repeat
    Clrscr;
    Writeln('Entry Data Pegawai PT. Punya gua');
    Writeln('==========================');
    Writeln;
    Write('NIP          : ');Readln(Data.NIP);
    Write('Nama         : ');Readln(Data.Nama);
    Write('Golongan     : ');Readln(Data.Golongan);
    Write('Jam Kerja    : ');Readln(Data.Jamkerja);
    Writeln;
    Writeln;
    Case Data.Golongan of
      '1'  : Gapok:=1000000;
      '2'  : Gapok:=1500000;
      '3'  : Gapok:=2000000;
      Else
       Gapok:=0;
    End;
    if Data.Jamkerja>200 then
      Insentif:=(Data.Jamkerja-200)*10000
    else
      Insentif:=0;
    Gaber:=Gapok+Insentif;
    Clrscr;
    Writeln('Laporan Gaji Pegawai');
    Writeln('PT. XYZ');
    Writeln;
    Writeln('============================================================================');
    Writeln('|NIP       | Nama                    | Golongan | Jam Kerja | Gaji         |');
    Writeln('============================================================================');
    Writeln('|',Data.NIP:10,'|',Data.Nama:25,'|',Data.Golongan:10,'|',Data.Jamkerja:11:0,'|',Gaber:14:2,'|');
    Writeln('============================================================================');
    Writeln;
    Write('Mau Ulang Lagi? [Y/T]: ');Readln(Ul);
  Until Upcase(Ul) <> 'Y';
End.

ok semoga bermafaat...

Looping

No comments
Berikut contoh source code aplikasi perulangan...

perulangan 1 

uses crt;
type
    point= record
           x,y: integer;
    end;
var
   p1,p2: point;
begin
     clrscr;
     writeln('contoh mengisi p1, dengan p1.x dan p1.y:' );
     p1.x:=1;
     p1.y:=2;
     writeln('p1.x:',p1.x);
     writeln('p1.y:',p1.y);
     writeln('baca titik p2');
     write('absis:');readln(p2.x);
     write('ordinat:');readln(p2.y);
     write('koordinat:',p2.x,',',p2.y);
     readln;
end.

perulangan 2

uses crt;
label lagi;
var
        x,y: integer;
        ulang: char;
begin
        clrscr;
lagi:
        readln(x);
        readln(y);

        writeln('penjumlahan',x+y);
        writeln('perkalian',x*y);
        readln;
           writeln('ulangi lagi(y/t)');
           readln(ulang);
           if ulang in ['y'] then
                goto lagi;

end.


Baiklah semoga bermanfaat...


Belajar Pascal

No comments


KODE YANG AKAN DIPASANG 



Baiklah saya disini akan berbagi beberrapa ilmu yang telah saya dapatkan dari perkuliahan saya di semester 1

sebelum mulai ngoding silahkan download aplikasi free pascal..bisa di downloaad disini

setelah di install silahkan tulis source code ini di program pascal...

uses crt;
var
        a,b:integer;
        hasil:char;
begin
        clrscr;
        readln(a);
        readln(b);

        writeln('pilih operasi yang anda inginkan');
        writeln('================================');
        writeln('masukkan operasi: 
                 (+)penjumlahan,
                 (-)pengurangan,
                 (*)perkalian,
                 (/)pembagian');

        readln(hasil);
        case hasil of

                '+':writeln('hasil: ',a+b);
                '-':writeln('hasil: ',a-b);
                '*':writeln('hasil: ',a*b);
                '/':writeln('hasil: ',a/b);
        else
                writeln('operasi salah');
        end;
        readln;
end.

klo sudah slesai Maka klik compile> run maka program akan berjalan...

Wednesday 2 May 2012

No comments

[sourcecode language="css"]


SELAMAT datang di blog saya...
semoga dengan blog ini saya bisa share pengalaman, cerita ilmu,...


[/sourcecode]