sistem ekonomi

Sistem Ekonomi
Pengertian Sistem ekonomi adalah suatu proses penerapan yang saling behubungan dan berinteraksi yang dikembangkan oleh masyarakat dengan ciri dan identitas tersendiri.

Ada 4 sistem dalam ekonomi, berikut adalah macam-macam sistem ekonomi :

• Sistem Ekonomi Tradisional
• Sistem Ekonomi Sosialis/Terpusat
• Sistem Ekonomi Bebas/Liberal
• Sistem Ekonomi Campuran
• Sistem Ekonomi Tradisional

Sistem ini memiliki tradisi aktivitas ekonomi yang dilakukan secara turun-temurun. Dan masyarakatnya tetap menjaga nilai budaya setempat, sehingga kegiatan perekonomiannya masih bergotong-royong dan kekeluargaan.
Adapun ciri-ciri dari sistem ekonomi tradisional antara lain adalah sebagai berikut :

1. Pembagian struktur kerja belum ada
2. Masih menggunakan tukar-menukar barang/barter
3. Sifat kekeluargaan tergolong tinggi
4. Proses produksinya tergantung pada alam,misalnya bertani, berladang, berkebun dan sebagainya
5. Alat untuk memproduksi sangat sederhana.
6. Sistem Ekonomi Sosialis/Terpusat

Sistem ekonomi terpusat yang disebut juga sistem ekonomi sosialis adalah suatu sistem ekonomi yang seluruh sumber daya dan pengolahannya direncanakan dan dikendalikan oleh pemerintah. Sistem ekonomi terpusat memiliki ciri-ciri sebagai berikut :

• Negara menguasai semua alat produksi
• Produksi dilakukan untuk kebutuhan masyarakat
• Kegiatan ekonomi direncanakan oleh negara dan diatur pemerintah secara terpusat
• Hak milik individu tidak diakui
• Pemerintah mengatur kegiatan produksi, distribusi, dan konsumsi
• Sistem Ekonomi Bebas/Liberal

Sistem ekonomi liberal yaitu sistem ekonomi di mana pengelolaan ekonomi diatur oleh kekuatan pasar (permintaan dan penawaran). Sistem ekonomi ini menghendaki adanya kebebasan individu dalam melakukan kegiatan ekonomi. Artinya, setiap individu diakui keberadaanya dan mereka bebas bersaing. Ciri-cirinya :

1. Harga barang ditentukan oleh pasar
2. Timbulnya persaingan bebas
3. Adanya pengakuan terhadap hak individu
4. Setiap individu bebas mengejar keuntungan
5. Modal memegang peranan sangat penting.
6. Sistem Ekonomi Campuran

Sistem ekonomi campuran adalah sistem ekonomi yang berusaha mengurangi kelemahan-kelemahan yang timbul dalam sistem ekonomi terpusat dan sistem ekonomi pasar. Ciri-ciri dari sistem ekonomi campuran :

1. Adanya campur tangan pemerintah dalam perekonomian
2. Adanya pihak swasta yang ikut berperan dalam kegiatan perekonomian
3. Sistem Ekonomi Indonesia

Flowchat Latihan Di Lab

Membuat Flowchat Dan Program Dari Latihan

USES CRT;
 Var
 Nbarang:string;
 jml jual,discount:integer;
hrg,Tharga,tpembayaran:longint;
 Begin
clrscr;
 write('Nama barang',);readln(N);
 write('harga barang',);readln(Hrg);
 write('jml jual',);readln(jml);
Tharga=hrg*jml jual
 tpembayaran=Tharga-discount
 if Thrg>2500000 then
 discount:=0.1 *Tharga
else discount:=0;
 writeln('harga:',harga);
writeln(tpembayaran:',Tharga);
 readln;
 end.

TUGAS MATA KULIAH ALGORITMA NO 6 hal.20

Tugas no 6 hal.20

uses crt;

var

                Nmahasiswa,Npm,kode,Pembayaran ke:string;

                Jurusan,Pawal,Jcicilan,Bcicilan:longint;

                Ukuliah,UKterbayar,SUkuliah:real;

                Lagi:char;

Begin

                Lagi:='Y'

                while upcase(lagi)='Y'do

                begin

                write(Nmahasiswa:');readln(nama);

                write('Npm:');readln(Npm);

                write('pembayaran ke:');readln(Pembayaran ke);

                write('kode:');readln(kode);

                if kode='SI'then

                Begin

                                jurusan:='sistem informasi';Pawal:=2100000;

                                Jcicilan:=7;Bcicilan:=300000;

                end

                else if kode='TI'then

                begin

                                Jurusan:='Teknik informatika';Pawal:=2500000;

                                Jcicilan:=7;Bcicilan:=300000;

                end

                else if kode='KA'then

                Begin

                                Jurusan:='Komputer akuntansi';Pawal:=1750000;

                                Jcicilan:=6;Bcicilan:=200000;

                end

                else if kode='MI'then

                Begin

                                Jurusan:='Manajemen informatika';Pawal:=1500000;

                                Jcicilan:=6;Bcicilan:=250000;

                end;

                writeln('Jurusan:=,Jurusan);

                writeln('Pawal:',Pawal);

                Writeln('Jcicilan:',Jcicilan);

                writeln(',Bcicilan:',Bcicilan);

                Ukuliah:=Pawal+(Jcicilan*Bcicilan);

                UKterbayar:=Pawal+(Pembayaran ke*Bcicilan);

                SUkuliah:=Ukuliah-UKterbayar;

                writeln('Ukuliah:',Ukuliah:8:0);

                writeln('UKterbayar:',UKterbayar:8:0);

                writeln(SUkuliah:',SUkuliah:8:0);

    

    write('ada produk lagi[Y/T]');readln(lagi);

                end;

end.
santi melinda sitohang NPM:1302062

TUGAS MATA KULIAH ALGORITMA no 4

Tugas no 4

uses crt;

var

Npelanggan: string[30];

     kd: string[3];

     Jpelanggan: string[15];

    Bbeban,Harga per m3,Jpemakaian:longint;

    Tharga,pajak,Ttagihan:real;

    lagi:char;

Begin

    lagi :='Y'

    While upcase (lagi)='y' do

     Begin

     Write('Npelanggan:');readln(nama);

      write('kode produk:');readln(kd);

     If kd='LO1' then

    Begin

         Jpelanggan:='pabrik';Bbeban:=50000;harga per m3:=2500;

    end

    else if kd='LO2' then

    Begin

         Jpelanggan:='Swalayan';Bbeban:=35000;harga per m3:=2000;

    end

    else if kd='LO3' then

    Begin

         Jpelanggan:='Toko';Bbeban:=25000;harga per m3:=1500;

    end

    else if kd='LO4' then

    Begin

         Jpelanggan:='Rumah';Bbeban:=15000;harga per m3:=750

    end;

    writeln('Jpelanggan:',Jpelanggan);

    writeln('Bbeban:',Bbeban);

    writeln('Harga per m3;',Harga per m3);

    write('Jpemakaian:');readln(jumlah);

    Tharga:=Harga per m3*Jpemakaian+Bbeban;

    Pajak:=0.1*Tharga;

    else

        Pajak:=0;

    Ttagihan:=Tharga+Pajak;

    writeln('Tharga:',total:8:0);

   writeln('pajak:',pajak:8:0);

   writeln('Ttagihan:',Ttagihan:8:0);

    write('ada produk lagi[Y/T]');readln(lagi)

   end;

end.
  santi melinda sitohang,NPM:1302062

belajar membuat pemrograman visual basic di mesran.blogspot

Buatlah program untuk menampilkan hasil ke listview untuk kasus Latihan Listview Perhitungan Penjualan Barang

Berikut Jawaban Program: 

-->

Setelah Design programnya,lalu  akan membuat Listing Programnya Seperti berikut:

Public Class Form1

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        Dim x, x1 As String

        x = Microsoft.VisualBasic.Left(Kode.Text, 2)

        x1 = Microsoft.VisualBasic.Right(Kode.Text, 3)

        Select Case x

            Case "TS" : merk.Text = "Toshiba"

            Case "VG" : merk.Text = "V-Gen"

        End Select

        Select Case x1

            Case "001" : Nama.Text = "Flashdisk 4 Gbyte"

            Case "002" : Nama.Text = "Flashdisk 2 Gbyte"

        End Select

        If x = "TS" And x1 = "001" Then

            Harga.Text = 105000

        ElseIf x = "TS" And x1 = "002" Then

            Harga.Text = 75000

        ElseIf x = "VG" And x1 = "001" Then

            Harga.Text = 90000

        ElseIf x = "VG" And x1 = "002" Then

            Harga.Text = 60000

        Else

            Harga.Text = 0

        End If

    End Sub

Private Sub Tot_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tot.TextChanged

        Tot.Text = Val(Harga.Text) * Val(jlh.Text)

    End Sub

    Private Sub jlh_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlh.KeyPress

        Dim x2 As Integer = Asc(e.KeyChar)

        If x2 = 13 Then

            Tot.Text = Val(Harga.Text) * Val(jlh.Text)

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BuatTabel()

    End Sub

    Sub BuatTabel()

        List.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)

        List.Columns.Add("Kode Barang", 180, HorizontalAlignment.Center)

        List.Columns.Add("Nama Barang", 180, HorizontalAlignment.Center)

        List.Columns.Add("Merk", 80, HorizontalAlignment.Center)

        List.Columns.Add("Harga", 80, HorizontalAlignment.Center)

        List.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)

        List.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)

        List.View = View.Details

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        IsiTabel()

    End Sub

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = Kode.Text

        lst.SubItems.Add(Nmr.Text)

        lst.SubItems.Add(Nama.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(jlh.Text)

        lst.SubItems.Add(Tot.Text)

        List.Items.Add(lst)

    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click

        Kode.Text = ""

        Nama.Text = ""

        Nmr.Text = ""

        Harga.Text = ""

        merk.Text = ""

        jlh.Text = ""

        Tot.Text = ""

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        List.Items.Clear()

    End Sub

    Private Sub Pil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pil.Click

        List.Items.Remove(List.SelectedItems(0))

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

End Class

Berikut ini hasil dari program tersebut: