Procedure

procedure korelasi(n:integer);
var i:integer;
r,T1,T2,T3,T4,T5:real;
x:array [byte] of real;
y:array [byte] of real;
begin
T1:=0;
T2:=0;
T3:=0;
T4:=0;
T5:=0;
for i:=1 to n do
begin
write('data ke-',i,' : ');
readln(x[i],y[i]);
end;
writeln;
writeln(' x ',' y ',' x^2 ',' y^2 ',' xy ');
for i:=1 to n do
begin
writeln(x[i]:7:2,y[i]:7:2,sqr(x[i]):9:2,sqr(y[i]):9:2,x[i]*y[i]:9:2);
end;
for i:=1 to n do
begin
T1:=T1+x[i];
T2:=T2+y[i];
T3:=T3+sqr(x[i]);
T4:=T4+sqr(y[i]);
T5:=T5+x[i]*y[i];
end;
writeln('----------------------------------------------');
write(T1:7:2,T2:7:2,T3:9:2,T4:9:2,T5:9:2);
writeln;
writeln;
r:=((n*T5)-(T1*T2))/(sqrt((n*T3-sqr(T1))*(n*T4-sqr(T2))));
writeln('Besar nilai korelasi = ',r:5:2);
end;

procedure prisma(a,b,c:real);
var v:real;
begin
v:=1/2*a*b*c;
writeln('Volum Prisma Segitiga = ',v:5:2);
end;

procedure tabung(a,b:real);
var v:real;
const pi=3.14;
begin
v:=pi*a*a*b;
writeln('Volum Tabung = ',v:5:2);
end;

procedure limas(a,b,c:real);
var v:real;
begin
v:=1/3*a*b*c;
writeln('Volum Limas Segiempat = ',v:5:2);
end;

procedure bola(a:real);
var v:real;
const pi=3.14;
begin
v:=4/3*pi*a*a*a;
writeln('Volum Bola = ',v:5:2);
end;


program menu_pilih;
uses wincrt;
var pilihan,data:integer;
jawab:char;
x,y:real;
a,tg,T,p,l,r:real;

procedure korelasi(n:integer);
var i:integer;
r,T1,T2,T3,T4,T5:real;
x:array [byte] of real;
y:array [byte] of real;
begin
T1:=0;
T2:=0;
T3:=0;
T4:=0;
T5:=0;
for i:=1 to n do
begin
write('data ke-',i,' : ');
readln(x[i],y[i]);
end;
writeln;
writeln(' x ',' y ',' x^2 ',' y^2 ',' xy ');
for i:=1 to n do
begin
writeln(x[i]:7:2,y[i]:7:2,sqr(x[i]):9:2,sqr(y[i]):9:2,x[i]*y[i]:9:2);
end;
for i:=1 to n do
begin
T1:=T1+x[i];
T2:=T2+y[i];
T3:=T3+sqr(x[i]);
T4:=T4+sqr(y[i]);
T5:=T5+x[i]*y[i];
end;
writeln('----------------------------------------------');
write(T1:7:2,T2:7:2,T3:9:2,T4:9:2,T5:9:2);
writeln;
writeln;
r:=((n*T5)-(T1*T2))/(sqrt((n*T3-sqr(T1))*(n*T4-sqr(T2))));
writeln('Besar nilai korelasi = ',r:5:2);
end;

procedure prisma(a,b,c:real);
var v:real;
begin
v:=1/2*a*b*c;
writeln('Volum Prisma Segitiga = ',v:5:2);
end;

procedure tabung(a,b:real);
var v:real;
const pi=3.14;
begin
v:=pi*a*a*b;
writeln('Volum Tabung = ',v:5:2);
end;

procedure limas(a,b,c:real);
var v:real;
begin
v:=1/3*a*b*c;
writeln('Volum Limas Segiempat = ',v:5:2);
end;

procedure bola(a:real);
var v:real;
const pi=3.14;
begin
v:=4/3*pi*a*a*a;
writeln('Volum Bola = ',v:5:2);
end;
begin
repeat
clrscr;
writeln(' PILIHAN MENU ');
writeln('--------------------------------');
writeln(' 1. Korelasi ');
writeln(' 2. Volum Prisma Segitiga ');
writeln(' 3. Volum Tabung ');
writeln(' 4. Volum Limas Segiempat ');
writeln(' 5. Volum Bola ');
writeln('--------------------------------');
write('Masukkan Pilihan Anda : ');
readln(pilihan);
clrscr;
writeln;
case pilihan of
1: begin
writeln('Menu yang Anda pilih adalah menu KORELASI');
writeln('Menghitung besarnya nilai korelasi antara 2 variabel');
write('Masukkan banyaknya data : ');
read(data);
writeln('Masukkan data pada variabel pertama(x) dan variabel kedua(y) (dipisah spasi) : ');
writeln(' x ','y');
korelasi(data);
end;
2: begin
writeln('Pilihan Anda adalah VOLUM PRISMA SEGITIGA');
write('Masukkan alas segitiga : ');
read(a);
write('Masukkan tinggi segitiga : ');
read(tg);
write('Masukkan tinggi prisma segitiga : ');
read(T);
prisma(a,tg,T);
end;
3: begin
writeln('Pilihan Anda adalah VOLUM TABUNG');
write('Masukkan jari-jari : ');
read(r);
write('Masukkan tinggi tabung : ');
read(T);
tabung(r,T);
end;
4: begin
writeln('Pilihan Anda adalah VOLUM LIMAS SEGIEMPAT');
write('Masukkan panjang : ');
read(p);
write('Masukkan lebar : ');
read(l);
write('Masukkan tinggi limas segiempat : ');
read(T);
limas(p,l,T);
end;
5: begin
writeln('Pilihan Anda adalah VOLUM BOLA');
write('Masukkan JARI-JARI BOLA : ');
read(r);
bola(r);
end;
end;
writeln;
write('Apakah Anda akan mencoba memilih lagi?(y/t) : ');
readln(jawab);
until(jawab='t');
end.