Program Pascal : Varian
Rizka dewi
 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.

seperti pada gambar :


0 komentar | edit post
Program Pascal : case of : nilai
Rizka dewi
Program hitung_nilai;
uses wincrt;
var
a:integer;
begin
readln(a);
case a of 81..100:writeln ('A');
76..80 :writeln ('AB');
70..75:writeln ('B');
61..70:writeln ('BC');
51..60:writeln ('C');
41..50:writeln ('D');
0..40:writeln ('E');
else writeln('input nilai salah');
end;
end.

seperti pada gambar:


0 komentar | edit post
Program Pascal : Binomial
Rizka dewi
program binomial;
uses wincrt;
var
i,j,k,n,x:longint;
a,b,c,d,e,p:real;

begin
readln (n);
readln(x);
readln(p);
a:=1;b:=1;c:=1;d:=1;e:=1;
for i:=1 to n do
a:=a*i;
for j:=1 to x do
begin
b:=b*j;
c:=c*p;
end;
for k:=1 to (n-x) do
begin
d:=d*k;
e:=e*(1-p);
end;
writeln(a/(b*d)*c*e:0:4);
end.


seperti pada gambar:

0 komentar | edit post
Program Pascal : Faktorial
Rizka dewi
program faktorial;
uses wincrt;
var
i,n,f:integer;
begin
readln(n);
f:=1;
for i:=1 to n do
begin
f:=f*i;
end;
begin
for i:=n downto 2 do
begin
write(n,'x');
n:=n-1;
end;
end;
write('1','=',f);
end.
0 komentar | edit post
Program pascal : Perpangkatan
Rizka dewi
 
program perpangkatan;
uses wincrt;
var i,o,p:longint;
hasil:real;
begin writeln('a pangkat b');
      writeln('masukkan a=');readln(o);
      writeln('masukkan b=');readln(p);
      hasil:=1;
      for i:=1 to abs(p) do
      hasil:=o * hasil;
      if (p<0) then
      begin
      write('hasil=');
      write(1/hasil);
      end
      else
      begin
      write('hasil= ');
      write(hasil);
      end;
end.
0 komentar | edit post
Program Pascal : Mengubah Biner ke Desimal
Rizka dewi
uses wincrt;
var
biner,desimal,sisa,b :longint;
begin
desimal:=0;b:=1;
write(' angka biner ');readln(biner);
b:=1;
repeat
sisa:=biner mod 10;
biner:=biner div 10;
desimal:=desimal+sisa*b;
b:=b*2;
until biner=0;
write(' angka desimal ');writeln(desimal);
end.
0 komentar | edit post