program laporanalproke2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
menu,i,n: integer ;
pilihan,data,c,d,e,ratarata,variansi,SD: real ;
begin
writeln ('
PROGRAM UNTUK MENGHITUNG RUMUS STATISTIKA DESKRIPTIF
writeln; writeln;
writeln ('
MENU
writeln;
writeln ('
1. Menghitung Rata-rata
writeln ('
2. Menghitung Variansi
writeln ('
3. Menghitung Standar Deviasi
writeln;
writeln ('
repeat
writeln; writeln;
write ('Tekan Menu Yang Anda Inginkan = ');
readln (menu);
case menu of
1 :
begin
writeln; writeln; writeln;
writeln ('Anda Memilih Menu (1)');
writeln; writeln;
writeln ('Menghitung Rata-rata ');
writeln; writeln;
write ('Masukkan banyaknya data = ');
readln (n);
c:=0;
for i:=1 to n do
begin
write('Masukkan data ke ',i,'= ');
readln(data);
c:=c+data;
end;
begin
ratarata:= c/n ;
writeln; writeln;
writeln ('Jumlah Data Tersebut Adalah = ', c:2:0);
writeln ('Rata-Rata dari Data Tersebut adalah = ', ratarata:2:2);
end;
end;
2:
begin
writeln; writeln; writeln;
writeln ('Anda Memilih Menu (2)');
writeln; writeln;
writeln ('2. Menghitung Variansi');
');
');
');
');
');
');
writeln; writeln;
write ('masukkan banyaknya data = ');
readln (n);
c :=0 ;
for i:=1 to n do
begin
write('Masukkan data ke ',i,'= ');
readln(data);
c:=c+data;
d:=sqr(data);
e:=e+d;
end;
begin
ratarata:= c/n;
variansi:=(e-(n*sqr(ratarata)))/(n-1);
writeln; writeln;
writeln ('Rata-rata Dari Data Tersebut Adalah = ' , ratarata:2:2);
writeln ('Variansi Dari Data Tersebut Adalah = ' , variansi:2:2);
end;
end;
3:
begin
writeln; writeln; writeln;
writeln ('Anda Memilih Menu(3)');
writeln; writeln;
writeln ('[Link] Deviansi');
writeln; writeln;
write ('masukkan banyaknya data = ');
readln (n);
for i:=1 to n do
begin
write('Masukkan data ke ',i,'= ');
readln(data);
c:=c+data;
d:=sqr(data);
e:=e+d;
end;
begin
ratarata:= c/n;
variansi:=(e-(n*sqr(ratarata)))/(n-1);
Sd := sqrt(variansi);
writeln; writeln;
writeln ('Standar Deviasi Dari Data Tersebut Adalah = ' , SD:2:2);
end;
end;
else
Writeln; Writeln;
Writeln ('MAAF, KEYWORD YANG ANDA MASUKKAN TIDAK TERDAPAT DALAM MENU');end;
writeln; writeln;
write ('tekan 1 untuk mengulang,tekan 2 untuk mengahiri = '); readln(Pilihan);
until (Pilihan>=2) or (Pilihan<=0);
writeln;writeln;
if Pilihan = 2 then
writeln ('TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI')
else
if Pilihan > 2 then
writeln ('MAAF KEYWORD ANDA SALAH');
writeln; writeln ;
readln ;
{ TODO -oUser -cConsole Main : Insert code here }
end.