BELAJAR PROGRAM PASCAL

 Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi (dalam bahasa inggris: Integrated Development Environment - IDE) atas bahasa pemrograman pascal untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn. Nama Borland Pascal umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.
Contoh kode
•    Bahasa Pascal tidak bersifat case sensitive.
•    Secara historis, komentar dalam bahasa pascal diidentifikasikan sebagai { seperti ini }, atau (* seperti ini *), dan bisa terdiri atas beberapa baris. Versi lanjutan Borland Pascal juga mendukung model komentar seperti yang terdapat pada C++. // seperti ini , yang berlaku pada satu baris.
•    Sintaksis case yang lebih fleksibel daripada Pascal standar.
•    Himpunan hanya bisa memiliki hingga 28 (256) anggota.
•    Standar, string dengan panjang yang tetap didukung, namun terdapat pula tipe data String yang lebih fleksibel.

dikutip dari :
http://tutorial-smk4u.blogspot.com/2013/05/pengertian-turbo-pascal.html
Berikut ini adalah contoh sedehana program Turbo Pascal:
 anda dapat mengetik kode berikut ini :


uses wincrt;
var
nama,skl:string[20];
begin
write('nama saya:');readln(nama);
write('sekolah saya:');readln(skl);
end.

tekan ctrl+f9


berikutnya adalah, contoh penggunaan pascal program persegi panjang, anda dapat mengetik kode berikut ini :


 uses wincrt;
var
 p,l,ls,kl,d:real;
begin  
 writeln('program persegi panjang');
 write('masukkan panjang:'); readln(p);
 write('masukkan lebar:'); readln(l);
 ls:=p*l;
 kl:=2*(p+l);
 d:=sqrt(p*p+l*l);
 writeln('luasnya:',ls:2:2);
 writeln('kelilingnya:',kl:2:2);
 writeln('diagonalnya:',d:2:2);
end.  

 tekan ctrl+f9


berikutnya adalah, contoh penggunaan pascal program lingkaran, anda dapat mengetik kode berikut ini :

 uses wincrt;
var
 r,ls,kl:real;
begin  
 writeln('program lingkaran');
 write('masukkan jarijari:'); readln(r);
 ls:=3.14*r*r;
 kl:=2*3.14*r;
 writeln('luasnya:',ls:2:2);
 writeln('kelilingnya:',kl:2:2);
end. 


 berikutnya adalah, contoh penggunaan pascal program zodiak, anda dapat mengetik kode berikut ini :

uses wincrt;
var
bulan,tgl,tahun:integer;
ket:string[6];
kembali:char;
label awal;

begin
awal:

writeln('       my zodiak');
writeln('*******************************');
write('tanggal : ');read(tgl);write('bulan : ');read(bulan);write('tahun : ');read(tahun);
writeln('=====================================');

if bulan=1 then
begin
writeln('my zodiak capicorn');
writeln('kesehatan anda flu dan batuk');
writeln('keberuntungan anda hari rabu pahing');
end;

if bulan=2 then
begin
writeln('my zodiak aquarius');
writeln('kesehatan anda alhamdulillah');
writeln('keberuntungan anda hari sabtu malam minggu');
end;

if bulan=3 then
begin
writeln('my zodiak pisces');
writeln('kesehatan anda is good dan sangat baik sekali');
writeln('keberuntungan anda hari rabu wage');
end;

if bulan=4 then
begin
writeln('my zodiak aries');
writeln('kesehatan anda diare sedang');
writeln('keberuntungan anda hari kamis kliwon');
end;

if bulan=5 then
begin
writeln('my zodiak taurus');
writeln('kesehatan anda demam tinggi');
writeln('keberuntungan anda hari sabtu legi');
end;

if bulan=6 then
begin
writeln('my zodiak gemini');
writeln('kesehatan anda dehidrasi ringan');
writeln('keberuntungan anda senin pahing');
end;

if bulan=7 then
begin
writeln('my zodiak cancer');
writeln('kesehatan anda baik baik saja');
writeln('keberuntungan anda setiap hari');
end;

if bulan=8 then
begin
writeln('my zodiak leo');
writeln('kesehatan anda sakit pusing');
writeln('keberuntungan anda hari selasa kliwon');
end;

if bulan=9 then
begin
writeln('my zodiak virgo');
writeln('kesehatan anda gatal gatal');
writeln('keberuntungan anda hariminggu legi');
end;

if bulan=10 then
begin
writeln('my zodiak libra');
writeln('kesehatan anda fit dan bugar');
writeln('keberuntungan anda tidak ada');
end;

if bulan=11 then
begin
writeln('my zodiak scorpio');
writeln('kesehatan anda ngantuk');
writeln('keberuntungan anda hari sabtu kliwon');
end;

if bulan=12 then
begin
writeln('my zodiak sagitarius');
writeln('kesehatan anda asik');
writeln('keberuntungan anda hari ini');
end;
writeln('================================');
writeln('anda ingin lagi (y/t)');kembali:readkey;
if kembali='y' then goto awal;

end.

tekan ctrl+f9


semoga bermanfaat dan selamat mencoba...