Statistika Software Download

Math Type 6 unduh  disini
Eviews 5 unduh disini
Minitab 16 unduh disini
Turbo Pascal for Windows 1.5 unduh disini

Read More

Loopingan dalam Pascal

Perulangan dalam Pascal

Struktur pengulangan FOR..TO..DO.. digunakan pada suatu kondisi dimana sebuah pernyataan akan dillakukan perulangan sebayak X kali tersantung statement yang akan ditentukan. sebagai contoh:

for a:= 1 to 3 do

 write (‘saya’)

pada statement diatas maka akan terjadi pengulangan penulisan sebanyak 3 kali.

WHILE..DO.. digunakan pada kondisi dimana suatu pernyataan yang akan diulang belum tentu berapa kali terjadi pengulangan. pengulangan baru akan berakhir jika kondisi sudah terpenuhi.

while ( x > 0 ) do

 x := x – 1

statement diatas akan terus terjadi pengulangan selama nilai x masih positif

REPEAT UNTIL : sama seperti WHILE DO hanya saja pengecekan kondisi dilakukan pada saat terakhir.

repeat

 x := x – 1

 until ( x = 100 )

IF THEN ELSE : digunakan untuk sebuah kondisi dimana suatu pernyataan akan di uji. jika kondisi terpenuhi maka akan lanjut ke statement berikutnya tetapi jika tidak terpenuhi maka program akan jalan ke pernyataan lainnya.

if bisa then

 writeln (‘sukses’);

 else

 write (‘coba lagi’);

perbedaan WHILE DO dengan REPET UNTIL adalah terletak pada pengujian kondisi.

jika REPEAT UNTIL perintah dilakukan terlebih dahulu baru dilakukan pengujian.

sedangkan WHILE DO pengujian dilakukan diawal baru perintah dieksekusi.

perbedaaan lainya yaitu REPEAT UNTIL mengulang pernyataan selama kondisi belum terpenuhi sedang WHILE DO mengulang pernyataan selama kondisi masih terpenuhi.

Read More

Program Pascal Binomial

program binomial;
uses wincrt;
var p,a,b,c,d,e:real ;
i,j,k,n,x:longint;
begin
writeln ('jumlah data');readln(n);
writeln ('yang sukses');readln(x);
writeln ('persentase sukses');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 ('hasilnya');
writeln(a/(b*d)*c*e:0:4);

end.

Read More

Program Mencari Nilai Maksimum dan Minimum

program min_max;
uses wincrt;
var
a              : array[1..100] of real;
i,n            : integer;
max,min : real;
begin
writeln ('masukkan banyaknya data:'); readln(n);
max:=-9999;
min:=9999;
clrscr;
    for i:=1 to n do begin
    writeln ('data ke: ',i); readln (a[i]);
        if max<(a[i]) then max := (a[i]);
        if min>(a[i]) then min   := (a[i]);
    end;
writeln('nilai maksimum       : ', max:6:2);
writeln('nilai minimum          : ', min:6:2);
end.

Read More