program kalkulatorstatistika;
uses wincrt;
var
a,b,c,d:integer;
e,f,g:real;
i,n:integer;
sum1:integer;
data:array [1..100] of integer;
x,y:integer;
rata,selisih,varian,sum2,sum3:real;
data1:array [1..100] of real;
begin
clrscr;
repeat
writeln('.........SELAMAT DATANG..........');
writeln;
writeln('.........diprogram kalkulator statistik................');
writeln;
writeln('anda dipersilahkan untuk memilih operasi hitungan yang diinginkan...');
writeln('silahkan memilih pilihannya');
writeln('1.penjumlahan +');
writeln('2.pengurangan -');
writeln('3.perkalian *');
writeln('4.pembagian /');
writeln('5.mencari mean');
writeln('6.mencari varians');
writeln('7.keluar');
writeln;
writeln('**************');
writeln;
writeln;
writeln('silahkan anda memilih operasi yang anda inginkan...');
readln(a);
clrscr;
case a of
1:begin
writeln('masukan angka :');readln(b);
writeln('masukan angka :');readln(c);
d:=b+c;
writeln('hasil penjumlahan =',d);readln;
end;
2:begin
writeln('masukan angka :');readln(b);
writeln('masukan angka :');readln(c);
d:=b-c;
writeln('hasil pengurangan =',d);readln;
end;
3:begin
writeln('masukan angka:');readln(b);
writeln('masukan angka:');readln(c);
d:=b*c;
writeln('hasil perkalian =',d);readln;
end;
4:begin
writeln('masukan angka:');readln(e);
writeln('masukan angka:');readln(f);
g:=e/f;
writeln('hasilpembagian =',g);readln;
end;
5:begin
sum1:=0;
write('berapa banyak data yang anda ingin masukkan?');readln(n);
writeln('silahkan memasukan data...');
i:=1;
repeat
write('data ke-',i,' ');
readln(data[i]);
inc(i);
until i>n;
i:=1;
repeat
sum1:=sum1+data[i];
inc(i);
until i>n;
write('rata-ratanya =');
writeln(sum1/n);
end;
6:begin
sum2:=0;
write('berapa banyak data yang anda masukkan?');readln(y);
writeln('silahkan memasukan data...');
x:=1;
repeat
write('data ke-',x,' ');
readln(data[x]);
inc(x);
until x>y;
x:=1;
repeat
sum2:=sum2+data[x];
inc(x);
rata:=sum2/y
until x>y;
x:=1;
repeat
selisih:=sqr(data[x]-rata);
sum3:=sum3+selisih;
inc(x);
varian:=sum3/(y-1);
until x>y;
writeln('variannya =',varian);
end;
end;
writeln('************');
writeln;
writeln('..........terima kasih..........');
writeln;
writeln('************');
readln;
until a=7
end.
program biner_desimal;
uses wincrt;
var bilbiner:string;
function pangkat(a,b:integer):integer;
var i, hasil:integer;
begin
hasil:=1;
for i:=1 to b do
begin
hasil:=hasil*a;
end;
pangkat:=hasil;
end;
function bin2dec(biner:string):integer;
var n,sum,i:integer;
begin
n:=length(biner);
sum:=0;
for i :=n-1 downto 0 do
begin
if(biner[n-1]='0')then sum:=sum+0*pangkat(2,i)
else if (biner[n-1]='1')then sum:=sum+1*pangkat(2,i);
end;
bin2dec:=sum;
writeln('bin 2 dec');
end;
begin
clrscr;
writeln('konversi bilangan biner ke desimal');
writeln;
write('masukkan bilangan biner= ');
readln(bilbiner);
write('bilangan desimalnya= ',bin2dec(bilbiner));
readkey;
end.
Bilangan desimal disusun atas 10 buah digit yakni 0,1,2,3,4,5,6,7,8,9. Karena digit penyusunnya sebanyak 10 maka disebut sebagai sistem bilangan berbasis 10. Bagaimana caranya agar sistem bilangan desimal ini dapat dikonversikan ke biner???? Hal ini dapat dilakukan dengan melakukan pembagian bilangan desimal dengan 2 hingga bilangan desimal tersebut lebih kecil dari 2. Bilangan biner adalah sisa hasil pembagian. Misalkan terdapat bilangan desimal 10 maka bilangan binernya adalah:
10 : 2 = 5 sisa 0
5 : 2 = 2 sisa 1
2 : 2 = 1 sisa 0
1 : 2 = 0 sisa 1
sehingga diperoleh bilangan biner adalah 1010. pembacaan bilangan biner ini dari bawah keatas loh… nah,,, yang ini tadi menghitungnya secara manual…sekarang kita bisa mengkonversikan bilangan desimal ke biner dengan menggunakan Pascal…
program desimalbiner;
uses wincrt;
var hasilbagi,desimal,sisa:integer;
biner,bilbiner,bin:string;
begin
write('desimal=');
read(desimal);
hasilbagi:=desimal div 2;
bilbiner:=' ';
while(hasilbagi>=1)do
begin
sisa:=desimal mod 2;
if(sisa=0)then biner:='0'
else if(sisa=1)then biner:='1';
bilbiner:=biner+bilbiner;
desimal:=hasilbagi;
hasilbagi:=desimal div 2
end;
bin:='1'+bilbiner;
writeln('hasil biner=',bin);
end.
