Program Informasi Penjualan Produk

#include"stdio.h"
#include"conio.h"
void main()
{
int i,kode[15],jumlah[15],jumdata=5;
char*produk;
float harga,total,disc,pembayaran;

printf("\nInput Data Penjualan");
for(i=0;i<jumdata;i++){
    printf("\nKode Produk :"); scanf("%d",&kode[i]);
    printf("\nJumlah Produk :"); scanf("%d",&jumlah[i]);
}
clrscr();
printf("\nInformasi Penjualan Produk");
printf("\n-------------------------------------------------------------------------------");
printf("\nNo Kode  Produk                  Harga   Jumlah    Total    Discount Pembayaran");
printf("\n-------------------------------------------------------------------------------");
for(i=0; i<jumdata; i++){
    if(kode[i]==1){
        produk="TV"; harga=2000000;
    }else if(kode[i]==2){
        produk="DVD"; harga=650000;
    }else if(kode[i]==3){
        produk="CD ROOM"; harga=450000;
    }
    total=harga*jumlah[i];
    if(total> 4000000)disc=0.1*total; else
    if(total< 4000000)disc=0;
    pembayaran=total-disc;
    gotoxy(1,6+i);printf( "%i   %d     %s  ",i+1,kode[i],produk);
    gotoxy(30,6+i);printf("%10.0f   %i   %10.0f%10.0f%10.0f"  ,harga,jumlah[i],total,disc,pembayaran);
    }
    printf("\n--------------------------------------------------------------------------------");
}

hasil printout

Soal Quiz No. 2

SOAL 2 : Buatlah program C untuk menampilkan output seperti dibawah ini :

Buatlah program untuk mencari harga photo copy  
 

#include"iostream.h"

#include"conio.h"

                void main()

{

float jp,disc=0;

clrscr() ;

cout<< "menghitung discount----------------------\n";

cout<<" masukan jumlah penjualan :";

cin>>jp;

if(jp>2500000);

disc=10 * jp ;

cout << " nilai discount yaitu :" << disc;

}

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Quiz Online Soal 1 Coba Selesaikan Kasus Berikut Ini

Coba Selesaikan Kasus Berikut Ini

Buatlah program untuk menampilkan hasil berikut dengan menggunakan perulangan : 

Input Nilai : 5

Hasil : 1 * 2 * 3 * 4 * 5 = 120

Jawab: 

----------------------------------------------------------------------------------------------------------------------


uses crt;
var
nilai : byte;
i,j : byte;
hasil : integer;
k: char;
begin
clrscr;
write('Input Nilai:');readln(nilai);
for i:= 1 to 5 do
hasil:=1*2*3*4*5;
k:='=';
write('Hasil:1*2*3*4*5',k,hasil );
readln;
end.





hasil akhir



Sekian dan Trima kasih.