ketentuan:
Buatlah Program C++ untuk menghitung gaji.
Gaji didapat dari gaji pokok + tunjangan keluarga.
Gaji pokok didapat berdasarkan Golongan.
golongan 1 : 1200000 , golongan 2 : 1500000 , golongan 3 : 2100000;
Tunjangan keluarga diberikan pada masing-masing anak sebesar 10% dari gaji pokoknya , dan maksimal diberikan kepada 3 anak.
case program menghitung gaji berdasarkan golongan
Program :
#include <conio.h>
#include <iostream.h>
main(){
int golongan;
int jumlah_anak, gaji_pokok, tjg_klg, total_gaji;
cout<<" Program Menghitung Gaji"<<endl;
cout<<"[1] Golongan 1 = gaji pokok 1200000"<<endl;
cout<<"[2] Golongan 2 = gaji pokok 1500000"<<endl;
cout<<"[3] Golongan 3 = gaji pokok 2100000"<<endl;
cout<<" Masukkan golongan karyawan :";cin>>golongan;
cout<<"Masukkan jml anak :" ;cin>>jumlah_anak;
switch(golongan){
case 1:
gaji_pokok = 1200000;
break;
case 2:
gaji_pokok = 1500000;
break;
case 3:
gaji_pokok = 2100000;
break;
default:
gaji_pokok = 2100000;
}
if(jumlah_anak <= 3) {
tjg_klg = 0.1 * jumlah_anak * gaji_pokok;
}
else{
tjg_klg = 0.1 * 3 * gaji_pokok;
}
total_gaji = gaji_pokok + tjg_klg;
cout<<" maka total gaji adalah (setelah ditambah tunjangan keluarga) = "<<total_gaji;
getch();
}
Tampilan:
Kamis, 30 April 2015
Program Visual Basic Net Menghitung Total Nilai Penjualan Pada Isi Listview Written By ernida,30 april 2015
Program Visual Basic Net Menghitung Total Nilai Penjualan Pada Isi Listview
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 1 To 5
Kode.Items.Add("P-00" & i)
Jumlah.Items.Add(i)
Next
With LV
.Columns.Add("Kode", 50, HorizontalAlignment.Center)
.Columns.Add("Nama", 250, HorizontalAlignment.Left)
.Columns.Add("Harga", 50, HorizontalAlignment.Right)
.Columns.Add("Jumlah", 50, HorizontalAlignment.Center)
.Columns.Add("Total Harga", 100, HorizontalAlignment.Right)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
Select Case Kode.Text
Case "P-001"
Nama.Text = "Televisi Sony 21 Inchi"
Harga.Text = 2100000
Case "P-002"
Nama.Text = "Televisi Sony 14 Inchi"
Harga.Text = 1900000
Case "P-003"
Nama.Text = "Televisi Sony 29 Inchi"
Harga.Text = 2900000
Case "P-004"
Nama.Text = "Televisi Sony 32 Inchi"
Harga.Text = 3500000
Case "P-005"
Nama.Text = "Televisi Sony 40 Inchi"
Harga.Text = 4500000
Case Else
Nama.Text = ""
Harga.Text = 0
End Select
End Sub
Private Sub Jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.SelectedIndexChanged
Total.Text = Harga.Text * Jumlah.Text
End Sub
Private Sub BtnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsi.Click
Dim xTP As Double = 0
Dim lst As New ListViewItem
lst.Text = Kode.Text
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Harga.Text)
lst.SubItems.Add(Jumlah.Text)
lst.SubItems.Add(Total.Text)
LV.Items.Add(lst)
For i = 0 To LV.Items.Count - 1
xTP = xTP + LV.Items(i).SubItems(4).Text
Next
TotalPenjualan.Text = xTP
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
End Class
Hasil Program Visual Basic Net Menghitung Total Nilai Penjualan Pada Isi Listview.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 1 To 5
Kode.Items.Add("P-00" & i)
Jumlah.Items.Add(i)
Next
With LV
.Columns.Add("Kode", 50, HorizontalAlignment.Center)
.Columns.Add("Nama", 250, HorizontalAlignment.Left)
.Columns.Add("Harga", 50, HorizontalAlignment.Right)
.Columns.Add("Jumlah", 50, HorizontalAlignment.Center)
.Columns.Add("Total Harga", 100, HorizontalAlignment.Right)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
Select Case Kode.Text
Case "P-001"
Nama.Text = "Televisi Sony 21 Inchi"
Harga.Text = 2100000
Case "P-002"
Nama.Text = "Televisi Sony 14 Inchi"
Harga.Text = 1900000
Case "P-003"
Nama.Text = "Televisi Sony 29 Inchi"
Harga.Text = 2900000
Case "P-004"
Nama.Text = "Televisi Sony 32 Inchi"
Harga.Text = 3500000
Case "P-005"
Nama.Text = "Televisi Sony 40 Inchi"
Harga.Text = 4500000
Case Else
Nama.Text = ""
Harga.Text = 0
End Select
End Sub
Private Sub Jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.SelectedIndexChanged
Total.Text = Harga.Text * Jumlah.Text
End Sub
Private Sub BtnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsi.Click
Dim xTP As Double = 0
Dim lst As New ListViewItem
lst.Text = Kode.Text
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Harga.Text)
lst.SubItems.Add(Jumlah.Text)
lst.SubItems.Add(Total.Text)
LV.Items.Add(lst)
For i = 0 To LV.Items.Count - 1
xTP = xTP + LV.Items(i).SubItems(4).Text
Next
TotalPenjualan.Text = xTP
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
End Class
Hasil Program Visual Basic Net Menghitung Total Nilai Penjualan Pada Isi Listview.
Contoh Latihan Bahasa C++ untuk Program Penjualan Produk Written By ernida ,30 april 2015
Adapun program ini membahas pemakaian if() jamak
#include <iostream.h>
#include <conio.h>
#include <string.h>
void main()
{
char kd ;
char nama [25] = ”” ;
char satuan [10] = ”” ;
int jumlah=0 ;
float harga=0, total=0 ;
clrscr() ;
cout << “Input Data Barang CV. MESRAN IT ” << endl ;
cout << “———————————————————-” << endl ;
cout << “Input Kode Barang [A,B,C] :” ; cin >> kd ;
if (kd==’A’ || kd==’a’) {
strcat( nama, “TV. Sony 21\” ” ) ;
strcat( satuan , “Unit” ) ;
harga = 1500000 ;
} else if (kd==’B’ || kd==’b’) {
strcat( nama , “DVD Sony” ) ;
strcat( satuan , “Unit” ) ;
harga = 1000000 ;
} else if (kd==’C’ || kd==’c’) {
strcat( nama , “Tape Compo Sony” );
strcat( satuan , “Unit” ) ;
harga = 750000 ;
} else {
strcat( nama , “–” );
strcat( satuan , “–” ) ;
harga = 0 ;
}
cout << “Input Jumlah :” ; cin >> jumlah ;
total = jumlah * harga ;
cout << “Nama Barang : “ << nama << endl ;
cout << “Satuan : “ << satuan << endl;
cout << “Harga : “ << harga << endl ;
cout << “Jumlah : “ << jumlah << endl;
cout << “Total Harga : “ << total << endl ;
cout << “————————————————————” << endl ;
}
Penjelasan :
include “iostream.h” digunakan karna kita menggunakan cout << dan cin >>
Perintah cout<< –> untuk menampilkan
Perintah cin>> –> untuk menginputkan
Perintah endl –> (end of line) untuk pindah ke baris selanjutnya
#include <iostream.h>
#include <conio.h>
#include <string.h>
void main()
{
char kd ;
char nama [25] = ”” ;
char satuan [10] = ”” ;
int jumlah=0 ;
float harga=0, total=0 ;
clrscr() ;
cout << “Input Data Barang CV. MESRAN IT ” << endl ;
cout << “———————————————————-” << endl ;
cout << “Input Kode Barang [A,B,C] :” ; cin >> kd ;
if (kd==’A’ || kd==’a’) {
strcat( nama, “TV. Sony 21\” ” ) ;
strcat( satuan , “Unit” ) ;
harga = 1500000 ;
} else if (kd==’B’ || kd==’b’) {
strcat( nama , “DVD Sony” ) ;
strcat( satuan , “Unit” ) ;
harga = 1000000 ;
} else if (kd==’C’ || kd==’c’) {
strcat( nama , “Tape Compo Sony” );
strcat( satuan , “Unit” ) ;
harga = 750000 ;
} else {
strcat( nama , “–” );
strcat( satuan , “–” ) ;
harga = 0 ;
}
cout << “Input Jumlah :” ; cin >> jumlah ;
total = jumlah * harga ;
cout << “Nama Barang : “ << nama << endl ;
cout << “Satuan : “ << satuan << endl;
cout << “Harga : “ << harga << endl ;
cout << “Jumlah : “ << jumlah << endl;
cout << “Total Harga : “ << total << endl ;
cout << “————————————————————” << endl ;
}
Penjelasan :
include “iostream.h” digunakan karna kita menggunakan cout << dan cin >>
Perintah cout<< –> untuk menampilkan
Perintah cin>> –> untuk menginputkan
Perintah endl –> (end of line) untuk pindah ke baris selanjutnya
MENGHITUNG NILAI SEMESTER MENGGUNAKAN PASCAL
Program pascal (menghitung nilai semester mahasiswa)
var
nabs,nt,uts,uas,nakhir:real;
npm,nm,prostudi,mk,grd,ket:string[25];
grade,smtr:char;
begin
writeln(' Nilai Akhir Semester Mahasisiwa UPB ');
writeln('======================================');
write ('Nama Mahasiswa :');readln(nm);
write ('NPM :');readln(npm);
write ('Program Studi :');readln(prostudi);
write ('Semester :');readln(smtr);
write ('Mata Kuliah :');readln(mk);
write ('masukan Nilai absen :');readln(nabs);
write ('masukan Nilai Tugas :');readln(nt);
write ('masukan Nilai UTS :');readln(uts);
write ('masukan Nilai UAS :');readln(uas);
nakhir:=(0.15*nabs)+(0.15*nt)+(0.35*uts)+(0.4*uas);
if (nakhir >= 80 ) and (nakhir <= 99.99) then
grade := 'A'
else if (nakhir >= 70) and (nakhir <= 79.99) then
grade := 'B'
else if (nakhir >= 60) and (nakhir <= 69.99) then
grade := 'C'
else if (nakhir >= 50) and (nakhir <= 59.99) then
grade := 'D'
else if (nakhir >= 40) and (nakhir <= 49.99) then
grade := 'E'
else if (nakhir >= 30) and (nakhir <= 0) then
grade := 'F';
case grade of
'A' : ket := 'Lulus Sangat Memuaskan';
'B' : ket := 'Lulus Dengan Baik';
'C' : ket := 'Lulus Dengan Cukup';
'D' : ket := 'Gagal';
'E' : ket := 'Terkapar';
'F' : ket := 'Ke laut ajah';
end;
Langganan:
Komentar (Atom)