Pemrograman C++ : Statement SWITCH

Statement   SWITCH   juga   berfungsi   sama   dengan   IF.   Perintah   SWITCH   sama dengan perintah CASE OF dalam PASCAL.

Sintaks:

switch (variabel) 

{ 

   case value1 : statement1;

     break;

   case value2 : statement2;

     break;

     .

     .

   Default : statement;

    break;

}

Pemrograman C++ : ARRAY

Array adalah kumpulan data yang bertipe sama yang menggunakan nama yangsama. Dengan menggunakan array, sejumlah variabel dapat memakai nama yangsama.   Antara   satu   variabel   dengan   variabel   lain   di   dalam   array   dibedakan berdasarkan nomor elemen (subscript).

Contoh 1. Penggunaan array dalam C++:

Program di bawah ini untuk membaca data kemudian menampilkannya.

#include<iostream.h>

#include<conio.h>

void main()

{

int data[10];

int elemen;

clrscr();

// entri 10 data

// array dengan 10 elemen bertipe integer

 

}

for (elemen=0;elemen <= 9;elemen++)

{

cout << “Data ke – “ << elemen << “: “;

cin >> data[elemen];

}

// tampilkan data setelah entri

for (elemen=0;elemen <= 9;elemen++)

{

cout << “Data ke – “ << elemen << “: “ << data[elemen];

}

 Contoh 2. Program untuk menampilkan data array dari hasil inisialisasi:

#include<iostream.h>

#include<conio.h>

void main()

{

int data[5] = {4, 1, 0, -9, 8};

int elemen;

clrscr();

// tampilkan data

for (elemen=0;elemen <= 4;elemen++)

{

cout << “Data ke – “ << elemen << “: “ << data[elemen];

}

}

Pemrograman C++ : STATEMENT IF

Seperti halnya Pascal, perintah IF dalam C++ juga digunakan untuk menyatakan

pernyataan kondisional (bersyarat).

Sintaks sederhana IF adalah

if (kondisi)

statement;

Statement   pada   sintaks   di   atas   akan   dilakukan   jika   kondisinya   bernilai   TRUE

(tidak sama dengan nol).

Apabila statement yang akan dilakukan lebih dari satu, maka sintaksnya menjadi

if (kondisi)

{

statement1;

statement2;

.

.

}

Contoh   sederhana   penggunaan   IF   adalah   untuk   menentukan   boleh   tidaknya

seseorang melihat film bioskop. Seseorang diperbolehkan menonton jika usianya

17 tahun ke atas. Berikut ini program C++ nya:

#include <iostream.h>

#include <conio.h>

void main()

{

int usia;

clrscr();

cout << “Berapa usia Anda : “;

cin >> usia;

if (usia < 17)

cout << “Anda tidak boleh menonton bioskop”;

}

Statement IF juga dapat ditambahkan ELSE sebagai konsekuensi alternatif jika

kondisi tidak dipenuhi (FALSE). Sintaksnya:

Mencari Gaji Karyawan Dengan Pascal

uses crt;

var

 nopeg,nama : array [1..10] of string;

 gol,JJL : array [1..10] of integer;

 Lembur_jam, gapok, tunjangan: array [1..10] of longint;

 UangLembur, gaji_bersih : array [1..10] of real;

 i, p : integer;

begin

 clrscr;

 write('masukkan jumlah pegawai: '); readln(p);

 writeln('-----------------------------------------------------------');

 for i:= 1 to p do

 begin

 write('masukkan nomer pegawai[',i,']: '); readln(nopeg[i]);

 write('masukkan nama pegawai[',i,']: '); readln(nama[i]);

 write('masukkan jumlah jam lembur[',i,']: '); readln(JJL[i]);

 write('masukkan golongan[',i,']: '); readln(gol[i]);

 if(gol[i]=1) then

  begin

   gapok[i] := 100000;

   tunjangan[i]:= 50000;

   Lembur_jam[i]:= 3500;

  end

 else if(gol[i]=2) then

  begin

   gapok[i]:= 200000;

   tunjangan[i] := 100000;

   lembur_jam[i] := 4500;

  end

 else if(gol[i]=3) then

  begin

   gapok[i]:= 350000;

   tunjangan[i] := 200000;

   lembur_jam[i] := 6000;

  end

 else if(gol[i]=4) then

  begin

   gapok[i]:= 500000;

   tunjangan[i] := 350000;

   lembur_jam[i] := 0;

  end

 else

  begin

   write('masukkan gaji pokok[',i,']: '); readln(gapok[i]);

   write('masukkan tunjangan[',i,']: '); readln(tunjangan[i]);

   write('masukkan Uang lembur per jam[',i,']: '); readln(lembur_jam[i]);

  end;

Contoh For Bersarang Dengan Pascal

uses crt;

var i,y, x :byte;

begin

clrscr;

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

writeln('||                                 for bersarang                             ||');

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

x:=9;

     for i:=9 downto 1 do

     begin

     write(' ':x);

     for y:=9 downto i do

     write('*' :2);

     writeln;

     x:=x-1;

     end;

      x:=2;

      for i:= 1 to 8 do

      begin

      write(' ':x);

      for y:=8 downto i do

      write('*':2);

      writeln;

      x:=x+1;

      end;

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

readln;

end.

Hasil  :

Review Tentang Mesran[ dot ]Net

Dalam dunia informasi sekarang ini banyak sekali program-program yang dibuat untuk mempermudah pekerjaan seorang user. kali ini admin ingin berbagi tentang Website yang menyediakan pembelajaran tentang berbagai mcam bahasa Pemrograman seperti VB, Vb.Net, Pascal, C++.

    Nah langsung saja ini dia alamatnya mesran.blogspot.com  dan  di mesran.net. Dalam situs itu nanti anda akan mendapatkan banyak ilmu yang berharga khususnya bagi anda yang hobi dengan dunia informasi, dan pastinya mudah untuk dipelajari karena situs tersebut berasal dari orang yang terpercaya yang memang ahli di bidang tersebut,  Di dalam situs itu kita juga bisa mendownload program, ebook dan software.

Latihan Listview Perhitungan Penjualan

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CbKode.Items.Add("TS001")
        CbKode.Items.Add("TS002")
        CbKode.Items.Add("VG001")
        CbKode.Items.Add("VG002")

        Call table()
    End Sub
    Sub table()
        LV.Columns.Add("No.Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 120, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub

    Private Sub CbKode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbKode.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(CbKode.Text, 2)
        If x = "TS" Then
            TxtMerk.Text = "Toshiba"
        ElseIf x = "VG" Then
            TxtMerk.Text = "V-Gen"
        End If
        x = Microsoft.VisualBasic.Right(CbKode.Text, 3)
        If x = "001" Then
            TxtNama.Text = "Flashdisk 4GB"
        ElseIf x = "002" Then
            TxtNama.Text = "Flashdisk 2GB"
        End If
        If CbKode.Text = "TS001" Then
            TxtHarga.Text = 105000
        ElseIf CbKode.Text = "TS002" Then
            TxtHarga.Text = 75000
        ElseIf CbKode.Text = "VG001" Then
            TxtHarga.Text = 90000
        ElseIf CbKode.Text = "VG002" Then
            TxtHarga.Text = 60000
        End If
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        Dim simpan As New ListViewItem
        simpan.Text = TxtNo.Text
        simpan.SubItems.Add(CbKode.Text)
        simpan.SubItems.Add(TxtNama.Text)
        simpan.SubItems.Add(TxtMerk.Text)
        simpan.SubItems.Add(TxtHarga.Text)
        simpan.SubItems.Add(TxtJumlah.Text)
        simpan.SubItems.Add(TxtTotal.Text)
        LV.Items.Add(simpan)

        BtnBersih_Click(sender, e)
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        TxtNo.Text = ""
        CbKode.Text = ""
        TxtNama.Text = ""
        TxtMerk.Text = ""
        TxtHarga.Text = ""
        TxtJumlah.Text = ""
        TxtTotal.Text = ""
    End Sub

    Private Sub BtnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemua.Click
        LV.Items.Clear()
    End Sub

    Private Sub BtnHapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusPilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub TxtJumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtJumlah.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TxtTotal.Text = Val(TxtJumlah.Text) * Val(TxtHarga.Text)
        End If
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Me.Close()
    End Sub
End Class

Nama : Erma Novida

NPM : 13110561

Kelas : TIM-1310