Program GerakLurusBerubahBeraturan

Program GerakLurusBerubahBeraturan;
Uses Crt;
procedure hitung(t,Vo,Vt : real);
var
x,a : real;
begin
ClrScr;
a:= (Vt-Vo)/t;
x:= Vo*t+0.5*a*sqr(t);
writeln(‘Perpindahan : ‘,x:4:2);
writeln(‘Percepatan : ‘,a:4:2);
end;
var
t,Vo,Vt:real;
begin
write(‘Masukkan nilai waktu (t) : ‘);
readln(t);
write(‘Masukkan nilai kecepatan awal (Vo) : ‘);
readln(Vo);
write(‘Masukkan nilai kecepatan pada waktu (Vt) : ‘);
readln(Vt);
hitung(t,Vo,Vt);
end.

Program MencariSalahSatuSisiSegitiga

Program MencariSalahSatuSisiSegitiga;
Uses Crt;
Procedure hitung(b,c,alpha:real; var a,L:real);
begin
ClrScr;
a:=sqrt(sqr(b)+sqr(c)-2*b*c*cos(alpha*3.14/180));
L:=0.5*b*c*sin(alpha*3.14/180);
writeln(‘Panjang sisi yang belum diketahui adalah : ‘,a:4:2);
writeln(’sedangkan luas segitiga sembarang adalah : ‘,L:4:2);
end;
var
b,c,alpha : real;
a,L : real;
begin
writeln(‘Program mencari panjang sisi segitiga’);
write(‘Masukkan panjang sisi pertama (b) : ‘);
readln(b);
write(‘Masukkan panjang sisi kedua (c) : ‘);
readln(c);
write(‘Masukkan nilai cos (alpha) : ‘);
readln(alpha);
hitung (b,c,alpha,a,L);
end.

Program GerakLurusBerubahBeraturan

Program GerakLurusBerubahBeraturan;
Uses Crt;
procedure hitung(t,Vo,Vt : real);
var
x,a : real;
begin
ClrScr;
a:= (Vt-Vo)/t;
x:= Vo*t+0.5*a*sqr(t);
writeln(‘Perpindahan : ‘,x:4:2);
writeln(‘Percepatan : ‘,a:4:2);
end;
var
t,Vo,Vt:real;
begin
write(‘Masukkan nilai waktu (t) : ‘);
readln(t);
write(‘Masukkan nilai kecepatan awal (Vo) : ‘);
readln(Vo);
write(‘Masukkan nilai kecepatan pada waktu (Vt) : ‘);
readln(Vt);
hitung(t,Vo,Vt);
end.