#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
Selasa, 25 Juni 2013
Minggu, 02 Juni 2013
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
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.
Langganan:
Postingan (Atom)