set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.createShortcut(strDesktop &"\Dik Regedit.lnk")
oShellLink.TargetPath = "C:\Windows\regedit.exe"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.IconLocation = "C:\Windows\regedit.exe, 0"
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Baca selengkapnya...
#include
#include
#include
#include
#include
void view(int item, int x, int y){
if (item<10)
gotoxy(x,y);
else
gotoxy(x-1,y);
cout<
void line(int x, int y){
gotoxy(x,y);
cout<<"|"<
void inputan(int *sMi, int *sMa, int *sNo,int *tSi, int *a1, int *b1, int *n1, int *men1, int *men2){
cout<<"Inputkan"<
cin>>*sMi;
cout<<" Stok maksimal : ";
cin>>*sMa;
cout<<" Stok sekarang : ";
cin>>*sNo;
cout<<" Lama simulasi : ";
cin>>*tSi;
cout<<" Maksimal beli (besar demand maksimal) : ";
cin>>*a1;
cout<<" Minimal beli (besar demand minimal) : ";
cin>>*b1;
cout<<" Banyak demand yang datang : ";
cin>>*n1;
cout<<" Rata - rata waktu antar kedatangan demand : ";
cin>>*men1;
cout<<" Rata - rata selang waktu datang order : ";
cin>>*men2;
}
void main(){
ulang:
clrscr();
int sMin,sMax,sNow,tSim,a,b,Stok,cDem = 0,n,mean1,mean2;
cout<<" =^=^=^=^=^=^=^=^=^=^=^=^=^=^="<
typedef struct{
int value;
int iTime;
int tSent;
int tWait;
bool sent;
}id_demand;
int waktu;
id_demand demand[50];
int demCome;
float u,ran;
randomize();
for (int i=0; i
u = ((rand() % 10));
}while(u==0);
ran = u/10;
waktu = -1 * mean1 * log10(ran);
if (i==0){
demand[i].iTime = waktu;
}
else{
demand[i].iTime = demand[i-1].iTime + waktu;
}
demand[i].value = a + (b-a)*ran;
}
for (int j=0; j
}
int vOrder = 0;
int t=0;
bool order = false;
int i = 0;
int y = 16 + n;
int y2 = 8;
int dem,sDemWait = 0,tOrder,demSent,demWait,xtOrder = 0;
Download source code lengkap nya di sini
Baca selengkapnya...
program cek_kelulusan_siswa;
uses crt;
var
nama : string[25];
kelas : string[5];
no_absen : string[3];
n_tugas : byte;
n_u_hari : byte;
n_u_umum : byte;
rerata : real;
lulus : boolean;
predikat : string[20];
begin
clrscr;
writeln('====================================================');
writeln('| Program Mengecek Kelulusan Siswa |');
writeln('====================================================');
writeln;
writeln('Input Data Siswa');
writeln('----------------');
write('Nama : '); readln(nama);
write('Kelas : '); readln(kelas);
write('No Absen : '); readln(no_absen);
write('Nilai Tugas : '); readln(n_tugas);
write('Nilai Ulangan Harian : '); readln(n_u_hari);
write('Nilai Ulangan Umum : '); readln(n_u_umum);
rerata:=(n_tugas + 2 * n_u_hari + 3 * n_u_umum)/6;
if rerata >=70 then lulus:=true
else lulus:= false;
clrscr;
writeln('====================================================');
writeln('| Program Mengecek Kelulusan Siswa |');
writeln('====================================================');
writeln;
writeln(' Siswa dengan');
writeln('----------------');
writeln('Nama : ',nama);
writeln('Kelas : ',kelas);
writeln('No Absen : ',no_absen);
writeln('Nilai Tugas : ',n_tugas);
writeln('Nilai Ulangan Harian : ',n_u_hari);
writeln('Nilai Ulangan Umum : ',n_u_umum);
writeln('Rata - rata : ',rerata:0:2);
if lulus then
begin
if rerata < 80 then predikat:='memuaskan'
else if rerata <90 then predikat:='sangat memuaskan'
else predikat:='dengan pujian';
writeln('Dinyatakan Lulus dengan ',predikat);
end
else
writeln('Dinyatakan Tidak Lulus');
readln;
end.
Baca selengkapnya...
uses crt;
type nilai = record
hari,tugas,umum,na : real;
end;
type mapel = record
kimia,basindo : nilai;
end;
type siswa = record
nama : string[25];
nis : string[3];
mp : mapel;
end;
var
i,n,a : byte;
student : array [1..100] of siswa;
stop : boolean;
b : string[4];
begin
stop := false;
Repeat
clrscr;
write('Banyak siswa : '); readln(n);
clrscr;
writeln('=======================================================================');
writeln('NIS Nama Siswa Mata Pelajaran N.Hr N.Tgs N.Umum N.Akhir');
writeln('-----------------------------------------------------------------------');
a:=4;
for i := 1 to n do
begin
with student[i] do
begin
readln(nis);
gotoxy(6,a);
readln(nama);
with mp do
begin
gotoxy(26,a);
writeln('Bahasa Indonesia');
with basindo do
begin
gotoxy(44,a);
readln(hari);
gotoxy(50,a);
readln(tugas);
gotoxy(57,a);
readln(umum);
na:=(2*hari+tugas+3*umum)/6;
gotoxy(65,a);
writeln(na:3:2);
end;
with kimia do
Download source code lengkapnya di sini
Baca selengkapnya...
Program Toserba;
uses crt;
var
pelanggan : char;
dis : string[3];
tot,blnja : real;
begin
clrscr;
writeln(' Dedix Toserba');
writeln('=================================');
write('Berbelanja sebesar = '); readln(blnja);
write('Pelanggan (y/t) ? : '); readln(pelanggan);
if pelanggan='y' then
begin
if blnja<=100.000 then
begin
tot := blnja -(10/100*blnja);
dis :='20%';
end
else
Download source lengkapnya di sini
Baca selengkapnya...
program sin(x);
uses crt;
const pi = 3.14;
var
x,rad,p1,tot : real;
n,i,faktor,p2,j : integer;
tanda : byte;
begin
clrscr;
writeln(' Menentukan nilai sin(x)');
write('Nilai x = '); readln(x);
write('Masukkan pangkat = '); readln(n);
rad := pi*x/180;
i := 1;
tanda := 1;
while i <= n do
Download program lengkap ny di sini..
Baca selengkapnya...
program Menu_Program;
uses crt;
var
a:byte;
i,n,x : integer;
sigmay,sigmax,ratax,ratay,sigma,sigma1,sigma2,cov,varian : real;
rerata,hsl : real;
procedure hapus_layar;
begin
clrscr;
end;
procedure mean;
begin
writeln('Menghitung Mean dari beberapa Data');
writeln('----------------------------------');
write('Masukkan banyak data yang akan di input :');
readln(n);
sigma:=0;
for i:=1 to n do
begin
write('Input x',i,' :');
readln(x);
sigma:=sigma + x;
end;
rerata := sigma/n;
writeln('Mean dari data - data terebut adalah ',rerata:5:2);
readln;
end;
procedure varians;
begin
writeln('Menentukan Varians');
writeln('------------------');
write('Masukan banyak data : ');
readln(n);
while n<2 do
begin
writeln('Banyak data harus lebih dari 2');
write('Masukkan banyak data : ');
readln(n);
end;
sigma1 := 0;
sigma2 := 0;
for i := 1 to n do
begin
write('Masukkan data',i,' : ');
readln(x);
sigma1:=sigma1 + x;
sigma2:=sigma2 + (x*x);
end;
hsl :=(n*sigma2 - (sigma1*sigma1))/(n*(n-1));
writeln('Varians = ',hsl:5:2);
readln;
end;
procedure covar;
var
x,y,px,py,k : array [1..100] of real;
begin
write('n = '); readln(n);
sigmax := 0;
sigmay := 0;
for i := 1 to n do
begin
write('x = '); readln(x[i]);
write('y = '); readln(y[i]);
sigmax := sigmax + x[i];
sigmay := sigmay + y[i];
end;
ratax := sigmax/n;
ratay := sigmay/n;
sigma := 0;
for i := 1 to n do
begin
px[i] := x[i] - ratax;
py[i] := y[i] - ratay;
k[i] := px[i]*py[i];
sigma := sigma + k[i];
end;
Download source code lengkapnya di sini..
Ini contoh prosedur program statistik..Keren kan..
Baca selengkapnya...
