program vektor_di_ruang_3;

program vektor_di_ruang_3;

ses wincrt;

label
aa;

var
pill:string;
pil,e:integer;
a1,a2,a3,b1,b2,b3,c,d: real;
pv,pv1,pv2,jd,alpha,cos_alpha,jd1,jd2 : real;
jd1a,jd1b,jd1c,jd2a,jd2b,jd2c :real;

Procedure Panjang_Vektor;
Begin
ClrScr;
Writeln('Program Menghitung Panjang Vektor a');
writeln;
writeln('=========================================');
begin
Write('Masukkan nilai a1 = ');readln(a1);
Write('Masukkan nilai a2 = ');readln(a2);
Write('Masukkan nilai a3 = ');readln(a3);
pv:=Sqrt(sqr(a1)+sqr(a2)+sqr(a3));
end;
write('Panjang Vektor a = ',pv:5:2);
   writeln;
    writeln;
    writeln('Tekan ENTER untuk Kembali ke Menu sebelumnya!!');
End;

procedure Dot_Product_dengan_Sudut_Alpha;
Begin
ClrScr;
Writeln('Program Menghitung Dot Product (vektor a . vektor b) dengan Sudut Alpha');
writeln;
writeln('=========================================');
Writeln('Inputkan Anggota Vektor a : ');
writeln;
begin
Write('Masukkan nilai a1 = ');readln(a1);
Write('Masukkan nilai a2 = ');readln(a2);
Write('Masukkan nilai a3 = ');readln(a3);
pv1:=Sqrt(sqr(a1)+sqr(a2)+sqr(a3));
end;
write('Panjang Vektor a = ',pv1:5:2);
 writeln;
 writeln;
writeln('=========================================');
writeln('Inputkan Anggota Vektor b : ');
writeln;
begin
Write('Masukkan nilai b1 = ');readln(b1);
Write('Masukkan nilai b2 = ');readln(b2);
Write('Masukkan nilai b3 = ');readln(b3);
pv2:=Sqrt(sqr(a1)+sqr(a2)+sqr(a3));
end;
write('Panjang Vektor b = ',pv2:5:2);
 writeln;
 writeln;
writeln('=========================================');
write('Inputkan nilai alpha : ');readln(alpha);
cos_alpha:=cos(alpha / 57.2958);
write('cos ',alpha:2:0,' = ',cos_alpha:2:2);
writeln;
writeln;
writeln('===============> JADI <================');
write('vektor a . vektor b');
jd:=pv1*pv2*cos_alpha;
write(' = ',jd:5:2);
writeln;
writeln;
writeln('Tekan ENTER untuk Kembali ke Menu sebelumnya!!');
End;

procedure Dot_Product_Tanpa_Sudut;
Begin
ClrScr;
Writeln('Program Menghitung Dot Product (vektor a . vektor b) Tanpa Sudut');
writeln;
writeln('=========================================');
Writeln('Inputkan Anggota Vektor a : ');
writeln;
begin
Write('Masukkan nilai a1= ');readln(a1);
Write('Masukkan nilai a2= ');readln(a2);
Write('Masukkan nilai a3= ');readln(a3);
end;
 writeln;
 writeln;
writeln('=========================================');
writeln('Inputkan Anggota Vektor b : ');
writeln;
begin
Write('Masukkan nilai b1= ');readln(b1);
Write('Masukkan nilai b2= ');readln(b2);
Write('Masukkan nilai b3= ');readln(b3);
end;
 writeln;
writeln;
writeln('===============> JADI <================');
write('vektor a . vektor b');
jd:=(a1*b1)+(a2*b2)+(a3*b3);
write(' = ',jd:5:2);
   writeln;
    writeln;
    writeln('Tekan ENTER untuk Kembali ke Menu sebelumnya!!');
End;

procedure Proyeksi_Skalar_Ortogonal;
Begin
ClrScr;
Writeln('Program Menghitung Proyeksi Skalar Ortogonal');
writeln;
writeln('=========================================');
Writeln('Inputkan Anggota Vektor a : ');
writeln;
begin
Write('Masukkan nilai a1= ');readln(a1);
Write('Masukkan nilai a2= ');readln(a2);
Write('Masukkan nilai a3= ');readln(a3);
end;
writeln;
writeln;
writeln('=========================================');
writeln('Inputkan Anggota Vektor b : ');
writeln;
begin
Write('Masukkan nilai b1= ');readln(b1);
Write('Masukkan nilai b2= ');readln(b2);
Write('Masukkan nilai b3= ');readln(b3);
end;
writeln;
writeln;
writeln('===============> JADI <================');
write('Proyeksi Skalar Ortogonal vektor a pada vektor b');
jd1:= ((a1*b1)+(a2*b2)+(a3*b3)) / Sqrt(sqr(b1)+sqr(b2)+sqr(b3));
writeln(' = ',jd1:5:2);
writeln;
jd2:= ((a1*b1)+(a2*b2)+(a3*b3)) / Sqrt(sqr(a1)+sqr(a2)+sqr(a3));
write('Proyeksi Skalar Ortogonal Vektor b pada Vektor a = ',jd2:5:2 );
writeln;
writeln;
writeln('Tekan ENTER untuk Kembali ke Menu sebelumnya!!');
End;

procedure Proyeksi_Vektor_Ortogonal;
Begin
ClrScr;
Writeln('Program Menghitung Proyeksi Vektor Ortogonal');
writeln;
writeln('=========================================');
Writeln('Inputkan Anggota Vektor a : ');
writeln;
begin
Write('Masukkan nilai a1= ');readln(a1);
Write('Masukkan nilai a2= ');readln(a2);
Write('Masukkan nilai a3= ');readln(a3);
end;
writeln;
writeln;
writeln('=========================================');
writeln('Inputkan Anggota Vektor b : ');
writeln;
begin
Write('Masukkan nilai b1= ');readln(b1);
Write('Masukkan nilai b2= ');readln(b2);
Write('Masukkan nilai b3= ');readln(b3);
end;
writeln;
writeln;
writeln('===============> JADI <================');
jd1a:= (((a1*b1)+(a2*b2)+(a3*b3)) / (sqr(b1)+sqr(b2)+sqr(b3)))*b1;
jd1b:= (((a1*b1)+(a2*b2)+(a3*b3)) / (sqr(b1)+sqr(b2)+sqr(b3)))*b2;
jd1c:= (((a1*b1)+(a2*b2)+(a3*b3)) / (sqr(b1)+sqr(b2)+sqr(b3)))*b3;
write('Proyeksi Vektor Ortogonal vektor a pada vektor b');
write(' = (',jd1a:5:0,',',jd1b:5:0,',',jd1c:5:0,')');
writeln;
jd2a:= (((a1*b1)+(a2*b2)+(a3*b3)) / (sqr(a1)+sqr(a2)+sqr(a3)))*a1;
jd2b:= (((a1*b1)+(a2*b2)+(a3*b3)) / (sqr(a1)+sqr(a2)+sqr(a3)))*a2;
jd2c:= (((a1*b1)+(a2*b2)+(a3*b3)) / (sqr(a1)+sqr(a2)+sqr(a3)))*a3;
write('Proyeksi Vektor Ortogonal Vektor b pada arah Vektor a ');
write(' = (',jd2a:5:0,',',jd2b:5:0,',',jd2c:5:0,')');
writeln;
writeln;
writeln('Tekan ENTER untuk Kembali ke Menu sebelumnya!!');
End;

procedure vektor;
Begin
ClrScr;
    writeln('         ===================== VEKTOR =========================');
    writeln('Vektor adalah sebuah besaran yang mempunyai ukuran besar dan arah.');
    writeln('Vektor di Ruang 3 merupakan vektor tiga dimensi yang beturut-turut');
    writeln('berada pada sumbu x, sumbu y, dan sumbu z.');
    writeln('Misalnya koordinat kartesius P(a1,a2,a3). Vektor posisi titik P adalah');
    writeln('ruas garis OP atau vektor p.');
    writeln('Jadi titik P dapat diketahui lokasinya sebagai berikut: ');
    writeln('     a1 satuan dari O searah ruas garis OX. ');
    writeln('     a2 satuan dari O searah ruas garis OY. ') ;
    writeln('     a3 satuan dari O searah ruas garis OZ. ');
    writeln;
    writeln;
    writeln('Tekan ENTER untuk Kembali ke Menu sebelumnya!!');
End;

procedure panjang;
Begin
ClrScr;
    writeln('      ===================== PANJANG VEKTOR ==========================');
    writeln('Panjang vektor adalah panjang dari ruas garis.');
    writeln('Panjang vektor dapat ditentukan dengan menggunakan Teorema Pythagoras.');
    writeln('Misalnya A adalah titik (x,y,z) sehingga panjang vektor');
    writeln('a = akar dari ((x*x) + (y*y) + (z*z)) ');
    writeln;
    writeln('Contoh Soal:');
    writeln('Diketahui elemen-elemen dari vektor a adalah ');
    writeln('a1: 1');
    writeln('a2: 2');
    writeln('a3: -2');
    writeln('Hitunglah Panjang Vektor a!');
    writeln;
    writeln('Penyelesaian:');
    writeln('Panjang Vektor a = akar dari ((a1*a1)+(a2*a2)+(a3*a3))');
    writeln('                 = akar dari ((1*1)+(2*2)+(-2*-2))');
    writeln('                 = akar dari (9)');
    writeln('                 = 3');
    writeln('Jadi Panjang Vektor a adalah 3');
    writeln;
    writeln('Tekan ENTER untuk Kembali ke Menu sebelumnya!!');
End;

procedure dot_product_alpha;
Begin
ClrScr;
    writeln('      ===================== DOT PRODUCT ==========================');
    writeln;
    writeln('Untuk menghitung dot product antara vektor a dan vektor b, ');
    writeln('jika diketahui sudut alpha yaitu');
    writeln('besar sudut lancip antara vektor a dan vektor b,');
    writeln('maka, rumusnya adalah panjang vektor a * panjang vektor b * cos alpha');
    writeln;
    writeln;
    writeln('>>>Contoh Soal<<<');
    writeln;
    writeln('Diketahui: ');
    writeln('Panjang vektor a: 4 ');
    writeln('Panjang Vektor b: 5 ');
    writeln('Sudut Alpha: 60 derajat');
    writeln;
    writeln('Penyelesaian:');
    writeln('Vektor a dot Vektor b = panjang vektor a * panjang vektor b * cos 60');
    writeln('                      = 4 * 5 * 1/2');
    writeln('                      = 10');
    writeln('Jadi Vektor a dot Vektor b adalah 10');
    writeln;
    writeln('Tekan ENTER untuk Kembali ke Menu sebelumnya!!');
end;

procedure dot_product_tanpa_alpha;
begin
ClrScr;
    writeln('      =============== DOT PRODUCT BENTUK KOMPONEN ====================');
    writeln;
    writeln('Untuk menghitung dot product antara vektor a dan vektor b');
    writeln('dalam bentuk komponen.');
    writeln('Misalnya vektor a(a1,a2,a3) dan vektor b(b1,b2,b3),');
    writeln('maka untuk menghitungnya menggunakan rumus (a1*b1)+(a2*b2)+(a3*b3)');
    writeln;
    writeln;
    writeln('>>>Contoh Soal<<<');
    writeln;
    writeln('Diketahui:');
    writeln('Vektor a:(1,2,3)');
    writeln('Vektor b:(2,3,4)');
    writeln;
    writeln('Penyelesaian:');
    writeln('Vektor a dot Vektor b = (1*2)+(2*3)+(3*4)');
    writeln('                      = 2+6+12');
    writeln('                      = 20');
    writeln('Jadi Vektor a dot Vektor b adalah 20');
    writeln;
    writeln('Tekan ENTER untuk Kembali ke Menu sebelumnya!!');
end;

procedure PSO;
Begin
ClrScr;
    writeln('      =============== PROYEKSI SKALAR ORTOGONAL ==================');
    writeln('Jika lambang vektor proyeksi dari suatu vektor ke vektor lainnya');
    writeln('ialah vektor c, maka:');
    writeln('1. panjang proyeksi skalar ortogonal vektor a ke vektor b adalah ');
    writeln('   vektor c = vektor a dot vektor b dibagi panjang vektor b.');
    writeln('2. panjang proyeksi skalar ortogonal vektor b ke vektor a adalah');
    writeln('   vektor c = vektor a dot vektor b dibagi panjang vektor a.');
    writeln;
    writeln('>>>>>>>>>>>>>>Contoh Soal<<<<<<<<<<<<<');
    writeln('>Diketahui: Panjang Vektor a = 10');
    writeln('            Panjang Vektor b = 5');
    writeln('            vektor a dot vektor b =30');
    writeln('Hitunglah Proyeksi Skalar Ortogonal vektor a pada vektor b, dan');
    writeln('Vektor b pada Vektor a!');
    writeln('>Penyelesaian:');
    writeln('Proyeksi Skalar Ortogonal Vektor a pada Vektor b');
    writeln('= (vektor a dot vektor b)/panjang vektor b = 30/5 = 6');
    writeln('Proyeksi Skalar Ortogonal Vektor b pada Vektor a');
    writeln('= (vektor a dot vektor b)/panjang vektor a = 30/10 = 3');
    writeln('Jadi Proyeksi Skalar Ortogonal:');
    writeln('- vektor a pada vektor b = 6');
    writeln('- vektor b pada vektor a = 3');
    writeln;
    writeln('Tekan ENTER untuk Kembali ke Menu sebelumnya!!');
end;

procedure PVO;
Begin
ClrScr;
    writeln('     ================ PROYEKSI VEKTOR ORTOGONAL ===================');
    writeln('Jika lambang vektor proyeksi dari suatu vektor ke vektor lainnya');
    writeln('ialah vektor c, maka:');
    writeln('1. proyeksi vektor ortogonal dari vektor a ke vektor b adalah ');
    writeln('   vektor c = (vektor a dot vektor b dibagi (panjang vektor b)^2)*vektor b.');
    writeln('2. proyeksi vektor ortogonal dari vektor b ke vektor a adalah');
    writeln('   vektor c = (vektor a dot vektor b dibagi (panjang vektor a)^2)*vektor a.');
    writeln('>>>>>>>>>>>>Contoh Soal<<<<<<<<<<<<<');
    writeln('>Diketahui: vektor a(4,10,6)');
    writeln('            vektor b (2,8,2)');
    writeln('            Panjang Vektor a = 12.33');
    writeln('            Panjang Vektor b = 8.49');
    writeln('            vektor a dot vektor b =100');
    writeln('Hitunglah Proyeksi Vektor Ortogonal vektor a pada vektor b, dan');
    writeln('Vektor b pada Vektor a!');
    writeln('>Penyelesaian:');
    writeln('Proyeksi Vektor Ortogonal Vektor a pada Vektor b');
    writeln('= ((vektor a dot vektor b)/(panjang vektor b)^2) vektor b');
    writeln('= ((100)/72.08)*(2,8,2) = (3,11,3)');
    writeln('Proyeksi Vektor Ortogonal Vektor b pada Vektor a');
    writeln('= ((vektor a dot vektor b)/(panjang vektor a)^2) vektor a');
    writeln('= ((100)/152.03)*(4,10,6) = (3,7,4)');
    writeln;
    writeln('Tekan ENTER untuk Kembali ke Menu sebelumnya!!');
end;

procedure soal_PV;
var
e,a1,a2,a3,j,vktr_a:integer;
begin
clrscr;
writeln('====================PROGRAM SOAL PANJANG VEKTOR=======================');
writeln('WARNING! JIKA JAWABAN ANDA SALAH ANDA TDK BISA LANJUT KE SOAL BERIKUTNYA!');
e:=0;
randomize;
repeat
a1:=random(10);
a2:=random(10);
a3:=random(10);
vktr_a:=random(10);
writeln;
writeln;
writeln('>>>>Banyak soal yang terselesaikan : ',e,' <<<<');
writeln;
writeln('Jika Vektor a:');
writeln('a1 : ',a1);
writeln('a2 : ',a2);
writeln('a3 : ',a3);
write('Maka Panjang Vektor A dikuadratkan = ');read(vktr_a);
j:=(a1*a1)+(a2*a2)+(a3*a3);
e:=e+1;
if vktr_a=j then
begin
writeln;
writeln('Jawaban Kamu benar..');
end
else
begin
writeln;
writeln('Jawaban Kamu Salah!! Yang benar adalah ',j);
end;
readln;
until vktr_a<>j;
end;

procedure soal_DPA;
var
a1,a2,a3,b1,b2,b3,e,i,j:integer;
begin
writeln('====================PROGRAM SOAL DOT PRODUCT=======================');
writeln('WARNING! JIKA JAWABAN ANDA SALAH ANDA TDK BISA LANJUT KE SOAL BERIKUTNYA!');
e:=0;
randomize;
repeat
a1:=random(10);
a2:=random(10);
a3:=random(10);
b1:=random(10);
b2:=random(10);
b3:=random(10);
writeln;
writeln;
writeln('>>>>Banyak soal yang terselesaikan : ',e,' <<<<');
writeln;
writeln('Jika Vektor a:');
writeln('a1 : ',a1);
writeln('a2 : ',a2);
writeln('a3 : ',a3);
writeln('Vektor b:');
writeln('b1 : ',b1);
writeln('b2 : ',b2);
writeln('b3 : ',b3);
writeln('dan cos 0');
write('Maka (vektor a . vektor b)  kuadrat = ');read(i);
j:=(((a1*a1)+(a2*a2)+(a3*a3))*((b1*b1)+(b2*b2)+(b3*b3)));
e:=e+1;
if i=j then
begin
writeln;
writeln('Jawaban Kamu Benar..');
end
else
begin
writeln;
writeln('Jawaban Kamu Salah! Yang benar adalah ',j);
end;
readln;
until i<>j;
end;

procedure soal_DPTA;
var
a1,a2,a3,b1,b2,b3,c,e,i:integer;
begin
clrscr;
writeln('====================PROGRAM SOAL DOT PRODUCT=======================');
writeln('WARNING! JIKA JAWABAN ANDA SALAH ANDA TDK BISA LANJUT KE SOAL BERIKUTNYA!');
e:=0;
randomize;
repeat
a1:=random(10);
a2:=random(10);
a3:=random(10);
b1:=random(10);
b2:=random(10);
b3:=random(10);
writeln;
writeln;
writeln('>>>>Banyak soal yang terselesaikan : ',e,' <<<<');
writeln;
writeln('Vektor a:');
writeln('a1 : ',a1);
writeln('a2 : ',a2);
writeln('a3 : ',a3);
writeln('Vektor b:');
writeln('b1 : ',b1);
writeln('b2 : ',b2);
writeln('b3 : ',b3);
c:=((a1*b1)+(a2*b2)+(a3*b3));
write('vektor a . vektor b = ');read(i);
e:=e+1;
if i=c then
begin
writeln;
writeln('Jawaban Kamu Benar..');
end
else
begin
writeln;
writeln('Jawaban Kamu Salah! Yang benar adalah ',c);
end;
readln;
until i<>c;
end;


procedure soal_PSO;
var
a1,a2,a3,b1,b2,b3,c,d,e,i,j,PSO1,PSO2:integer;
begin
writeln('================PROGRAM SOAL PROYEKSI SKALAR ORTOGONAL=====================');
writeln('WARNING! JIKA JAWABAN ANDA SALAH ANDA TDK BISA LANJUT KE SOAL BERIKUTNYA!');
e:=0;
randomize;
repeat
a1:=random(4);
a2:=random(4);
a3:=random(4);
b1:=random(4);
b2:=random(4);
b3:=random(4);
PSO1:=random(4);
PSO2:=random(4);
writeln;
writeln;
writeln('>>>>Banyak soal yang terselesaikan : ',e,' <<<<');
writeln;
writeln('Jika Vektor a');
writeln('a1 : ',a1);
writeln('a2 : ',a2);
writeln('a3 : ',a3);
writeln('Vektor b');
writeln('b1 : ',b1);
writeln('b2 : ',b2);
writeln('b3 : ',b3);
writeln('Proyeksi Skalar Ortogonal Vektor a pada Vektor b = ',PSO1);
writeln('Proyeksi Skalar Ortogonal Vektor b pada Vektor a = ',PSO2);
writeln;
write('Maka (vektor a.vektor b)^2 untuk PSO vektor a pd vektor b = ');read(i);
write('Maka (vektor a.vektor b)^2 untuk PSO vektor b pd vektor a = ');read(j);
c:=((PSO1*PSO1)*(((b1*b1)+(b2*b2)+(b3*b3))*((b1*b1)+(b2*b2)+(b3*b3))));
d:=((PSO2*PSO2)*(((a1*a1)+(a2*a2)+(a3*a3))*((a1*a1)+(a2*a2)+(a3*a3))));
e:=e+1;
if (i=c) and (j=d) then
begin
writeln;
writeln('Jawaban Kamu Benar..')
end
else if (i<>c) and (j=d) then
begin
writeln;
writeln('Jawaban Kamu Salah! Yang benar adalah ');
writeln('(vektor a.vektor b)^2 untuk PSO vektor a pd vektor b = ',c);
end
else if (i=c) and (j<>d) then
begin
writeln;
writeln('Jawaban Kamu Salah! Yang benar adalah ');
writeln('(vektor a.vektor b)^2 untuk PSO vektor b pd vektor a = ',d);
end
else
begin
writeln;
writeln('Jawaban Kamu Salah! Yang benar adalah ');
writeln('(vektor a.vektor b)^2 untuk PSO vektor a pd vektor b = ',c);
writeln('(vektor a.vektor b)^2 untuk PSO vektor b pd vektor a = ',d);
end;
readln;
until ((i<>c) and (j<>d)) or ((i=c) and (j<>d)) or ((i<>c) and (j=d));
end;


begin
aa:
  clrscr;
     writeln('======================M_E_N_U U_T_A_M_A=========================');
     writeln('{                         A.MATERI                             }');
     writeln('{                         B.COBA                               }');
     writeln('{                         C.LATIHAN                            }');
     write  ('                Silahkan pilih salah satu yaa??? ');
     readln(pill);

     begin
     if (pill= 'A') or (pill='a') then

    begin  
    repeat
      clrscr;
           writeln('                         ===PENGERTIAN===');
           writeln('=============================================================');
           writeln;
           writeln;
           writeln('           ******************************************');
           writeln('           *    1: Vektor                           *');
           writeln('           *    2: Panjang Vektor                   *');
           writeln('           *    3: Dot Product dengan Sudut Alpha   *');
           writeln('           *    4: Dot Product tanpa Sudut Alpha    *');
           writeln('           *    5: Proyeksi Skalar Ortogonal        *');
           writeln('           *    6: Proyeksi Vektor Ortogonal        *');
           writeln('           *    7: Back to Menu Utama               *');
           writeln('           *    8: EXIT                             *');
           writeln('           ******************************************');
           writeln;
           writeln;
           write('Masukkan pilihan Anda: ');readln(pil);
          
           clrscr;
          
           case pil of
                1: vektor;
                2: panjang;
                3: dot_product_alpha;
                4: dot_product_tanpa_alpha;
                5: PSO;
                6: PVO;
                7: goto aa;
                end;
           readln;                                                   
         
      until (pil=8);

      end
      else if (pill='B') or (pill='b') then
      begin
     repeat
           clrscr;
           writeln('                     ===MENU OPERASI===');
           writeln('=============================================================');
           writeln;
           writeln;
           writeln('           ******************************************');
           writeln('           *    1: Panjang Vektor                   *');
           writeln('           *    2: Dot Product dengan Sudut Alpha   *');
           writeln('           *    3: Dot Product Tanpa Sudut  Alpha   *');
           writeln('           *    4: Proyeksi Skalar Ortogonal        *');
           writeln('           *    5: Proyeksi Vektor Ortogonal        *');
           writeln('           *    6: Back to Menu Utama               *');
           writeln('           *    7: EXIT                             *');
           writeln('           ******************************************');
           writeln;
           writeln;
           write('Masukkan pilihan Anda: ');readln(pil);
           clrscr;
           case pil of
                1: Panjang_Vektor;
                2: Dot_Product_dengan_Sudut_Alpha;
                3: Dot_Product_Tanpa_Sudut;
                4: Proyeksi_Skalar_Ortogonal;
                5: Proyeksi_Vektor_Ortogonal;              
                6: goto aa;
          end;
           readln;
      until (pil=7);
     
      end
      else if (pill='C') or (pill='c') then
      begin
      repeat
           clrscr;
           writeln('                     ===LATIHAN SOAL===');
           writeln('=============================================================');
           writeln;
           writeln;
           writeln('           ******************************************');
           writeln('           *    1: Panjang Vektor                   *');
           writeln('           *    2: Dot Product dengan Sudut Alpha   *');
           writeln('           *    3: Dot Product Tanpa Sudut Alpha    *');
           writeln('           *    4: Proyeksi Skalar Ortogonal        *');
           writeln('           *    5: Back to Menu Utama               *');
           writeln('           *    6: EXIT                             *');
           writeln('           ******************************************');
           writeln;
           writeln;
           write('Masukkan pilihan Anda: ');readln(pil);
           clrscr;
           case pil of
                1: soal_PV;
                2: soal_DPA;
                3: soal_DPTA;
                4: soal_PSO;             
                5: goto aa;
          end;
           readln;
      until (pil=6);
end
else
begin
writeln;
write('Terjadi Kesalahan! Tekan ENTER untuk mengulang lagi!');
readln;
goto aa;
end;      
end;
end.