Program Coba-Coba

USES WINCRT;

VAR a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,hasil:longint;

    pil:CHAR;

   

BEGIN

     writeln('Hai.......selamat menikmati');

     writeln('Program Akuntansi');

     writeln('        By : Tombels');

     writeln(' ');

     writeln(' ');

     repeat

     writeln('============================');

     writeln;

     writeln('1. Mencari Penjualan Bersih');

     writeln('2. Mencari pembelian bersih');

     writeln('3. Mencari Harga Pokok Penjualan');

     writeln('4. Mencari Laba kotor atau rugi');

     writeln('5. Mencari Laba bersih atau rugi');

     writeln('6. Keluar');

     writeln(' ');

     writeln(' ');

     writeln('pilihan');readln(pil);

     writeln(' ');

     writeln(' ');

     case pil of

     '1':begin

      clrscr;

               writeln('Penjualan Bersih');

               write('Penjualan = ');readln(a);

               write('beban angkut penjualan = ');readln(b);

               write('Potongan Harga = ');readln(c);

               hasil:=a-b-c;

               if(hasil<0) then writeln('Input angka tidak benar')

               else writeln('Penjualan bersih = ',hasil);

         end;

     '2':begin

      clrscr;

                writeln('Pembelian bersih');

                write('Pembelian = ');readln(d);

                write('Beban angkut pembelian = ');readln(e);

                write('Retur pembelian = ');readln(f);

                write('Potongan pembelian = ');readln(g);

                hasil:=d-e-f-g;

                if(hasil<0) then writeln('Input angka tidak benar')

                else writeln('Pembelian bersih = ',hasil);

        end;

     '3':begin

      clrscr;

              writeln('Harga pokok penjualan');

              write('Persediaan barang dagang awal = ');readln(h);

              write('Pembelian bersih = ');readln(i);

              write('Persediaan barang dagang akhir = ');readln(j);

              hasil:=h-i-j;

              writeln('Harga pokok penjualan ',hasil);

       end;

     '4':begin

      clrscr;

              writeln('Laba kotor atau rugi');

              write('Penjualan bersih = ');readln(k);

              write('HPP = ');readln(l);

              hasil:=k-l;

              if (hasil<0) then writeln('Rugi = ',hasil)else writeln('Laba = ',hasil);

       end;

     '5':begin

      clrscr;

              writeln('Laba kotor atau rugi');

              write('Penjualan bersih = ');readln(m);

              write('HPP = ');readln(n);

              write('Total beban = ');readln(o);

              hasil:=m-n-o;

              if (hasil<0) then writeln('Rugi = ',hasil)else writeln('Laba = ',hasil);

      end;

      '6':begin

      clrscr;

      writeln('Terima kasih dah pake Aplikasi By Tomi');

      end;

end;

until(pil='6');

end.