program kalkulator;
uses wincrt;
var
a,p,l:integer;
z:real;
var c:array[1..10] of integer;
n,i,b:integer;
sigmax,sigmax2,sigma_x2,varian,stdev:real;
begin
repeat
writeln('^^^^^^^^^^^^^');
writeln;
writeln('Selamat Datang di Pemrograman Kalkulator');
writeln;
writeln('Pemrograman Kalkuator sebagai berikut:');
writeln('1.Penjumlahan');
writeln('2.Pengurangan');
writeln('3.Perkalian');
writeln('4.Pembagian');
writeln('5.Rata-rata,stdev,varian');
writeln('6.Keluar');
writeln('^^^^^^^^^^^^');
writeln;
writeln('Silahkan Pilih Yang Anda Inginkan');
readln(a);
clrscr;
case a of
1:Begin
write('masukan bilangan:');readln(p);
write('masukan bilangan:');readln(l);
z:=p+l;
writeln('hasil penjumalahan:',z);readln;
end;
2:Begin
write('masukan bilangan:');readln(p);
write('masukan bilangan:');readln(l);
z:=p-l;
writeln('hasil pengurangan:',z);readln;
end;
3:Begin
write('masukan bilangan:');readln(p);
write('masukan bilangan:');readln(l);
z:=p*l;
writeln('hasil perkalian:',z);readln;
end;
4:Begin
write('masukan bilangan:');readln(p);
write('masukan bilangan:');readln(l);
z:=p/l;
writeln('hasil pembagian:',z);readln;
end;
5:Begin
Write(‘n= ‘);readln(n);
For i:=1 to n do
Begin
Write(‘data[‘,I,’]’,’=’);
Readln(c[i]);
B:=sqr(c[i]);
Sigmax:=sigmax+c[i];
Sigmax2:=sigmax2+b;
End;
Sigma_x2:=sqr(sigmax);
Writeln(‘Jumlahan data=’,sigmax:0:2);
Writeln(‘Rata-rata=’,sigmax/n:0:2);
Varian:=(n*sigmax2-sigma_x2)/(n*(n-1));
Stdev:=sqrt(varian);
Writeln(‘Varian=’,varian:0:2);
Writeln(‘Stdev=’,stdev:0:2);
End;
end;
writeln('^^^^^^^^^^^');
writeln;
writeln('Thanx yacH');
writeln;
writeln('^^^^^^^^^^^');
readln;
until a=6
end.