Membuat Luas Persegi dengan Pascal nie Gwa kasih Script'a by Alfi_Haryadi

Posted: Rabu, 16 Maret 2011 by Alfi Haryadi in
2


begin
     clrscr;
    
     write ('Masukan sisi:');
     readln(s);
     writeln;
     L:=s*s;
     L:= L shl 2;
     writeln('Luas persegi adalah:',L);
     writeln;
     V:=s*s*s;
     V:= V shl 3;
     writeln('Volume peregi adalah:',V);

gotoxy(10,7); writeln('-------------------');
gotoxy(10,8); writeln('Nama : Alfi Haryadi');
gotoxy(10,9); writeln(' NIM  : 1015015077');
gotoxy(10,10); writeln('      FTIKOM B');
gotoxy(10,11); writeln('-------------------');
     readln;

2 komentar:

  1. klo rumus lingkaran gimana caranya ?????

  1. ini jo bangun datar semua'a gw kasih

    #include
    #include
    void main()
    {

    int pilihan;
    float Lsegitiga,Ksegitiga,Lpersegi,Kpersegi,Lpersegipanjang,Kpersegipanjang,Llingkaran,Klingkaran,Vkubus,LPkubus,Vbalok,LPbalok,Vbola,LPbola,Vlimassegiempat,LPlimassegiempat,Vtabung,LPtabung ;
    float a, t, s, p, l, r, phi,sAB,sBC,sCA;
    char ulang;
    do
    {
    clrscr();
    cout<<"(c) Created 2009 by dsuryanta.Inc"<>pilihan;
    switch (pilihan)
    {
    case 1 :
    cout<<"Menghitung Luas Segitiga"<>a;
    cout<<"Masukkan tinggi segitiga : ";cin>>t;
    cout<<"Masukkan sisi AB segitiga : ";cin>>sAB;
    cout<<"Masukkan sisi BC segitiga : ";cin>>sBC;
    cout<<"Masukkan sisi CA segitiga : ";cin>>sCA;
    Lsegitiga = 0.5*a*t;
    Ksegitiga = sAB+sBC+sCA;
    cout<<"Luas segitiga adalah : "<>s;
    Lpersegi = s*s;
    Kpersegi = 4*s;
    cout<<"Luas bujursangkar : "<>p;
    cout<<"Masukkan lebar : ";cin>>l;
    Lpersegipanjang = p*l;
    Kpersegipanjang = (p+l)*2;
    cout<<"Luas Persegipnjng: "<>r;
    phi = 3.14;
    Llingkaran = phi*r*r;
    Klingkaran = phi*(r+r);
    cout<<"Luas lingkaran adalah : "<>s;
    Vkubus = s*s*s;
    LPkubus = 6*s;
    cout<<"Volum kubus adalah : "<>p;
    cout<<"Masukkan lebar balok : ";cin>>l;
    cout<<"Masukkan tinggi balok : ";cin>>t;
    Vbalok = p*l*t;
    LPbalok = (2*p*l)+(2*p*t)+(2*l*t);
    cout<<"Volum balok adalah : "<>r;
    cout<<"Masukkan tinggi bola : ";cin>>t;
    phi = 3.14;
    Vbola = 4/3*phi*r*t*t*t;
    LPbola = 4*phi*r*r;
    cout<<"Volum bola adalah : "<>p;
    cout<<"Masukkan lebar limas segi empat : ";cin>>l;
    cout<<"Masukkan tinggi limas segi empat : ";cin>>t;
    Vlimassegiempat = (p*l*t)*1/3;
    LPlimassegiempat = ((p+l)*t)+(p*l);
    cout<<"Volum limas segi empat adalah : "<>r;
    cout<<"Masukkan tinggi tabung : ";cin>>t;
    phi = 3.14;
    Vtabung = phi*r*r*t;
    LPtabung = (2*phi*r)*(r*t);
    cout<<"Volum tabung adalah : "<>ulang;
    }while(ulang == 'y');
    }


السلام عليكم Assalammualaikum بِسْــــــــــــــــــــــمِ اﷲِارَّحْمَنِ ارَّحِي Cinta itu adalah pembodohan, jangan percaya tentang cinta . . . Karena cinta hanya dapat merusak saraf