Kamis, 05 Januari 2012

Bagaiman mencari Determinan Matrik???

program determinan;
uses wincrt;
var A : array[1..2,1..2] of integer;
j,k,D : integer;
begin
For j:=1 to 2 do
begin
write('Entrikan baris ',j,' matriks A : ');
readln(A[j,1] , A[j,2]);
end;
For j:=1 to 2 do
begin
For k:=1 to 2 do write(A[j,k] : 5);
writeln;
end;
writeln;writeln;writeln;
D := A[1,1]*A[2,2] - A[1,2]*A[2,1];
writeln('Det(A) = ',D);
end.

MODUS

program terbanyak;
uses wincrt;
var i,n,j,modus:integer;
A,frek:array[1..100] of integer;
begin
readln(n);
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.

Konversi Angka

Program konversi_biner;
uses wincrt;
var   
     desimal,b,sisa,biner:integer;
begin
     write (' angka biner '); readln (biner);
    b:=0;
      repeat 
     sisa:= biner mod 10;
     biner:= biner div 10;
     if (b=0) then
     b:=1
     else
     b:=b*2;
    desimal:= desimal+sisa*b;
     until biner = 0;

      write ('desimal=', desimal );
    
end.

Senin, 19 Desember 2011

Turbo 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.

Selasa, 13 Desember 2011

Microsoft Excel

Microsoft Excel
Merupakan salah satu software yang bisa digunakan dalam perhitungan , ini sangat membanatu untuk seorang statistikawan. karena Rumus-rumus yang ada di dalamnya cukup lengkap.

Microsoft Excel (Windows)
Excel2007.PNG
Microsoft Office Excel 2007.png

Program Modus

Salah satu software statistika adalah TPw yang bisa membantu dalam perhitungan statistik, contohnya program menghitung Modus data..
program terbanyak;
uses wincrt;
var i,n,j,modus:integer;
A,frek:array[1..100] of integer;
begin
readln(n);
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.

Perkembangan Komputer dan TPW


Perkembangan Komputer sangat pesat, hampir semua kalangan bisa mempunyai komputer dirumah. Turbo Pascal for Windows merupakan salah satu software yang digunakan dalam perhitungan statistika. Namun untuk dapat menggunakanya harus membuat program yang di inginkan terlebih dahulu dengan rumus-rumus yang telah di susun.
Proses membuat suatu program adalah dengan melogika rumus, apa-apa saja yang harus di masukkan dan bagaiman hasilnya kemudian yaitu pada outputnya.
demikian tampilan program TPW.