All of about Pascal

Rabu, 14 Desember 2011

What is 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.
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.

Sejarah
Turbo Pascal pada awalnya adalah kompiler Blue Label Pascal yang dibuat untuk sistem operasi komputer mikro berbasis kaset, NasSys, milik Nascom tahun 1981 oleh Anders Hejlsberg. Kompiler tersebut ditulis ulang untuk CP/M dan dinamai Compas Pascal, dan kemudian dinamai Turbo Pascal untuk sistem operasi MS-DOS dan CP/M. Versi Turbo Pascal untuk komputer Apple Macintosh sebenarnya pernah ditembangkan tahun 1986, namun pengembangannya dihentikan sekitar tahun 1992. Versi-versi lain pernah tersedia pula untuk mesin-mesin CP/M seperti DEC Rainbow dalam beberapa penembangan.

Jumat, 09 Desember 2011

Program matrik transpose

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 Matriknya');

for i:=1 to l do

begin

for j:=1 to p do

write (x[i,j],' ') ;

writeln;

end;

writeln('Bentuk Matrik transposenya');

for i:=1 to p do

begin

for j:=1 to l do

write (x[j,i],' ') ;

writeln;

end;

end.

Selasa, 06 Desember 2011

Program Modus

program banyak;

uses wincrt;

var i,n,j,modus:integer;

A,frek:array[1..100] of integer;

begin

write('masukkan banyak bilangan');

readln(n);

writeln('masukan data');

for i:=1 to n do

readln(A[i]);

writeln;

for i:=1 to n-1 do

begin

for j:=i+1 to n do

if A[i]=A[j] then

frek[i]:=frek[i]+1;

end;

modus:=1;

for i:=1 to n do

begin

if frek[modus]<frek[i] then

modus:=i;

end;

write('Modus: ',A[modus],' sejumlah ',frek[modus]+1);

end.

Program Faktorial

program faktorial;

uses wincrt;

var

n,i:longint;

f:real;

begin

readln(n); f:=1;i:=0;

if(n=0)then

writeln(1)

else

writeln(2);

repeat

i:=i+1;

f:=f*i;

until i=n;

writeln(n,'factorial',f);

end.

Program rata-rata(mean)

uses wincrt;

var n,i:integer;

mean,simp,jum:real;

dat:array[1..100] of integer;

begin

write('masukkan n: ');

readln(n);

for i:=1 to n do

readln (dat[i]);

for i:=1 to n do

mean:= mean+dat[i];

mean:=mean/n;

writeln;

writeln (mean:0:2);

for i:=1 to n do

jum:=jum+sqr(dat[i]-mean);

simp:=jum/(n-1);

write(simp);

end.

Program kombinasi dan permutasi

uses wincrt;
var
a,b,a_k,kombinasi,permutasi:real;
i,n,k:integer;
begin
writeln('menghitung kombinasi dan permutasi');
write('masukkan bilangan n=');readln(n);
write('masukkan bilangan k='); readln(k);
a:=1;
b:=1;
a_k:=1;
for i:=2 to n do
a:=a*i;
for i:=2 to k do
b:=b*i;
for i:= 2 to (n-k)do
a_k:=a_k*i;
kombinasi:=a/(b*a_k);
permutasi:=a/(a_k);
writeln('nilai ',n,'kombinasi',k,'=',kombinasi:0:0);
writeln('nilai',n,'permutasi',k,'=',permutasi:0:0);
end.

program varians

program varians;
uses wincrt;
var i,n:integer;
rata,selisih,varian,sum1,sum2:real;
data:array [1..100] of real;

begin
sum1:=0;
write('banyak data?');readln(n);
writeln('masukkan datanya!');
i:=1;
repeat
write('data ke-',i,' ');
readln(data[i]);
inc(i);
until i>n;
i:=1;
repeat
sum1:=sum1+data[i];
inc(i);
rata:=sum1/n;
until i>n;
i:=1;
repeat
selisih:=sqr(data[i]-rata);
sum2:=sum2+selisih;
inc(i);
varian:=sum2/(n-1);
until i>n;
writeln(varian);
end.