Sunday, 31 May 2015

#include "stdio.h"
#include "conio.h"
void main (){
int i,NIK[15],Golongan[15],jumdata=5; 
char *nama;
float pajak,gaji,gajibersih;

printf ("/n input NIK");


printf ("/n input Golongan");


for (i=0; i<jumdata;i+1);

{          
 printf ("/n NIK:"); scanf ("%d",& nama[i]);         
 printf ("/n Golongan:"); scanf ("%",& gaji[i]);
}
clrscr(), printf ("/n Informasi Pembayaran Gaji");

printf ("/n ----------------------");

printf ("/n No NIK Nama Pegawai  Golongan   Gaji Pokok   Pajak  Gaji bersih");

printf ("/n ----------------------");

for (i=0;i<jumdata;i++);       

     if (NIK[i]= =1){      
     nama = "Hendro";      
   }else if (NIK[i]= =2){       
     nama = "Dian";     
   }else if (NIK[i]= = 3){       
     nama = "Jhoni";
}

for (i=0;i<jumdata;i++);    

     if (Golongan[i]= =1){       
      gaji=1500000;   
     }else if (Golongan[i]= =2){       
      gaji=2500000;  
     }else if (Golongan[i]= =3){       
     gaji=.3500000;
 }

Pajak = 0.05 * Gaji;

Gaji Bersih = Gaji- Pajak;

gotoxy (1,6+i):printf ("%d %d %s ", i+1,NIK[i],nama);

gotoxy (30,6+i); printf ("%10.0f %d %10.0f", Golongan[i], gaji, gajibersih,pajak);
 }   
      printf ("/n =========================");   
    }
}

cara menghitung kasus pembayaran gaji pegawai

#include "iostream.h"
#include "conio.h"
void main(){
    int i,nik[15],gol[15],jumdata=3;
    char*Nap;
    float gapok,pajak,gaber;
 cout<<"\nInput Data Pegawai";
 for(i=0;i<jumdata;i++){
    cout<<"\nNIK :";cin>>nik[i];
    cout<<"\nGol :";cin>>gol[i];
 }
 clrscr();
 cout<<"\n\t\tInformasi  Pembuatan Gaji Pegawai";
 cout<<"\n===============================================";
 cout<<"\nNo NIK Nama Pegawai Golongan  Gaji pokok  Pajak   Gaji Bersih";
 cout<<"\n===============================================";
 for(i=0;i<jumdata;i++){
    if(nik[i]==1 && gol[i]==1){
    Nap="Hendro";
    gapok=1500000;
    }else if(nik[i]==2 && gol[i]==2){
    Nap="Dian";
    gapok=2500000;
    }else if(nik[i]==3 && gol[i]==3){
    Nap="Jhoni";
    gapok=3500000;
    }
    pajak=0.05*gapok;
    gaber=gapok-pajak;
    gotoxy(1,6+i);cout<<9;
    gotoxy(5,6+i);cout<<nik[i];
    gotoxy(10,6+i);cout<<Nap;
    gotoxy(23,6+i);cout<<gol[i];
    gotoxy(33,6+i);cout<<gapok;
    gotoxy(43,6+i);cout<<pajak;
    gotoxy(52,6+i);cout<<gaber;
}
    cout<<"\n===============================================";
    cout<<"\n\t-_-_-_-_-Dimpos Situmorang-_-_-_-_-";
    getch();
 }

Monday, 11 May 2015

contoh pemograman pascal

Contoh Program Kelipatan 5 Repeat Until Pada Pascal
uses crt;
var a: integer;
begin
clrscr;
a:=5;
repeat
write(a,’ ‘);
a:=a+5;
until a>25;
readln;
end.
Administrasi mahasiswa
Program Administrasi_Mahasiswa;
uses crt;
const
pkkspp = 400000;
infospp = 600000;
elekspp = 500000;
bogaspp = 450000;
ptikspp = 500000;
pkkprak = 100000;
infoprak = 500000;
elekprak = 450000;
bogaprak = 600000;
ptikprak = 350000;
sehat : real = 10000;
var
nm,jur : string;
nojur : byte;
tahun :integer;
spp,prak : real;
tot : real;
begin
clrscr;
writeln(‘Administrasi Mahasiswa Fakultas Teknik dan Kejuruan’);
writeln(‘===================================================’);
write(‘Nama : ‘); readln(nm);
writeln(‘Keterangan Jurusan : ‘);
writeln(’1. PKK’);
writeln(’2. D3 Informatika’);
writeln(’3. D3 Elektro’);
writeln(’4. D3 Boga Perhotelan’);
writeln(’5. PTIK’);
write(‘Jurusan (tulis no saja) : ‘); readln(nojur);
write(‘Tahun Masuk : ‘); readln(tahun);
if tahun<2004 then
begin
if nojur = 1 then
begin
spp := pkkspp;
jur := ‘PKK’
end
else if nojur = 2 then
begin
spp :=infospp;
jur := ‘D3 Informatika’;
end
else if nojur = 3 then
begin
spp :=elekspp;
jur := ‘D3 Elektro’
end
else if nojur = 4 then
begin
spp :=bogaspp;
jur := ‘D3 Boga Perhotelan’;
end
else if nojur= 5 then
begin
spp :=ptikspp;
jur := ‘PTIK’
end
else
writeln(‘Jurusan salah, tolong ulangi !!’);
end
else
begin
if nojur = 1 then
begin
spp := pkkspp;
prak:= pkkprak;
jur := ‘PKK’
end
else if nojur= 2 then
begin
spp :=infospp;
prak:= infoprak;
jur := ‘D3 Informatika’;
end
else if nojur = 3 then
begin
spp :=elekspp;
prak:=elekprak;
jur := ‘D3 Elektro’;
end
else if nojur = 4 then
begin
spp :=bogaspp;
prak:=bogaprak;
jur := ‘D3 Boga Perhotelan’;
end
else if nojur= 5 then
begin
spp :=ptikspp;
prak:=ptikprak;
jur := ‘PTIK’;
end
else
writeln(‘Jurusan salah, tolong ulangi !!’);
end;
tot := spp+prak+sehat;
writeln(‘Nama : ‘,nm);
writeln(‘Jurusan : ‘,jur);
writeln(‘Tahun Masuk : ‘,tahun);
writeln(‘Uang SPP : Rp. ‘,spp:7:2);
writeln(‘Uang Praktikum : Rp. ‘,prak:7:2);
writeln(‘Uang Kesehatan : Rp. ‘,sehat:7:2);
writeln(‘———————————’);
writeln(‘Total Pembayaran : Rp. ‘,tot:7:2);
writeln(‘=================================================’);
readln;
end.
Regula Falsi
program regula_falsi;
uses crt;
label ulang;
var
x1,x2,x3,y1,y2,y3 : real;
i : integer;
Ab :char;
data1 : real;
begin
ulang:
clrscr;
writeln(‘Tentukan nilai akar dari persamaan f(x)=x^3+x^2-3x-3=0 dengan Regula Falsi’);
write(‘Masukan nilai x1 = ‘);readln(x1);
y1 := x1 * x1 * x1 + x1 * x1 – 3 * x1 – 3;
writeln(‘ Nilai f(x1)= ‘,y1:0:4);
repeat
begin
write( ‘Masukan nilai x2 = ‘ ); readln(x2);
y2 := x2 * x2 * x2 + x2 * x2 – 3 * x2 – 3;
write(‘ Nilai f(x2)= ‘,y2:0:4);
end;
if (y1*y2)<0 then
Writeln(‘ Syarat Nilai Ok’)
else
Writeln(‘ Nilai X2 Belum Sesuai’);
until ( y1 * y2 ) <0;
writeln;
writeln(‘Penyelesaian persamaan karekteristik dengan metoda regula falsi’);
writeln(‘———————————————————————-’);
writeln(‘ n x f(x) error ‘);
writeln(‘———————————————————————-’);
repeat
begin
i:= i + 1; x3 := ( x2-( y2 / ( y2 – y1))*(x2-x1));
y3 := x3 * x3 * x3 + x3 * x3 – 3 * x3 – 3;
if i<10 then
writeln(‘ ‘,i,’ : ‘,x3,’ : ‘,y3,’ : ‘,abs(y3),’ : ‘)
else
writeln(i,’ : ‘,x3,’ : ‘,y3,’ : ‘,abs(y3),’ : ‘);
if ( y1 * y3 ) <0 then
begin
x2 := x3 ; y2 := y3 ;
end
else
begin
x1 := x3 ; y1 := y3;
end;
end;
until abs( y3 ) < 1E-08;
writeln(‘———————————————————————-’);
writeln(‘Akar persamaannya= ‘,x3);
writeln(‘Errornya=’ ,abs( y3 ));
writeln(‘———————————————————————-’);
writeln(‘Apakah anda ingin mengulangi (y/t): ‘);
readln(ab);
if (ab=’y') or (ab=’Y') then
goto ulang;
end.
Menghitung nilai Sin dengan sudut radian
program sin(x);
uses crt;
const pi = 3.14;
var
x,rad,p1,tot : real;
n,i,faktor,p2,j : integer;
tanda : byte;
begin
clrscr;
writeln(‘ Menentukan nilai sin(x)’);
write(‘Nilai x = ‘); readln(x);
write(‘Masukkan pangkat = ‘); readln(n);
rad := pi*x/180;
i := 1;
tanda := 1;
while i <= n do
begin
p1 := exp(i*ln(rad));
faktor := 1;
for j := 1 to i do
faktor := faktor *j;
p2 := faktor;
tot := tot + (tanda*p1/p2);
tanda := (-1)*tanda;
i := i+2;
end;
writeln(‘Sin(‘,x:5:2,’) = ‘,tot:5:2);
readln;
end.
Menghitung Luas dan keliling lingkaran
Program Luas_dan_Keliling_Lingkaran;
uses crt;
const pi = 3.14;
var
r,K,L : real;
begin
clrscr;
writeln(‘=============================’);
writeln(‘Menghitung Luas dan Keliling’);
writeln(‘—————————-’);
write(‘Jari – jari = ‘); readln(r);
K := pi*2*r;
L := pi*r*r;
writeln(‘Keliling Lingkaran = ‘,K:5:2);
writeln(‘Luas Lingkaran = ‘,L:5:2);
writeln(‘=============================’);
readln;
end.
Program Cek kelulusan dalam bahasa Pascal
program cek_kelulusan_siswa;
uses crt;
var
nama : string[25];
kelas : string[5];
no_absen : string[3];
n_tugas : byte;
n_u_hari : byte;
n_u_umum : byte;
rerata : real;
lulus : boolean;
predikat : string[20];
begin
clrscr;
writeln(‘====================================================’);
writeln(‘| Program Mengecek Kelulusan Siswa |’);
writeln(‘====================================================’);
writeln;
writeln(‘Input Data Siswa’);
writeln(‘—————-’);
write(‘Nama : ‘); readln(nama);
write(‘Kelas : ‘); readln(kelas);
write(‘No Absen : ‘); readln(no_absen);
write(‘Nilai Tugas : ‘); readln(n_tugas);
write(‘Nilai Ulangan Harian : ‘); readln(n_u_hari);
write(‘Nilai Ulangan Umum : ‘); readln(n_u_umum);
rerata:=(n_tugas + 2 * n_u_hari + 3 * n_u_umum)/6;
if rerata >=70 then lulus:=true
else lulus:= false;
clrscr;
writeln(‘====================================================’);
writeln(‘| Program Mengecek Kelulusan Siswa |’);
writeln(‘====================================================’);
writeln;
writeln(‘ Siswa dengan’);
writeln(‘—————-’);
writeln(‘Nama : ‘,nama);
writeln(‘Kelas : ‘,kelas);
writeln(‘No Absen : ‘,no_absen);
writeln(‘Nilai Tugas : ‘,n_tugas);
writeln(‘Nilai Ulangan Harian : ‘,n_u_hari);
writeln(‘Nilai Ulangan Umum : ‘,n_u_umum);
writeln(‘Rata – rata : ‘,rerata:0:2);
if lulus then
begin
if rerata < 80 then predikat:=’memuaskan’
else if rerata <90 then predikat:=’sangat memuaskan’
else predikat:=’dengan pujian’;
writeln(‘Dinyatakan Lulus dengan ‘,predikat);
end
else
writeln(‘Dinyatakan Tidak Lulus’);
readln;
end.
Penggunaan Record pada Turbo Pascal
uses crt;
type nilai = record
hari,tugas,umum,na : real;
end;
type mapel = record
kimia,basindo : nilai;
end;
type siswa = record
nama : string[25];
nis : string[3];
mp : mapel;
end;
var
i,n,a : byte;
student : array [1..100] of siswa;
stop : boolean;
b : string[4];
begin
stop := false;
Repeat
clrscr;
write(‘Banyak siswa : ‘); readln(n);
clrscr;
writeln(‘=======================================================================’);
writeln(‘NIS Nama Siswa Mata Pelajaran N.Hr N.Tgs N.Umum N.Akhir’);
writeln(‘———————————————————————–’);
a:=4;
for i := 1 to n do
begin
with student[i] do
begin
readln(nis);
gotoxy(6,a);
readln(nama);
with mp do
begin
gotoxy(26,a);
writeln(‘Bahasa Indonesia’);
with basindo do
begin
gotoxy(44,a);
readln(hari);
gotoxy(50,a);
readln(tugas);
gotoxy(57,a);
readln(umum);
na:=(2*hari+tugas+3*umum)/6;
gotoxy(65,a);
writeln(na:3:2);
end;

Pengenalan bahasa pemograman Turbo Pascal

1) Pengenalan Bahasa Pemrograman
Program adalah instruksi-instruksi yang diberikan kepada komputer agar komputer dapat melaksanakan tugas-tugas tertentu. Pemrograman adalah upaya untuk membuat program.
Komputer mempunyai bahasa dasar yang berupa bahasa mesin. Bahasa mesin adalah bahasa yang hanya mengenal kode biner (kode yang berisi angka 0 dan 1 saja) sehingga sangat sulit dibuat, maka diciptakanlah bahasa pemrograman agar mudah dalam pembuatan program.  Pada dasarnya ada dua golongan bahasa pemrograman komputer, yaitu : bahasa pemrograman tingkat rendah (low level languages) dan bahasa pemrograman tingkat tinggi (high level lenguages).
Bahasa pemrograman tingkat rendah adalah bahasa yang berorientasi kepada mesin, yang termasuk dalam golongan ini adalah bahasa mesin (machine languages) dan bahasa rakitan (assembly languages).
Bahasa pemrograman tingkat tinggi adalah bahasa yang berorientasi pada bahasa manusia, umumnya kata-kata yang digunakan adalah bahasa Inggris. Contoh bahasa tingkat tinggi antara lain: Pascal, Basic, Cobol, Fortran, C dan C++.
Bahasa pemrograman selain bahasa mesin tidak dapat dipahami oleh komputer karena komputer hanya mengenal kode 1 dan 0, agar dapat dimengerti oleh komputer maka perlu diterjemahkan terlebih dahulu menggunakan Interpreter atau kompiler. Perbedaan antara Interpreterdan kompiler adalah pada Interpreter menerjemahkan perintah satu demi satu, sedangkan pada kompiler menerjemahkan perintah dari program langsung sekaligus semua perintah.
2) Bahasa Pascal
Bahasa pemrograman yang akan dipelajari pada kompotensi Mengoperasikan Software Bahasa Pemrograman Level 1 ini adalah bahasa Pascal. Bahasa pascal dirancang oleh Profesor Niklaus Wirth dari Technical University Zurich Swiss. Nama pascal sendiri diambil untuk mengenang dan mengabadikan seorang matematikawan Perancis bernama Blaise Pascal (1623-1662).
Turbo pascal menyediakan fasiltas IDE (Integrated Development Environment), yang diantaranya berisi:
a)    Kompiler (untuk mengkompilasi program menjadi suatu objek yang dapat dipahami oleh komputer)
b)   Debugger ( untuk membantu mencari kesalahan program)
c)    Linker (untuk menggabungkan file objek dan file pustaka serta membentuk file executable)
d)   Editor (untuk menuliskan program sumber).
3) Menginstal Turbo Pascal
Sistem minimum yang diperlukan untuk menginstal Turbo Pascal yaitu PC dengan clock prosesor 486 yang mempunyai CDROM, sistem operasi DOS atau windows, free space 5 MB dan Master Turbo Pascal 7.0. Proses instalasi  Turbo Pascal 7.0, meliputi:
a)    Hidupkan Komputer
b)   Masukkan CD master Turbo Pascal 7.0 ke drive CDROM
c)    Masuk ke direktori CDROM kemudian masuk ke folder Turbo Pascal 7.0.
Gambar 1. Persiapan Instal Turbo Pascal
d)   Double klik file Install.exe, kemudian muncul kotak dialog sebagai berikut:
Gambar 2. Tampilan Install.exe
e)    Klik Run Program, Keluar tampilan kotak dialog seperti di bawah ini, kemudian tekan Enter
Gambar 3. Kotak Dialog Install Utility
f)     Keluar kotak dialog dengan pertanyaan Enter the source drive to use maksudnya ketikan drive CDROM yang berisi master Turbo Pascal, kemudian tekan Enter
g)   Keluar kotak dialog dengan pertanyaan Enter the source pathmaksudnya adalah ketikan nama folder master Turbo Pascal, kemudian tekan enter
h)   Keluar kotak dialog dengan dua macam pilihan yaitu mau di tempatkan di mana program yang kita install di harddisk atau floppy drive, kita pilih yang pertama karena kita akan memasukkan program ke dalam harddisk, setelah itu tekan enter
i)     Keluar kotak dialog seperti di bawah ini, maksudnya adalah kita akan memasukan program ke dalam drive apa di harddisk ? Kemudian pilih Start Instalation dan tekan Enter.
Gambar 4. Mengarahkan Folder Turbo Pascal
j)   Tinggal menunggu proses instalasi selesai.
k)    Setelah selesai proses instalasi, untuk menjalankan Turbo Pascal dengan cara masuk ke folder hasil instalasi pada direktori bindouble klik file TPX.exe.
l)     Tampilan awal pascal
Gambar 5. Tampilan Turbo Pascal 7.0
  1. a. Rangkuman 1
Bahasa pemrograman dibagi menjadi dua, yaitu bahasa tingkat tinggi (High level lenguage) dan bahasa tingkat rendah (Low level lenguage). Pascal termasuk dalam bahasa tingkat tinggi.
Spesifikasi komputer untuk menginstal Turbo Pascal 7.0 memiliki syarat minimum PC yaitu PC dengan clock prosesor 486 yang mempunyai CDROM, sistem operasi DOS atau windows, free space 5 MB dan Master Turbo Pascal 7.0. Proses instalasi  Turbo Pascal 7.0
  1. b. Tugas 1
1)       Pelajarilah uraian materi diatas!
2)       Apakah yang dimaksud dengan file executable ?
3)       Sebutkan perbedaan interpreter dan kompiler ?
4)       Setelah selesai praktek buatlah laporannya!
  1. c. Tes Formatif 1
1)       Apakah yang dimaksud dengan bahasa pemrograman tingkat tinggi !
2)       Sebutkan contoh-contoh bahasa tingkat tinggi ?
3)       Apakah yang dimaksud dengan Editor, Debugger, Linker dan Kompiler
4)       Installah program Turbo Pascal 7.0 ke drive C!
  1. d. Kunci Jawaban Formatif 1
1)       Bahasa pemrograman tingkat tinggi adalah bahasa yang berorientasi pada bahasa manusia, tidak menggunakan kode 0 dan 1, pada bahasa ini memerlukan penerjemah (interpreter dan kompiler) agar dapat dipahami oleh komputer.
2)       Contoh bahasa tingkat tinggi adalah basic, cobol, pascal, fortran, C dan C++.
3)       Yang dimaksud istilah di bawah ini adalah
a)        Editor (untuk menuliskan program sumber).
b)       Debugger ( untuk membantu mencari kesalahan program)
c)        Linker (untuk menggabungkan file objek dan file pustaka serta membentuk file executable)
d)       Kompiler (untuk mengkompilasi program menjadi suatu objek yang dapat dipahami oleh komputer)
4)       Ikuti langkah instalasi program seperti uraian materi diatas
  1. e. Lembar Kerja 1
Alat dan Bahan
1)       Perangkat komputer dengan CD ROM
2)   CD master Turbo Pascal 7.0

Kesehatan Dan Keselamatan Kerja

1)       Berdo’alah sebelum memulai kegiatan belajar.
2)       Bacalah dan pahami petunjuk praktikum pada setiap lembar kegiatan belajar.
3)       Pastikan komputer dalam keadaan baik, semua kabel penghubung terhubung dengan benar.
4)       Jangan meletakkan benda yang dapat mengeluarkan medan elektromagnetik di dekat komputer (magnet, handphone, dan sebagainya).
5)       Gunakanlah komputer sesuai fungsinya dengan hati-hati. Jangan bermain game!
6)        Setelah selesai, matikan komputer dengan benar!
Langkah Kerja
1)       Siapkanlah peralatan yang akan digunakan!
2)       Periksa semua kabel penghubung pada komputer.
3)       Hidupkan komputer dengan menekan saklar pada komputer. Jangan menghidupkan komputer dengan memasukkan colokan ke stop kontak ketika saklar dalam keadaan on.
4)       Setelah komputer menyala, masukan cd master Turbo Pascal ke dalam CDROM.
5)       Lakukan proses instalasi Turbo Pascal 7.0 ke dalam drive C pada harddisk.
6)       Buatlah hasil analisis dari proses instalasi yang telah dilakukan!
7)       Setelah selesai keluarkan cd master Turbo Pascal dari drive CDROM, matikan komputer sesuai prosedur dan rapikan seperti semula.
  1. 2. Kegiatan Belajar 2 : Penggunaan Turbo Pascal
  2. a. Tujuan Kegiatan Pemelajaran
Setelah melaksanakan kegiatan pemelajaran 2 diharapkan peserta diklat mengenal Turbo Pascal dan pemrograman menggunakan Turbo Pascal.
  1. b. Uraian Materi 2
1) Mengenal Lingkungan Turbo Pascal
Gambar 6. Menu Turbo Pascal
Turbo Pascal memiliki menu-menu  pada bagian atas layar. Item-item dari menu ini berupa:
a)        File, berisi berbagai perintah seperti :
(1)     Membuat program baru (New)
(2)     Menyimpan file (save)
(3)     Mencetak program ke printer (Print)
(4)     Memuat program ke editor
(5)     Mengubah direktori kerja (Change dir)
(6)     Keluar dari DOS sementara (DOS shell)
(7)     Keluar dari Turbo Pascal (Exit).
b)       Edit, berisi berbagai perintah seperti
(1)     membatalkan perintah (Undo)
(2)     kembali ke perintah sebelumnya (Redo)
(3)     menyalin (copy+paste)
(4)     membuang teks (cut)
(5)     melihat isi Clipboard (Show clipboard)
c)        Search, digunakan untuk mencari (find) dan mengganti teks (replace)
d)       Run, digunakan untuk menjalankan/mengeksekusi program (Run atau menekan ctrl+F9), mengatur eksekusi perintah per langkah (Step over) dan mengisikan parameter baris perintah.
e)        Compile, digunakan untuk mengkompilasi program ke disk atau memori, mengkompilasi secara cerdas terhadap program multifile dan menampilkan informasi mengenai program dan besarnya memori. Compile dapat pula dilakukan dengan menekan F9.
f)         Debug, digunakan untuk mencari kesalahan/ debugging
g)       Tools, digunakan untuk menampilkan jendela pesan kesalahan
h)       Options, digunakan untuk mengatur bebarapa pilihan yaitu debugger dan linker.
i)         Window, digunakan untuk menutup jendela yang sedang aktif
j)         Help, berisi berbagai bantuan dalam turbo pascal.

2)       Pengoperasian Menu Turbo Pascal 7.0

Cara menggunakan menu ditunjukkan sebagai berikut :
TindakanDengan MouseDengan Keyboard
Menampilkan sebuah menuGerakan penunjuk mouse ke nama menu dan kemudian klik tombolTekan <Alt> dan tekan huruf kunci dari menu yang dikehendaki (terdapat warna yang berbeda pada menu)
Memilih perintahGerakan penunjuk mouse ke suatu perintah dalam menu, kemudian klik kiriTekan tombol yang menjadi kunci dari perintah
Membatalkan perintahKlik di luar menuTekan <Esc>
Contoh penggunaan Turbo Pascal 7.0 untuk menuliskan program:
a)        Membuat File Baru, perintahnya sebagai berikut :
Pilih menu File, kemudian pilih New
b)       Menyimpan File program, perintahnya sebagai berikut :
Pilih menu File, kemudian pilih Save
c)        Menutup program, perintahnya sebagai berikut :
Pilih menu Window, kemudian pilih close
d)       Membuka File, perintahnya sebagai berikut :
Pilih menu File, kemudian pilih Open
e)        Keluar dari Turbo Pascal, perintahnya sebagai berikut :
Pilih menu File, kemudian pilih Exit

3)       Struktur Program Pascal

Secara ringkas struktur program pascal terdiri dari :
a)        Judul Program, bersifat optional (bisa ditulis bisa tidak), untuk nama program adalah nama program yang kita buat dengan syarat penulisan harus berbeda dengan nama unit atau prosedur yang disediakan oleh pascal, tidak boleh ada spasi, tidak boleh ada tanda hubung (-) dan tidak boleh diawali dengan angka.
b)       Bagian Deklarasi, digunakan bila di dalam program menggunakan pengenal (identifier). Identifier dapat berupa :
(1)  Konstanta
(2)  Label
(3)  Tipe
(4)  Variabel
(5)  Deklarasi subprogram (prosedur dan fungsi)
Apabila suatu program menggunakan identifier, pascal menuntut supaya identifier tersebut dikenalkan terlebih dahulu sebelum digunakan, yaitu dideklarasikan terlebih dahulu.  Massing-masing deklarasi akan diterangkan pada Uraian Materi 3.
c)        Bagian Pernyataan, dengan struktur penulisan:
Begin
Pernyataan;
End.

Contoh macam-macam bahasa pemograman

Instruksi yang berbentuk bilangan binary disebut dengan object code. Sedangkan kumpulan dari instruksi-instruksi yang membentuk suatu program dalam bahasa mesin disebut dengan object program. Tiap-tiap instruksi object code terdiri dari operation code (op code) dan open and. Penulisan program dengan bahasa mesin dirasakan terlalu sulit dan memakan banyak waktu, maka dikembangkan languange software sebagai alternatif penulisan program yang lebih mudah. Penerjemah bahasa pemrograman dibedakan menjadi 3 (tiga) macam, yaitu assembler, kompiler, dan interpreter.
1) Asembler adalah program yang digunakan untuk menerjemahkan kode sumber dalam bahasa rakitan (assembly) ke dalam bahasa mesin.
2) Kompiler adalah program penerjemah yang mengonversi semua kode sumber selain dalam bahasa rakitan menjadi kode objek. Hasil berupa kode objek inilah yang dapat dijalankan oleh komputer. Proses untuk melakukan penerjemahan ini biasa disebut kompilasi.
3) Intepreter adalah program yang menerjemahkan satu per satu instruksi dalam kode sumber kemudian menjalankan instruksi yang telah diterjemahkan tersebut.
Perangkat lunak bahasa pemrograman (language software) merupakan program yang digunakan untuk menerjemahkan perintah-perintah yang ditulis dalam bahasa program ke dalam bahasa mesin sehingga dapat diterima dan dimengerti oleh komputer. Pada dasarnya bahasa komputer dapat dibedakan menjadi empat macam, yaitu bahasa mesin dan bahasa assembly (kedua bahasa ini termasuk bahasa tingkat rendah/low level language), bahasa tingkat tinggi(high level language), dan bahasa generasi keempat.

1) Bahasa Mesin

Bahasa mesin termasuk ke dalam bahasa tingkat rendah (low level language) karena sifat dari bahasa mesin lebih berorientasi pada mesin. Bahasa ini hanya akan dipahami oleh komputer itu sendiri. Bahasa ini berupa kode-kode yang terdiri dari sekumpulan angka yang ada di dalam komputer yang biasanya diwakili oleh kode angka 1 (satu) dan 0 (nol). Kode ini merupakan sinyal elektronik yang memberitahu komputer apa yang harus dikerjakan. Dalam penggunaannya biasanya intruksi dituliskan dalam bentuk bahasa pemrograman yang akan disampaikan ke kompiler, assembler, atau interpreter yang bertugas untuk menerjemahkan bahasa pemrograman tadi ke bahasa mesin.
Assembler merupakan sebuah program. Program ini mengambil informasi yang dituliskan oleh programmer dalam bahasa assembly dan menerjemahkannya ke sebuah program yang dapat dieksekusi komputer. output assembler harus diproses oleh linker untuk menghasilkan program akhir.

2) Bahasa Assembly

Bahasa asembly adalah bahasa pemrograman yang menggunakan bahasa rakitan. Bahasa assembly kebanyakan digunakan untuk pengendalian hardware yang diwujudkan dalam kependekan kata-kata sebagai pengganti kode-kode biner, misalnya JNZ (jump non zero) yang artinya lompatlah jika tidak sama dengan nol. Kelanjutan dari bahasa assembly adalah sebuah program yang berguna untuk mengambil informasi yang dituliskan oleh seorang programmer dalam bahasa assembly serta menerjemahkannya ke dalam sebuah program yang dapat dieksekusi oleh komputer, program ini dinamakan assembler. Output assembler harus diproses oleh linker untuk menghasilkan program akhir.

3) Bahasa Tingkat Tinggi (High Level Languange)

Bahasa tingkat tinggi memiliki arti bahwa bahasa ini lebih mudah dimengerti oleh banyak orang karena memang dirancang untuk orang yang awam. Bahasa pemrograman yang termasuk dalam bahasa tingkat tinggi adalah sebagai berikut.
a) BASIC (Beginners All-purposes Symbolic Instruction Code)
Bahasa program ini dikembangkan pada tahun 1965 di Darmouth College. Penciptanya adalah John Kemeny dan Thomas Kurtz. BASIC dipergunakan dalam aplikasi matematika. Selain itu, BASIC juga digunakan dalam beberapa aplikasi lainnya seperti akuntasi, permainan, file simulasi, dan lain-lain.
Keunggulan BASIC terletak pada kemudahan dalam pemakaiannya, sedangkan kelemahannya adalah tidak mendukung operasi bilangan kompleks dan penanganan terhadap berkas sangat terbatas sehingga tidak cocok untuk aplikasi bisnis.
b) LOGO
Bahasa ini dikembangkan untuk pendidikan dan simulasi pengajaran pada anak-anak dalam menyelesaikan masalah dan melakukan pemrograman. Ditemukan pada tahun 1967 oleh Seymour Papert dengan menggunakan LISP, yaitu satu jenis bahasa pemrograman untuk kecerdasan buatan. Logo sangat mudah digunakan untuk membuat gambar, sehingga banyak digunakan dalam menghasilkan laporan-laporan bisnis dalam bentuk grafik.
c) COBOL (Common Business Oriented Language)
Program jenis ini sering digunakan dalam dunia bisnis dan komersial, mulai dikembangkan pada tahun 1959. Namun sampai saat ini, program ini masih banyak digunakan pada jenis komputer minicomputer dan mainframe. COBOL memiliki keunggulan-keunggulan sebagai berikut.
1) Memiliki kode untuk semua flatform yang sama, sehingga tidak tergantung pada mesin.
2) Menggunakan kata-kata bahasa Inggris, sehingga sangat mudah dipahami oleh programmer.
3) Penanganan masukan dan keluaran mudah dilakukan.
4) Penanganan terhadap berkas sudah tersedia dan bahkan mendukung berbagai macam tipe-tipe berkas seperti sekuensial dan indeks.
Kelemahan dari bahasa ini adalah struktur penulisan program yang sangat banyak dan sangat kaku sehingga membuat programmer menjadi lelah dan bosan.
d) PASCAL
Bahasa ini ditemukan oleh Nicklaus Wirth tahun 1971. Bahasa ini dibuat untuk pengajaran pemrograman. Bahasa ini sangat populer di kalangan mahasiswa ilmu komputer dan teknik. Pascal memiliki keunggulan dibandingkan Fortran maupun Basic, yaitu sangat mudah dipelajari serta memiliki dukungan fungsi-fungsi matematika yang sangat lengkap. Namun Pascal juga memiliki kelemahan, yaitu tidak dapat mendukung operasi bilangan kompleks dan tidak mendukung sarana aplikasi bisnis. Keberadaan Pascal dapat pula dijadikan bahasa dasar dalam pembuatan kode perangkat lunak Delphi (software untuk pengembangan program di lingkungan Windows). Pascal juga digunakan sebagai landasan pembuatan kode pada Kylix, yaitu software pengembang program di lingkungan Linux.
e) Fortran (Formula Translator)
Fortran merupakan bahasa tingkat tinggi yang pertama kali diciptakan. Bahasa ini mulai dikembangkan pada tahun 1956 oleh John Backus di IBM. Fortran digunakan dalam bidang aplikasi matematika, yaitu dalam hal perumusan dan perhitungan sehingga menjadi andalan keunggulan dari bahasa ini. Namun Fortran memiliki kelemahan, yaitu operasi masukan dan keluarannya sangat kaku dan sulit dipahami. Untuk membuat bahasa fortran, seorang programmer tidak harus mengetahui bahasa mesin, tetapi harus memahami tata bahasa dan peraturan bahasa fortran.
f) Algol (Algoritma Language)
Algol merupakan bahasa automatic yang cocok untuk memecahkan permasalahan yang membutuhkan perhitungan numerik untuk beberapa pengolahan logic.
g) PL/1 (Programming Language)
Programming language merupakan bahasa komputer yang dapat digunakan dalam segala bahasa. Pada kenyataannya bahasa ini sulit dipelajari dan hanya dapat digunakan pada mesin IBM.
h) RPG (Report Program Generation)
RPG adalah program untuk pengolahan laporan. Bahasa ini sangat populer di lingkungan minicomputer dan mainframe IBM. RPG diluncurkan pertama kali pada tahun 1964.
i) APL (Aritmathic Programming Language)
APL adalah bahasa komputer untuk memecahkan soal-soal matematika (ilmu hitung). Diperkenalkan dan diciptakan oleh Kenneth Iverson pada tahun 1962. Bahasa ini menggunakan keyboard khusus yang berisikan simbol-simbol yang kompleks yang memungkinkan untuk melakukan penyelesaian matematika yang kompleks.
4) Bahasa pemrograman generasi keempat
Bahasa pemrograman generasi keempat meliputi Microsoft Visual Basic, Visual J++, dan Visual C++ yang dikembangkan dari keluarga besar bahasa tingkat tinggi untuk memudahkan pemrograman.

Search This Blog

Popular Posts

 

© 2013 Dimpos Situmorang. All rights resevered. Designed by Templateism

Back To Top