makalahnovrizal: makalah Bahasa Pemrograman (PASCAL)

MAKALAH

PASCAL (BAHASA PEMROGRAMAN)

DISUSUN OLEH :

Novrizal sujadmoko

NPM : 13010254

DOSEN PEMBIMBING

SRIYANTO, S.KOM

PRODI TEKNIK INFORMATIKA

UNIVERSITAS DEHASEN BENGKULU

TAHUN 2014

KATA PENGANTAR

Puji dan Syukur Penulis Panjatkan ke Hadirat Tuhan Yang Maha Esa karena berkat limpahan Rahmat dan Karunia-Nya sehingga penulis dapat menyusun makalah ini tepat pada waktunya.

Dalam penyusunan makalah ini, penulis banyak mendapat tantangan dan hambatan akan tetapi dengan bantuan dari berbagai pihak tantangan itu bisa teratasi. Olehnya itu, penulis mengucapkan terima kasih yang sebesar-besarnya kepada semua pihak yang telah membantu dalam penyusunan makalah ini, semoga bantuannya mendapat balasan yang setimpal dari Tuhan Yang Maha Esa.

Penyusun menyadari bahwa makalah ini masih jauh dari kesempurnaan baik dari bentuk penyusunan maupun materinya. Kritik konstruktif dari pembaca sangat penulis harapkan untuk penyempurnaan makalah selanjutnya.

Akhir kata semoga makalah ini dapat memberikan manfaat kepada kita sekalian

Bengkulu, Januari 2014

Penyusun

DAFTAR ISI

HALMAN JUDUL.................................................................................... i

KATA PENGANTAR............................................................................... ii

DAFTAR ISI.............................................................................................. iii

A. Pascal

Contoh Pascal

1. Contoh Program Nilai

2. Contoh Program Deklarasi Array Beragam

3. Contoh Program Matematika

4. Contoh Program Rani

5. Contoh Program Pilihan

DAFTAR PUSTAKA

PASCAL

Bahasa Pemrograman Pascal merupakan bahasa pemrograman tingkat tinggi yang dirancang oleh Profesor Niklaus Wirth dari Technical University of Zurich, Switzerland. Yang dinamai pascal sebagai penghargaan terhadap Blaise Pascal. Seorang ahli matematik dan filosofer yang terkenal pada abad 17 dari perancis. Prof Niklaus Wirth memperkenalkan Kompiler bahasa Pascal yang pertama untuk Komputer CDC 600 (Control Data Corporation) yang dipublikasikan pada tahu 1971 dengan tujuan membantu mengajar program Komputer secara sistematis khususnya untuk memperkenalkan program terstruktur .

Pascal adalah pengembangan dari bahasa ALGOL 60, bahasa pemrograman untuk sains komputasi. Tahun 1960, beberapa ahli komputer bekerja untuk mengembangkan bahasa ALGOL, salah satunya adalah Dr. Niklaus Wirth , yang merupakan anggota grup yang membuat ALGOL. Tahun 1971, dia menerbitkan suatu spesifikasi untuk highly-structured language (bahasa tinggi yang terstruktur) yang menyerupai ALGOL. Dia menamainya dengan PASCAL (seorang filsuf dan ahli matematika dari Perancis) Pascal bersifat data oriented, yaitu programmer diberi keleluasaan untuk mendefinisikan data sendiri. Pascal juga merupakan teaching language (banyak dipakai untuk pengajaran tentang konsep pemrograman). Kelebihan yang lain adalah penulisan kode Pascal yang luwes, tidak seperti misalnya FORTRAN, yang memerlukan programmer untuk menulis kode dengan format tertentu. Bentuk dasar program Pascal seperti berikut: program TITLE ; begin pernyataan ; pernyataan end .

CONTOH PROGRAM PASCAL

1. Contoh Program Nilai

Program nilai;

Var

nil : Char ;

Begin

Write ('Nilai Numerik yang didapat :');

eadln (nil);

Case nil Of

'A': Writeln ('Sangat Baik’);

'B': Writeln('Baik’);

'C': Writeln('Cukup');

'D': Writeln('Kurang');

'E': Writeln('Sangat Kurang');

End;

End.

2. Contoh Program Deklarasi Array Beragam

Program Contoh_Deklarasi_Array_Beragam;

Uses Crt;

Var

NPM : array[1..20] of string[10];

Nama : array[1..20] of string[25];

Nilai : array[1..20] of real;

Umur : array[1..20] of byte;

banyak,i : integer;

Begin

ClrScr;

Write('Isi berapa data array yang diperlukan :');Readln(banyak);

For i := 1 to banyak Do

Begin

Write('NPM =');Readln(NPM[i]);

Write('Nama =');readln(Nama[i]);

Write('Nilai=');readln(Nilai[i]);

Write('Umur =');readln(Umur[i]);

End;

{cetak varibel array}

Writeln('NPM NAMA NILAI UMUR ');

For i:= 1 to banyak Do

Begin

Writeln(Npm[i]:10,Nama[i]:25,Nilai[i]:3:2,' ',Umur[i]:3);

End;

Readln;

End

3. Contoh Program Matematika

Program matematika;

uses wincrt;

var sisi_a,sisi_b,tinggi,luas:real;

begin

writeln(' ## LUAS TRAPESIUM ## ');

writeln;

write('masukkan sisi a =');readln(sisi_a);

write('masukkan sisi b =');readln(sisi_b);

write('masukkan tinggi =');readln(tinggi);

Luas:=(sisi_a+sisi_b)/2*tinggi;

writeln;

writeln('Luas Trapesium adalah =',luas:0:2);

end

4. Contoh Program Rani

program rani;

uses wincrt;

var pilihan ,g,m,w,h,s,ph: integer ;

sisia,sisib,tinggi,Luas: real ;

begin

writeln('program BIT');

writeln;

writeln('1. Gaya Berat');

writeln('2. Luas Trapesium');

writeln('3. tekanan hidrostatis');

writeln;

write('PILIHAN ANDA =');read(pilihan);

if pilihan = 1 then

begin

writeln('program gaya berat');

write('masukkan massa =');readln(m);

write('masukkan gravitasi bumi =');readln(g);

w:=m*g;

write('hasil =',w);

end

else

if pilihan = 2 then

begin

writeln('program luas berat');

write('masukkan sisi a =');readln(sisia);

write('masukkan sisi b =');readln(sisib);

write('masukkan tinggi =');readln(tinggi);

Luas:=sisia+sisib/2*tinggi ;

write('hasil =',Luas:0:2);

end

else

if pilihan = 3 then

begin

writeln('Tekanan hidrostatis');

write('masukkan jarak =');readln(h);

write('masukkan jenis berat =');readln(s);

ph:=h*s;

write('hasil =',ph);

end

else

writeln ('input anda salah');

end.

5. Contoh Program Pilihan

program pilihan;

uses crt;

var

t : text;

p : string;

nama,alamat,cat : string; umur : integer; {var biodata}

x, y : integer; hasil : real ; op : string; {var matematika}

{menu}

begin

clrscr;

repeat

textcolor (7);

clrscr;

writeln ('Silahkan masukkan pilihan anda..');

writeln ('1. Program biodata ');

writeln ('2. Program Matematika ');

writeln ('3. Tentang Penulis');

writeLn ('4. Keluar. ');

write ('Masukkan angkanya saja : '); readln (p);

{BIODATA}

if (p) = '1' then

begin

textcolor (11);

clrscr;