What the meaning of PASCAL?

PASCAL,, tau nggak sih apa itu pascal??
Pascal itu bahasa tingkat tinggi(High Level Languange) yaitu bahasa pemrograman yang mudah dipahami oleh bahasa manusia. Merupakan bahasa yang terstruktur tersusun atas sejumlah blok.Blok-blok yang kecil yang dapat dipakai untuk membuat blok yang lebih besar. Blok ini lebih dikenal dengan sebutan subprogram, yang dibedakan atas prosedur dan fungsi.

Tiap program pasti punya keistimewaan tertentu..

Trus,,apa kelebihannya???
Kelebihan dari bahasa pemrograman Pascal adalah:

Pertama nih,, Tipe Datanya Standar, yakni tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. seperti: boolean, integer, real, char, string.

Trus,ada User defined Data Types, fungsinya untuk programmer: dapat membuat tipe data lain yang diturunkan dari tipe data standar diatas.

Ada juga Strongly-typed, namun programmer harus mampu menentukan tipe data dari suatu variabel, dan variabelnya tidak dapat digunakan untuk menyimpan tipe data selain dari format yang ditentukan.

Selain itu, juga Terstruktur, dalam artian punya sintaks yang memungkinkan tulisan program dipecah jadi fungsi-fungsi kecil atau procedure dan function yang dapat digunakan berulang-ulang.(wooow...keren )

Ini yang paling ku suka.... Sederhana dan Ekspresif, punya struktur yang sangat sederhana dan sangat mendekati bahasa manusia maksutnya bahasa Inggris, so.. mudah dipelajari dan dipahamikan??? UNDERSTAND ^_^

But,,impossible for all be perfect guys..
And then,,what it??

Kekurangan bahasa pascal :
1. Versi awal Pascal kurang cocok untuk aplikasi bisnis dikarenakan dukungan basisdata yang terbatas.
2. Sintaks Pascal terlalu bertele-tele (upsss..)
3. Tidak mendukung pemrograman berorientasi objek
4. Pascal tidak fleksibel dan banyak kekurangan yang dibutuhkan untuk membuat aplikasi yang besar.

begitu ceritanya... hehehe.

tapi, inget temen-temen yang terpenting adalah,kita mau belajar dan mencoba. Right??

jangan bosen-bosen untuk semangat mencoba hal yang kebanyakan dirasa sulit ya.. tapi sebetulnya mudah kok,, apalagi program pascal "it's very wonderful". TETAP SEMANGAT!!!

WHO is HE?

Ini dia pembuat program pascal... Proffesor NIKLAUS WIRTH
lahir di Winterthur, Swiss.
Beliau Pernah kuliah di berbagai negara lho,,, mau tau? Yuk dibaca yuk,,,,

Sarajananya di Swiss Federal Institute of Technology (ETH) Zurich dengan jurusan Teknik Elektro
Pendidikan S-2 Magister di Université Laval, Kanada.

pernah dapet gelar Ph.D. dari University of California, Berkeley, di bawah bimbingan Harry Huskey.

Bekerja sebagai Assistant Professor di bidang ilmu komputer di Stanford University dan di University of Zurich.

Pernah juga jadi Profesor Informatika di ETH Zurich.
wihh wihh.. hebat banget ya? sipp siip...

trus pascal itu apa sih????? ayok buka entri berikutnya.
LANJUT .........

Unsur pascal itu apa??

Unsur-unsur Dalam Pemrograman Pascal adalah :
a. Mendapatkan data dengan membaca data dari default input (key board, file atau sumber data lainnya).
b. Menyimpan data ke dalam memori dengan struktur data yang sesuai,
c. Memproses data dengan instruksi yang tepat.
d. Menyajikan atau mengirimkan hasil olahan data ke default output (monitor, file atau tujuan lainnya).

Nama yang dipergunakan di dalam program Pascal disebut dengan pengenal atau Identifier.
Identifier digunakan untuk nama: Program, Sub-program (procedure dan function), nama: Variable, Constant, Type, Label.
Nama-nama ini digunakan untuk pemakaian dan pemanggilan dalam program.

Ketentuan penulisan identifier

1. Nama identifier harus dimulai dengan karakter huruf alfabet: a sampai z, A sampai Z atau karakter ‘_’ (underscore – garis bawah)

2. Karakter berikutnya boleh karakter numerik (0 .. 9) atau kombinasi alphanumerik (huruf-numerik).

3. Panjang nama, pada berbagai versi Pascal umumnya antara 32 – 63.

4. Tidak boleh menggunakan karakter istimewa: + – * / | \ = < > [ ] . , ; : ( ) ^ @ { } $ # ~ ! % & ` ” ‘ dan ?

contoh nya :
Penulisan yang benar= NamaMahasiswa, Gaji_Karyawan, PX4, dll.
Penulisan yang salah= 3X, A & B, C Z dll.

Berkaitan dengan Variabel :
Variable adalah identifier yang berisi data yang dapat berubah-ubah nilainya di dalam program.

Deklarasi Variable itu, ada beberapa macam, yakni :
a. Memberikan nama variabel sebagai identitas pengenal
b. Menentukan tipe data variabel

Contohnya: var X : integer;
R : real;
C : char;
T : boolean;

Sedangkan untuk konstanta :
Konstanta adalah identifier yang berisi data yang nilainya tidak berubah di dalam program.

Deklarasi Konstanta :
a. Memberikan nama konstanta sebagai identitas pengenal
b. Menentukan nilai konstanta

Contohnya : conts MaxSize = 100; {integer}
ExitC = ‘Q’; {char}

Oke teman-teman... Itu sekilas mengenai unsur dalam pemrograman pascal...

Lalu,,, yang jadi ini nya di sini adalah, APLIKASI PASCAL itu gimana?? bisa digunakan untuk apa saja? dan seperti apa??
Entri berikutnya akan menampilkan beberapa contoh dari pascal.. Baca ya ^_^

program array standar deviasi, varians, mean

Alhamdulillah,,, akhirnya final juga tugas UAS PIK ^__-

"Waktu ,mengubah semua hal, kecuali kita. Kita mungkin menua dengan berjalanannya waktu, tetapi belum tentu membijak. Kita-lah yang harus mengubah diri kita sendiri"

program PASCAL-std.dev-var-mean

program stdev_varian_mean;
uses wincrt;
var i,n:integer;
a,b,c,d:real;
x:array[1..100] of integer;
begin
write ('jumlah data=');readln(n);
a:=0;
for i:=1 to n do
begin
write ('x[',i,']='); readln (x[1]);
a:=a+x[i];
end;
writeln;
writeln ('rata-rata =',a/n:0:2);
for i:=1 to n do
begin
b:=x[i]-(a/n);
c:=sqr(b);
d:=d+c;
end;
writeln ('varians=', d/(n-1):0:2);
writeln ('standardeviasi=',sqrt(d/(n-1)):0:2);
end.

program aray penjumlahan matriks

"Tinggalkanlah kesenangan yang menghalangi pencapaian kecemerlangan hidup yang di idamkan. Dan berhati-hatilah, karena beberapa kesenangan adalah cara gembira menuju kegagalan " ^__-

program PASCAL-Array matriks invers

program matriks_invers;
uses wincrt;
var a,b,c: array[1..10,1..10] of integer;
i,j,k1,k2,b1,b2,sum,r:integer;
begin
write('Masukkan baris Matrik A = ');readln(b1);
write('Masukkan kolom Matrik A = ');readln(k1);
write('Masukkan baris Matrik B = ');readln(b2);
write('Masukkan kolom Matrik B = ');readln(k2);
for i:=1 to b1 do
for j:=1 to k1 do
readln(a[i,j]);
writeln;
for i:=1 to b2 do
for j:=1 to k2 do
readln(b[i,j]);
writeln;
writeln('Matrik A');
writeln('==================');
for i:=1 to b1 do
begin
for j:=1 to k1 do
write(a[i,j],' ');
writeln;
end;
writeln;
writeln('Matrik B');
writeln('===================');
for i:=1 to b2 do
begin
for j:=1 to k2 do
write(b[i,j],' ');
writeln;
end;
writeln;
writeln('Matrik A*B');
writeln('================');
for i:=1 to b1 do
begin
for j:=1 to k2 do
begin
sum:=0;
for r:=1 to k1 do
sum:=sum+a[i,r]*b[r,j];
c[i,j]:=sum;
write(c[i,j]:2,' ');
end;
writeln;
end;
end.

program array dimensi

"Orang-orang yang berhenti belajar akan menjadi pemilik masa lalu. Orang-orang yang masih terus belajar, akan menjadi pemilik masa depan" ^__-

program PASCAL-Array Dimensi

program dimensi;
uses wincrt;
var
x:array[1..100,1..100]of integer;
p,l,i,j:integer;
begin
write ('p=');readln (p);
write ('l=');readln (l);
for i :=1 to l do
for j:=1 to p do
readln (x[i , j]);
writeln ;
writeln('bentuk matriksnya') ;
for i:=1 to l do
begin
for j:=1 to p do
write (x[i , j]);
writeln;
end;
end.

program array matriks invers

"Tugas kita bukanlah untuk berhasil. Tugas kita adalah untuk mencoba, karena didalam mencoba itulah kita menemukan dan belajar membangun kesempatan untuk berhasil" ^__-

program PASCAL-Array matriks invers

program matriks_invers;
uses wincrt;
var a,b,c,d,i,invers,p,q,r,s:real;
jawab:char;
pass:string[8];
begin
clrscr;
gotoxy(25,10);
write('Masukkan Password = ');
readln(pass);
if not(pass='PaScAl') then
begin
gotoxy(25,12);
writeln('Invalid password !!!!');
end;
while pass='PaScAl' do
begin
repeat
clrscr;gotoxy(20,1);
writeln('Mencari Invers Matriks Ordo 2x2 ');
gotoxy(10,5);write('a=');read(a);
gotoxy(18,5);write('b=');read(b);
gotoxy(10,7);write('c=');read(c);
gotoxy(18,7);write('d=');read(d);
i:=(a*d)-(b*c);
if not(i=0) then
begin
invers:=1/((a*d)-(b*c));
p:=d*invers;
q:=-b*invers;
r:=-c*invers;
s:=a*invers;
gotoxy(25,10);writeln('Invers matriks A =');
gotoxy(10,13);write(p:0:3);
gotoxy(18,13);write(q:0:3);
gotoxy(10,16);write(r:0:3);
gotoxy(18,16);write(s:0:3);
end
else
begin
gotoxy(25,15);
writeln('Tidak ada invers matriks');
end;
gotoxy(10,18);
writeln('Tekan sembarang tombol untuk mengulang atau X untuk keluar');
jawab:=readkey;
until upcase(jawab)='X';
halt;
end;
end.