ITS CAK

program its_cak;
uses wincrt;
var i,j,k:integer;
begin
for i:=9 downto 1 do
begin
for j:=1 to 1000 do
begin
gotoxy(1,1); write(i);
end;
for k:=1 to 500 do
clrscr;
end;

for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln(' *** * * ');
writeln(' * * ** * ');
writeln(' **** * * * * ');
writeln(' ****** ** * * ');
writeln(' ****** * * ');
writeln(' **** ');
end;
for k:=1 to 300 do
clrscr;

for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln(' *** * * ');
writeln(' * * * ');
writeln(' **** * * *');
writeln(' ****** ** * ');
writeln(' ****** ');
writeln(' **** ');
end;
for k:=1 to 300 do
clrscr;


for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln(' ** * ');
writeln(' * * * ');
writeln(' **** * * ');
writeln(' ****** ');
writeln(' ****** ');
writeln(' **** ');
end;
for k:=1 to 300 do
clrscr;

for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln(' * ');
writeln(' * ');
writeln(' **** ');
writeln(' ****** ');
writeln(' ****** ');
writeln(' **** ');
end;
for k:=1 to 300 do
clrscr;

for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln('* * * *');
writeln(' * * * * ');
writeln(' * * * ** ');
writeln('* * * * * ');
writeln(' * * ** * * * ');
writeln('* * * ** * ');
end;
for k:=1 to 300 do
clrscr;

for i:=1 to 50 do
begin
for j:=1 to 50 do
begin
gotoxy(i,1);
writeln(' *** ******** ***** ');
gotoxy(i,2);
writeln(' *** ******** *** ');
gotoxy(i,3);
writeln(' *** *** ** ');
gotoxy(i,4);
writeln(' *** *** *** ');
gotoxy(i,5);
writeln(' *** *** ***** ');

end;
for k:=1 to 50 do
clrscr;
end;
gotoxy(1,1);
writeln(' *** ** ** * ');
writeln(' ** * ** ** ** * ');
writeln(' ** ****** *** ');
writeln(' ** * ** ** ** * ');
writeln(' *** ** ** ** * ');
end.

Program Matriks

program matrik;
uses wincrt;
var a:array[1..10,1..10] of real;
i,j,baris,kolom:integer;

begin
write('ukuran matrik mxn ');
readln(baris,kolom);
writeln('memasukkan elemen matrik');
writeln(' ');
for i:=1 to baris do
begin
writeln('baris ke-',i);
for j:=1 to kolom do
read(a[i,j]);
writeln;
end;

writeln('hasil matrik');
for i:=1 to baris do
begin
for j:=1 to kolom do
write(a[i,j]:0:0,' ');
writeln;
end;
end.

Segitiga Pascal

program segitiga_pascal_kombinasi;
uses wincrt;
var a,b,c,n:integer;

function fkom(n:integer; m:integer): real;
var i,j,k: integer;
x,y,z: real;
begin
x:=1; y:=1; z:=1;
for i:=1 to n do x:=x*i;
for j:=1 to m do y:=y*j;
for k:=1 to (n-m) do z:=z*k;
fkom:=x/(y*z);
end;


begin
write('n = '); readln(n);
for a:=0 to n do
begin
for b:=n downto a+1 do
write(' ');
for c:=0 to a do
write(fkom(a,c):3:0,' ');
writeln;
end;
end.

Membuat Kalkulator Mini

program kalkulatormini;
uses wincrt;
var
a,b,c,d:integer;
e,f,g:real;
begin
clrscr;
repeat
writeln('=========');
writeln;
writeln('Kalkulator mini');
writeln;
writeln('Layanan operasi penghitungan');
writeln('1.tambah');
writeln('2.kurang');
writeln('3.kali');
writeln('4.bagi');
writeln('5.keluar');
writeln('=========');
writeln;
writeln('Silahkan pilih');
readln(a);
clrscr;
case a of

1:begin
writeln('masukan nilai ke-1: ');readln(b);
writeln('masukan nilai ke-2: ');readln(c);
d:=b+c;
writeln('hasil:',d);readln;
end;
2:begin
writeln('masukan nilai ke-1: ');readln(b);
writeln('masukan nilai ke-2: ');readln(c);
d:=b-c;
writeln('hasil :',d);readln;
end;
3:begin
writeln('masukan nilai ke-1: ');readln(b);
writeln('masukan nilai ke-2: ');readln(c);
d:=b*c;
writeln('hasil:',d);readln;
end;
4:begin
writeln('masukan nilai ke-1: ');readln(b);
writeln('masukan nilai ke-2: ');readln(c);
g:=e/f;
end;
end;
clrscr;
writeln('============');
writeln('terima kasih telah mencoba program pascal ini');
writeln('============');
readln;
until a=5
end.

Program Statistika Deskriptif

program data;
uses wincrt;
var a:array[1..1000] of real;
I,n:integer;
sum,mean,max,min,sum2,s2,d:real;
begin
write('banyaknya data:');
readln(n);sum:=0;max:=
- 99;min:=99;sum2:=0;
for i :=1 to n do
begin
write('data ke:',i,'=');
readln(a[i]);
if maxa[i]then min:=a[i];
sum:=sum+a[i];
sum2:=sum2+a[i]*a[i];
s2:=(sum2-sum*sum/n)/(n-1);
d:=sqrt(s2);
end;
mean:=sum/n;
writeln('rata-rata:',mean:8:4);
writeln('max:',max:8:4);
writeln('min:',min:8:4);
writeln('var:',s2:8:4);
writeln('stadev:',d:8:4);
end.

Program Standar Deviasi

program rata_stdev_loop_while;
uses wincrt;
var data,datakuadrat,i,n: integer;
sigmax2,total,total2,mean,varian,stdev: real;

begin
write('jumlah data yaitu '); readln(n);

i:=0;
total:=0;
total2:=0;

while i begin
i:=i+1;
write('nilai data ke ',i,' ? '); readln(data);
total:=total+data;
total2:=total2+(data*data);
end;
mean:=total/n;
stdev:=sqrt((total2-((total*total)/n))/(n-1));
varian:=stdev*stdev;

writeln('total nilai = ',total:3:2);
writeln('rata-rata nilai = ',mean:3:2);
writeln('standard deviasi = ',stdev:3:2);
writeln('varians = ',varian:3:2);
end.

Program Rata-Rata dan Varians

Algoritma menghitung rata-rata :
Definisikan banyaknya data (n)
Menginputkan data ke-1 sampai ke-n
Jumlahkan hasil pada langkah ke-2
Membagi hasil penjumlahan data dengan banyaknya data  rata2
Tampikan hasil perhitungan rata-rata





Algoritma menghitung varian dan standar deviasi :
Definisikan jumlah data (n)
Menginputkan data ke-1 sampai ke-n
Kuadratkan data ke-1 sampai ke-n
Jumlahkan hasil pada langkah ke-3
Jumlahkan hasil pada langkah ke-2
Hitung hasil kuadrat dari langkah ke-5
Hitung varian
Hitung standar deviasi
Tampilkan hasil perhitungan varian
Tampilkan hasil perhitungan standar deviasi

 stdev = √(S^2 )



program menghitung_rata_rata;
uses wincrt;
var data,n,i: integer;
sigmax,mean:real;

begin
write('n = '); readln(n);
for i:=1 to n do
begin
write('data[',i,']',' = ');
readln(data);
sigmax:=sigmax+data;
end;
mean:=sigmax/n;
writeln('Jumlahan data = ',sigmax:0:3);
writeln('Rata-rata = ',mean:0:3);
end.



program ratarataxxx;
uses wincrt;
var n,i,x,data: longint;
rata: real;

begin
Write('Masukkan jumlah data : ');
readln(n);
for i:=1 to n do
begin
write('Masukkan data ke-',i,' : ');
readln(data);
x:=x+data;
end;
rata:=x/n;
writeln('Rata-rata nilai data sebanyak ',n,' adalah ',rata);
end.




program menghitung_varian;
uses wincrt;
var data,datakuadrat,i,n: integer;
sigmax2,sigmax,sigmax_kuadrat,varian,stdev:real;

begin
write('n = '); readln(n);
for i:=1 to n do
begin
write('data[',i,']',' = ');
readln(data);
datakuadrat:=sqr(data);
sigmax2:=sigmax2+datakuadrat;
sigmax:=sigmax+data;
end;
sigmax_kuadrat:=sqr(sigmax);
varian:=((n*sigmax2)-sigmax_kuadrat)/(n*(n-1));
stdev:=sqrt(varian);
writeln('Varian = ',varian:0:3);
writeln('Standar Deviasi = ',stdev:0:3)
end.

Program Segitiga Pascal

program deret;
uses wincrt;
var
a,b,c,d,e,n:integer;
begin
write('masukkan n=');
readln(n);
b:=1;
c:=1;
d:=1;
for a:=1 to n do
begin
for c:=a downto 1 do
begin
write(b,' ') ;
b:=b+1;
end;
for e:=1 to a+1 do
begin
d:=d-1;
e:=d;
writeln;
end;
end;
end.

Program Modus

program modus;
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
write(frek[i],' ');
if frek[modus] modus:=i;
end;
write('modus: ',A[modus],' sebanyak ',frek[modus]+1);
end.

Program Invers dan Determinan pada Matriks Berordo 2x2

program invers_determinan;
uses wincrt;
var inv,a,b,c: array[1..10,1..10] of real;
i,j,k1,k2,b1,b2,sum,r:integer;
det,deter:real;
begin
writeln ('program determinan & invers matriks');
write('banyak baris Matrik A = ');readln(b1);
write('banyak kolom Matrik A = ');readln(k1);
if (b1=2)and (k1=2) then
begin
for i:=1 to b1 do
for j:=1 to k1 do
readln(a[i,j]);
writeln;
for i:=1 to b2 do
for j:=1 to k2 do
readln(b[i,j]);
writeln;
writeln('Matrik A adalah');
for i:=1 to b1 do
begin
for j:=1 to k1 do
write(a[i,j]:8:3,' ');
writeln;
end;
writeln;
det:= (a[1,1]*a[2,2]-a[1,2]*a[2,1]);
writeln('determinan matriks A adalah');
writeln (det:8:2);
writeln;
writeln ('invers matriks A adalah');
for i:=b1 downto 1 do
begin
deter:=1/det;
for j:=k1 downto 1 do
begin b[1,2]:= -a[1,2]*deter; b[1,1]:=a[1,1]*deter;b[2,1]:=-a[2,1]*deter;b[2,2]:=a[2,2]*deter;
write (b[i,j]:8:1);end;
writeln;end;
end
else
writeln ('maaf program hanya bisa membaca matriks berordo 2x2');
end.

Hasil:

Program Binomial

Distribusi binomial adalah suatu distribusi untuk memperoleh banyaknya sukses dalan n kali percobaan.
Rumus dari distribusi bernoulli adalah

Keterangan :
x= banyaknya kuberhasilan dalam peubah acak X
n= banyaknya percobaan
p= peluang keberhasilan dalam setiap percobaan
q= peluang gagal dalam setiap kali percobaan

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.

Hasil :

Jadi untuk n=4; x=3; p=0,7 diperoleh hasil 0,4116