KODE PROGRAM /SINTAKS PASKAL (LUAS DAN KELILING PERSEGI PANJANG,LUAS SEGITIGA,LUAS LINGKARAN)

·        Rumus pascal luas persegi panjang

 procedure persegi_panjang;
begin
writeln(‘====================================================’);
writeln(‘PROGRAM MENGHITUNG LUAS DAN KELILING PERSEGI PANJANG’);
writeln(‘====================================================’);
write(‘masukan nilai p = ‘);readln(p);
write(‘masukan nilai l = ‘);readln(l);
luas := p * l;
writeln(‘nilai luas = ‘,luas:2:2);readln;
keliling := 2 * (p + l);
writeln(‘nilai keliling = ‘,keliling:2:2);readln;
end;

  Menentukan nilai panjang sisi luar (pL): pL= 18, lebar sisi luar (lL): lL= 12, panjang sisi dalam (pT): pT= 10, dan lebar sisi dalam (lT): lT= 5.
Menghitung luas total, Ltotal= pL x lL
Menghitung luas tengah, Ltengah= pT x lT
Didapat luas yang diarsir, Larsir= Ltotal-Ltengah

Program pascal:
uses crt;
var pL, lL, pT, lT, Ltotal , Ltengah: integer;
begin
clrscr;
pL:=18; lL:=12; pT:=10; lT:=5;
Ltotal:= pL*lL;
Ltengah:= pT*lT;
writeln('Luas total = ', Ltotal);
writeln('Luas tengah = ', Ltengah);
writeln('Luas yang diarsir= ', Ltotal-Ltengah);
readln;
end.

·        Rumus pascal keliling persegi panjang

function keliling : integer;

begin

keliling := 2*(a+b);

end;

>  maksud dari sintak di atas adalah untuk member tahu bahwa function keliling bertipe data integer. dan keliling := 2*(a+b); untuk mencari hasil keliling dari inputan yang akan di masukan pada saat program running.

begin

clrscr;

writeln (‘luas persegi’)

write(‘panjang:  ‘); readln(a);

write(‘lebar: ‘); readln(b);

writeln;

writeln(‘luas : ‘,luas);

writeln(‘keliling : ‘,keliling);

readln;

end.

maksud dari sintak dia atas adalah untuk menuliskan luas persegi pada saat program running dan write(‘panjang:  ‘); readln(a); write(‘lebar: ‘); readln(b); maksudnya pada saat program ranning kita akan menginput angaka yang akan di masukan dan di taruh di variable a begitu juga dengan lebarnya. dan hasil dari perkalian akan di taruh di luas, begitu juga dengan keliling.

·        Rumus pascal luas segitiga

Rumus Menghitung Luas Segitiga;
uses crt;
var a,t,ls :integer;
begin
clrscr;
write (‘alas=’); readln(a);
write (‘tinggi=’); readln(t);
ls :=a*t;
writeln (‘Luas Segitiga Adalah=’, ls);
readln;
end.

·        Rumus pascal luas lingkaran

program lingkaran.pas
uses crt;
var r:integer;
var luas,keliling:real;
const phi = 3.14;
begin
clrscr;
write(‘Masukkan jari-jari lingkaran : ‘);
readln(r);
luas := phi*r*r;
keliling := phi*(2*r);
writeln(‘======================’);
writeln(‘Luas lingkaran dengan jari-jari ‘,r,’ adalah ‘,luas:9:2);
writeln(‘Keliling lingkaran dengan jari-jari ‘,r, ‘adalah ‘,keliling:9:2);
readln
end.

keterangan :
uses crt : library untuk memanggil fungsi clrscr
var r : mendeklarasikan variabel jari-jari dengan simbol r
var luas, keliling : mendeklarasikan variabel luas dan keliling yang akan digunakan untuk menyimpan data luas dan keliling.
const phi = 3.14 : constanta untuk phi adalah 3.14 dan nilainya tetap
begin : memulai awal program
clrscr : fungsi untuk membersihkan layar
write : fungsi dalam pascal untuk menampilkan pesan dengan tanda kursor disebelah akhir pesan yang ditampilkan.
writeln : fungsi dalam pascal untuk menampilkan pesan dengan tanda kursor dibawah pesan (ganti baris)
readln(r) : menyimpan data input dari keyboard dalam variabel r
luas := phi*r*r : penulisan rumus luas lingkaran dalam pascal
keliling := phi*(2*r) : penulisan rumus keliling lingkaran dalam pascal
luas:9:2 : menampilkan data luas dengan max 9 karakter didepan tanda koma dengan 2 angka dibelakang koma.
keliling:9:2 : menampilkan data keliling dengan max 9 karakter didepan tanda koma dengan 2 angka dibelakang koma.
readln : menahan tampilan agar tidak secepat kilat
end. : akhir dari program pascal

VN:F [1.6.8_931]

MAMFAAT BELAJAR BAHASA PEMOGRAMAN PASCAL

Perkembangan Bahasa Pascal
Pada tahun 1960, beberapa ilmuan bekerja untuk mengembangkan bahasa ALGOL (Algorithmic Logic). Salah satu dari mereka adalah Dr. Niklaus Wirth anggota dari Swiss Federal Institute of Technology (ETH-Zurich). Pada tahun 1971, Dr. Niklaus Wirth mempublikasikan suatu spesifikasi untuk bahasa terstruktur yang dalam beberapa hal menyerupai ALGOL. Dia menamainya Pascal, sebagai penghormatan kepada Blaise Pascal, filsuf dan matematikawan Francis abad 17, yang menciptakan komputer digital pertama.
Bahasa Pascal berorientasi data, programmer diberi kemampuan untuk mendefenisikan tipe data sendiri. Dengan kebebasan ini pengecekan tipe data dilakukan secara ketat, yang menjamin bahwa tipe data yang didefenisikan tidak membingungkan. Pascal ditujukan sebagai bahasa pembelajaran, dan telah diterima secara luas. Pascal menggunakan bahasa Inggris sebagai penulisan kodenya, sehingga penulisannya dan pengembangannya mudah dipahami.
Prof. Ken Bowles mengembangkan sistem UCSD Pascal (University of California at San Diego) yang diterapkan pada komputer personal Apple II, komputer mikro yang sangat terkenal pada saat itu. USCD Pascal menjadi standard dan telah digunakan di universitas-universitas secara luas, ditambah murahnya harga komputer Apple II dibandingkan dengan komputer mainframe. Penggunaan komputer personal juga meningkat karena dukungan tiga sistem operasi personal : CP/M-86, Softech UCSD dan MicroSoft PC-Dos.
Awal tahun 1980 Pascal telah diterima secara luas di universitas. Terdapat dua hal yang membuatnya semakin terkenal, yaitu :
- Education Testing Service, perusahaan yang mengelola ujian masuh perguran tinggi di Amerika Serikat, memutuskan menambahkan ujian ilmu komputer untuk tingkat SMA. Untuk melakukan ujian ini dipilih bahasa Pascal. Karena hal tersebut, pelajar kelas dua SMA dan juga mahasiswa mulai belajar Pascal hingga tahun 1999, hingga akhirnya diganti dengan bahasa C++ dan selanjutnya diganti dengan Java.
- Kedua, perusahaan Borland Internasional hadir dengan compiler Turbo Pascal untuk komputer personal IBM. Compiler ini sangat revolusioner. Turbo Pascal dibuat dengan modifikasi-modifikasi pada Pascal standard, dan hal ini membawa manfaat yang besar pada kecepatannya.
Dari versi 1.0 hingga 7.0, Borland secara berkesinambungan terus mengembangkan Turbo Pascal. Salah satu kritik atas versi Pascal awal adalah kelemahannya akan pemisahan kompilasi pada modul-modul. Dr. Wirth menyadari akan hal tersebut, sehingga di menciptakan suatu bahwa pemrograman Modula-2. Borland menutupi kekurangan ini dengan unitnya.
Dengan versi 7.0 banyak fitur-fitur yang telah ditambahkan. Salah satu adalah DPMI (Dos Protected Sistem Interface), salah satu cara untuk menjalakan program-program dos dalam sistem terproteksi, memperoleh kecepatan lebih dan memecahkan rintangan 640K pengaksesan memory pada DOS. Ketika Windows 3.0 hadir, Borland menciptakan Turbo Pascal untuk Windows, hadir dengan kecepatan dan kemudahan untuk antar muka grafis (grapical user interface)[Yue].
Mengapa Mesti Belajar Bahasa Pascal ?
Pertanyaan ini seringkali muncul bagi para programmer baru. Mereka sering bilang bahwa banyak bahasa programmer yang ada di pasaran yang jauh lebih canggih daripada pascal, seperti : C++, Java, C, Visual Basic, dll. Tetapi benarkah demikian ? Atau hanya trand yang berkembang sehingga mereka mengukutinya begitu saja. Berikut ini akan diberikan gambaran mengapa mesti belajar bahasa pascal.
1. Kecepatan (speed)
Kecepatan bahasa pascal untuk mengkompilasi baris program dapat dikatakan sekejap mata saja. Anda banyangkan kode baris program yang ribuan jumlahnya diterjemahkan dalam hitungan detik. Coba anda buktikan dengan bahasa pemrograman lainnya (C, C++, Java, dll)
2. Tipe data yang kuat
Pascal mengijinkan pemakainya untuk membuat tipe data sendiri, tetapi dengan beberapa batasan. Pascal tidak mengenal pengubahan tipe data (type casting) dan hal ini tentu saja memberi manfaat karena kemungkinan timbulnya kesalahan (error) kecil. Hal ini merupakan salah satu alasan utama yang dilakukan panitia ujian masuk mahasiswa untuk mata ujian komputer di Amerika.
3. Ukuran
Hasil compilasi dari program pascal hanya beberapa kilo byte saja. Sungguh kecil. Bila kita bandingkan dengan kapasitas ruang hard disk yang 40 mega byte, dapat dibanyangkan berapa besar program pascal yang dapat kita buat.
4. Portabilitas
Portabilitas berarti program pascal dapat berjalan pada jenis komputer yang berbeda, seperti : IBM, Apple, dll.
4. Produktivitas
Untuk belajar suatu bahasa pemrograman pada dasarnya sama, yaitu : harus mengenal aturan dan struktur data dari bahasa tersebut. Anda dapat bayangkan kalau tukang bangun tidak memiliki arsitektur yang jelas tentang bangunan rumah tersebut, tentu saja rumah yang akan dibangun tidak akan baik. Pascal menyediakan struktur data yang jelas, dengan demikian produktivitas hasil kerja kita tentu saja akan bertambah.
Dan satu hal yang jelas bahasa turbo pascal for windows atau visual delphi adalah turunan dari turbo pascal. Dan bila struktur dari program pascal sudah kita pahami, maka untuk memahami pascal for windows ataup visual Delphi tidaklah sulit lagi. Orang bijak bilang ‘belajar dari dasar merupakan modal yang paling besar’. Untuk itulah Pascal hadir bagi kita.

Kelebihan dari bahasa pemrograman Pascal adalah:

• Tipe Data Standar, tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar: boolean, integer, real, char, string,
• User defined Data Types, programmer dapat membuat tipe data lain yang diturunkan dari tipe data standar.
• Strongly-typed, programmer harus menentukan tipe data dari suatu variabel, dan variabel tersebut tidak dapat dipergunakan untuk menyimpan tipe data selain dari format yang ditentukan.
• Terstruktur, memiliki sintaks yang memungkinkan penulisan program dipecah menjadi fungsi-fungsi kecil (procedure dan function) yang dapat dipergunakan berulang-ulang.
• Sederhana dan Ekspresif, memiliki struktur yang sederhana dan sangat mendekati bahasa manusia (bahasa Inggris) sehingga mudah dipelajari dan dipahami.

Bahasa PASCAL juga merupakan bahasa yang digunakan sebagai standar bahasa pemrograman bagi tim nasional Olimpiade Komputer Indonesia (TOKI). Selain itu, Bahasa PASCAL masih digunakan dalam IOI (International Olympiad in Informatics).

Mamfaat belajar bahasa pemograman Pascal

·        Terletak pada pemahaman logikanya,konseptualnya,sistematikanya dan pemahaman gerbang logikanya. Yang keseluruhan konsep struktur logikanya ( Logic Gate) bisa diaplikasikan untuk memahami bidang lainnya lebih luas secara desriptif.

·        Mamfaat mempelajari pemograman untuk aktivitas dan pekerjaan umum sehari-hari secara umum dalam berbagai bidang terletak pada konsep logikanya yang sistematis dalam memecahkan objek problematika tertentu  sesuai dengan flow chart (alur logika).