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, danMS-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.
Borland telah menembangkan tiga versi lama dari Turbo Pascal secara
gratis disebabkan karena sejarahnya yang panjang khusus untuk versi 1.0,
3.02, dan 5.5 yang berjalan pada sistem operasi MS-DOS
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.
Berikut ini adalah contoh klasik program Halo dunia dengan Turbo Pascal:
CONTOH MENGGUNAKAN TURBO PASCAL
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.
Menghitung nilai Sin dengan sudut radian
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.
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.
Untuk Tipe-Tipe Data Pascal Klik Disini
0 komentar:
Posting Komentar