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.
Statistika ITS 1311100070
Pengantar Ilmu Komputer TPW
Kamis, 05 Januari 2012
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.
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.
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
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.
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.
Langganan:
Postingan (Atom)