Beauty and The Pinky

Senin, 17 Juni 2013

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

Tugas Konsep Pemrograman

uses CRT;

Var

kode : byte;

harga,jumlah : longint;

th : longint;

nama : string;

begin

clrscr;

Writeln('Inputkan Kode Penjualan');

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

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

case kode of

1 : Begin

clrscr;

nama:='Televisi';

Writeln('Nama:',nama);

harga:=1750000;

writeln('Harga:',harga);

write('Jumlah Beli:');readln(jumlah);

th :=harga*jumlah;

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

writeln('Total Harga:',th);

end;

2 : Begin

clrscr;

nama:='DVD';

writeln('Nama:',nama);

harga:=650000;

writeln('Harga:',harga);

write('Jumlah Beli:');readln(jumlah);

th:= jumlah*harga;

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

writeln('Total Harga:',th);

end;

3 : Begin

clrscr;

nama:='CD ROOM';

writeln('Nama:',nama);

harga:=450000;

writeln('Harga:',harga);

write('Jumlah Beli:');readln(jumlah);

th := jumlah*harga;

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

writeln('Total Harga:',th);

end;

readln;

end.

Jika anda sudah sesuai mengetikkan script diatas pada Aplikasi Turbo Pascal anda, kemudian tekan CTRL+F9, maka akan muncul tampilan gambar dibawah ini,

Namun jika belum tampil ataupun gagal, silahkan periksa kembali letak kesalahan anda.

Untuk memulai langkah selanjutnya, anda diberikan 3 pilihan untuk menginput kode produknya yaitu 1,2, dan 3. contoh ketikkan angka 1, maka akan tampil gambar seperti dibawah ini.