jika ingin mendownload video ini silahkan klik  disni

 jika ingin mendownload laporan biologi hasil pengamatan akar dan batang 

silahkan klik  disni

jika inggin mendownload soal ulangan silahkan klik disini

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;