Program Perhitungan Luas dan Volume Metode Grafis dan Numeris pada Software Liberty Basic

clc

clear all:

disp('-----------program Perhitungan Luas dan Volume----------')

disp('====================Kharisma Srinarta===================')

disp('PILIH PERHITUNGAN')

disp('1.Luas')

disp('2.Volume')

Jenis=input('JENIS PERHITUNGAN >> ');

switch Jenis

    case 1

        disp('Perhitungan Luas')

        disp('Pilih Metode')

        disp('1.Numeric')

        disp('2.Grafis')

        cara=input('METODE >> ');

        switch cara

            case 1

                disp('Metode Numeric')

                x1=input('Koordinat X1=');

                y1=input('Koordinat Y1=');

                x2=input('Koordinat X2=');

                y2=input('Koordinat Y2=');

                x3=input('Koordinat X3=');

                y3=input('Koordinat Y3=');

                x4=input('Koordinat X4=');

                y4=input('Koordinat Y4=');

                La=1/2*(x1*y2+x2*y3+x3*y4+x4*y1-(y1*x2+y2*x3+y3*x4+y4*x1));

                disp(['Luas Area=' num2str(La) ' m^2'])

            case 2

                disp('Metode Grafis')

                a1=input('Sisi AB=');

                a2=input('Sisi BC=');

                a3=input('Sisi CD=');

                a4=input('Sisi DA=');

                a5=input('Sisi AC=');

                S1=(a1+a2+a5)/2;

                S2=(a3+a4+a5)/2;

                L1=(S1*(S1-a1)*(S1-a2)*(S1-a5))^(0.5);

                L2=(S2*(S2-a5)*(S2-a3)*(S2-a4))^(0.5);

                Lt=L1+L2;

                disp(['Luas Area Total=' num2str(Lt) ' m^2'])

               

            otherwise

                disp('Hasil Tidak Diketahui')

        end

    case 2

        disp('Metode Luas Penampang Rata-rata')

        a1=input('Luas Penampang 1=');

        a2=input('Luas Penampang 2=');

        JP=input('Jarak Antar Penampang=');

        V=0.5*JP*(a1+a2);

        disp(['Volume=' num2str(V) ' m^3'])

    otherwise

        disp('Hasil Tidak Diketahui')

       

end

disp('Lakukan Perhitungan Lagi?')

disp('1. Ya')

disp('2. Tidak')

bil=input('>> ');

switch bil

    case 1

        run Kharisma_21110117130045

    otherwise

        disp('===================Perhitungan Selesai==================')

        disp('----------------------Terima  Kasih---------------------')

        disp('#####################Have A Nice Day####################')

       

end

----------------------Program Perhitungan Luas dan Volume------------------

====================Kharisma Srinarta===================

PILIH PERHITUNGAN

1.Luas

2.Volume

JENIS PERHITUNGAN >> 1

Perhitungan Luas

Pilih Metode

1.Numeric

2.Grafis

METODE >> 1

Metode Numeric

Koordinat X1=120

Koordinat Y1=150

Koordinat X2=200

Koordinat Y2=120

Koordinat X3=300

Koordinat Y3=150

Koordinat X4=230

Koordinat Y4=220

Luas Area=9000 m^2

Lakukan Perhitungan Lagi?

1. Ya

2. Tidak

>> 1

---------------------Program Perhitungan Luas dan Volume-------------------

====================Kharisma Srinarta===================

PILIH PERHITUNGAN

1.Luas

2.Volume

JENIS PERHITUNGAN >> 1

Perhitungan Luas

Pilih Metode

1.Numeric

2.Grafis

METODE >> 2

Metode Grafis

Sisi AB=300

Sisi BC=400

Sisi CD=500

Sisi DA=450

Sisi AC=550

Luas Area Total=164612.8734 m^2

Lakukan Perhitungan Lagi?

1. Ya

2. Tidak

>> 1

----------------------Program Perhitungan Luas dan Volume------------------

====================Kharisma Srinarta===================

PILIH PERHITUNGAN

1.Luas

2.Volume

JENIS PERHITUNGAN >> 2

Metode Luas Penampang Rata-rata

Luas Penampang 1=200

Luas Penampang 2=300

Jarak Antar Penampang=50

Volume=12500 m^3

Lakukan Perhitungan Lagi?

1. Ya

2. Tidak

>>2

===================Perhitungan Selesai==================

------------------------------------Terima  Kasih---------------------------------

######################Have A Nice Day#####################

>>