void-mainblog()

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.

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...

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...

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...