flatshoes serba 165rb

annisa_shop (OLSHOP)

ready mocca 170rb

all PO 1 minggu 90rb

                          harga tas @170rb

harga baju cople @135rb

harga tas 3 fungsi bisa jinjing-ransel-cangklong@ 90rb

harga tas webe@435rb

harga baju ready hijau@ 85rb

blazer @ 115rb

tas taxo @ 170rb ready merah dan baby pink

tas webe @170rb

jersey grade thailand ori@ 135rb

sisa no.5 120rb

70rb

95rb

jaket cople uk cewe fit to L cowofit to XL

170 rb tas zarra

jaket chelsea 105rb

cardigan 80rb

sisa salem bahan ceruty @ 135rb

bahan babysilk sisa orange @ 145rb

bahan spandeks dingin dibadan @ sisa no 3 @ 135rb

tas zarra @ 170rb

jersey grade ori@176rb

jersey grade ori @176

ready coklat @ 90rb

170rb

170rb

170rb

170rb

Menghitung Volume Tabung

Menghitung Luas Layang-Layang

Rumus :
L= (BD x AC) : 2
atau
L= (d1 x d2) : 2

program menghitung_luas_layanglayang;
uses windos,wincrt;
var

d1,d2,L:real;
ch:char;
begin
clrscr;
write ('masukan panjang d1=  ');
readln(d1);
write ('masukan panjang d2= ');
readln(d2);
writeln;
L:=(d1*d2)/2;
writeln('luas layang-layang=',L:10:0,'cm2');
ch:=readkey;
end.

Menghitung Panjang Sisi miring Segitiga Siku-siku

Keterangan :

a = panjang sisi a

b = panjang sisi b

c = pamjang sisi miring c
Panjang sisi miring segitiga siku-siku (c) = sqrt [(axa) + (bxb)]

program menghitung_panjang_sisimiring_sikusiku;
uses windos,wincrt;
var
a,b,c:real;
ch:char;
begin
clrscr;
write('masukan nilai a: ');
readln(a);
write('masukan nilai b: ');
readln(b);
c:=sqrt((a*a)+(b*b));
writeln('panjang sisi miring=',c:10:2,'cm2');
ch:=readkey;
end.

Menghitung Luas Lingkaran

  Keterangan :

    r    = jari-jari lingkaran

    pi   = 3,14

    L   = luas lingkaran
    L   = pi x r x r

program menghitung_luas_lingkaran;

uses windos,wincrt;

var
L,r:real;
ch:char;

begin

clrscr;
write('masukan nilai r= ');
readln(r);
L:=pi*r*r;
writeln('menghitung luas lingkaran=',L:10:2,'cm2');
ch:=readkey;

end.

Menghitung volume kerucut

Keterangan:

r = jari-jari alas kerucut
t= tinggi kerucut
Luas selimut = π x r x s
Luas alas = π x r 2
Luas Permukaan kerucut = Luas alas + Luas Selimut
Luas Permukaan kerucut = πr2 + πrs = π r (r + s)
Volume Kerucut =1/3 x Luas alas x tinggi = 1/3 π r2 t

program menghitung_volume_kerucut;

uses windos,wincrt;

var

v,r,t:real;

ch:char;

begin

Clrscr;

write ('masukan nilai jari-jari lingkaran (r)=');

readln (r);

write ('masukan nilai tinggi (t)=');

readln (t);

v:=1/3*pi*(r*r)*t;

writeln ('volume kerucut=',v:20:2,'cm3');

ch:=readkey;

end.