Aprilianad65's punya aku

Program mencari jarak dan percepatan.

aprilianad65 — Wed, 27 Feb 2008 06:11:23 +0000

program mencarijarakpadaGLBB;
uses crt;
procedure hitung(V0,t,Vt : real);
var
s,x,a:real;
begin
s:=Vt*t;
x:=V0*t+1/2*a*sqr(t);
a:=Vt-V0/t;
writeln(‘jarak/s=’, s:3:2);

writeln(‘percepata/a=’,a:4:2);
end;
var
V,V0,t,Vt:real;
s,x,a:real;
begin
clrscr;
writeln(‘mencari jarak pada GLBB’);

write(‘nilai V0 ?’);
readln(V0);
write(‘nilai t ?’);
readln(t);
write(‘masukan nilai Vt :’);
readln(Vt);

hitung(V0,t,Vt);
end.

Program mencari sisi segitiga.

aprilianad65 — Wed, 27 Feb 2008 06:08:23 +0000

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(‘panjangsalah satu sisi segitiga yang belum diketahui adalah =’,a);
writeln(‘sedangkan luas segitiga tidak sama sisi adalah =’,l);
end;
var
b,c,alpha:real;
a,l:real;
lagi:char;
begin
lagi :=’y';
while lagi =’y’ do
begin
writeln(‘program mencari panjang sisi segitiga’);
write(‘masukan sisi pertama (b):’);
readln(b);
write(‘masukan panjang sisi kedua (c):’);
readln(c);
write(‘masukan nilai alpha :’);
readln(alpha);
hitung(b,c,alpha,a,l);
writeln;
write(‘apakah anda mau menghitung lagi (y/t)’);
readln(lagi);
end;
end.

Program Menghitung Volume Tabung

aprilianad65 — Tue, 11 Dec 2007 18:05:22 +0000

Program MenghitungVolumeTabung;

Procedure Hitung(r,t :real);
Var
v:real;
Begin
v:=3.14*r*r*t;
Writeln(‘volume tabung v= ‘,v:3:4);
End;
Var
r,t:real;
Begin
Write(‘Masukkan nilai r?’);
Readln(r);
Write(‘Masukan nilai t?’);
Readln(t);
Hitung(r,t);
End.