Pemrograman Sistem Basis Data ( Oracle )

Create table barang (
KODE_BARANG char(6),
NAMA_BARANG varchar2(25),
SATUAN_BARANG varchar2(20),
STOK_BARANG number(4),
Constraint pk_barang primary key (KODE_BARANG)
);

Create table supplier (
KODE_SUPPLIER char(5),
NAMA_SUPPLIER varchar2(30),
ALAMAT_SUPPLIER varchar2(30),
KOTA_SUPPLIER varchar2(15),
TELEPON_SUPPLIER varchar2(15),
Constraint pk_supplier primary key (KODE_SUPPLIER)
);

Create table customer (
KODE_CUSTOMER char(6),
NAMA_CUSTOMER varchar2(30),
ALAMAT_CUSTOMER varchar2(30),
KOTA_CUSTOMER varchar2(15),
TELEPON_CUSTOMER varchar2(15),
Constraint pk_customer primary key (KODE_CUSTOMER)
);

Create table pasok (
KODE_PASOK char(10),
KODE_BARANG char(6),
KODE_SUPPLIER char(5),
TANGGAL_PASOK date,
JUMLAH_PASOK number(4),

Tugas kuliah - Pemrograman Sistem Basis Data ( Oracle )

1.) Tampilkan nomor pegawai, nama, pekerjaan,  dan tanggal mulai bekerja untuk tiap pegawai.
Jawab :
Select ‘nomor_pegawai’, ‘nama’, ‘pekerjaan’, ‘ tanggal_mulai_bekerja’ from pegawai;

2.) Tampilkan semua kolom dari table EMP. Semua kolom digabung jadi satu dengan tanda koma sebagai pemisah, kemudian  diberi judul “ OUTPUT”.
Jawab :
SELECT EMP (pegawai.nomor_pegawai,”,”, pegawai.nama, ”,” pegawai.pekerjaan, ”,” pegawai.tanggal_mulai_bekerja) As OUTPUT FROM pegawai;

3.) Tampilkan nama dari semua pegawai yang memiliki nama yang mengandug karakter’A’ pada huruf ketiga.
Jawab :
Select `Nama`,char_length(Nama) AS panjang from pegawai;
   WHERE `Nama` LIKE 'A%';
             
4.) Tampilkan nama, gaji , dan komisi dari semua pegawai yang memiliki komisi ( kolom komisi tidak sama dengan NULL). Urutkan berdasarkan gaji dan komisi, dengan urutan menurun.
Jawab :
Select pegawai.nama, pegawai.gaji, pegawai.komisi from pegawai where komisi <> 0 and gaji <> 0 order by gaji;

5.) Tampilkan nama, gaji, dan komisi dari semua pegawai yang memiliki jumlah komisi lebih besar dari jumlah gaji setelah dinaikan 10%.
Jawab :
Select pegawai.`Nama`, pegawai.`Gaji`, pegawai.`Komisi` from pegawai where komisi >= (0.1*gaji);

6.) Tampilkan nomor pegawai, nama, gaji dan gaji setelah dinaikan 15%
Jawab :

Membuat Program Data Structure STACK , dengan Turbo C ( Bahasa C )

Kali ini saya akan berbagi ilmu tentang Bahasa C, dengan membuat program menggunakan software Turbo C, software Turbo C merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program.
Kali ini saya akan berbagi Program Data Structure STACK, dan berikut coding Program Data Structure STACK :

#include <stdio.h>
#include <conio.h>

//deklarasi 'STACK' dengan struct dan array
typedef struct STACK
{
    int data[5];
    int atas;
};
//deklarasi variabel 'tumpuk' dari struct
STACK tumpuk;
void main()
{
    clrscr();
    int pilihan,baru,i;
    //inisialisasi awal
    tumpuk.atas=-1;
    do
    {
    clrscr();
    printf("1.Push Data\n");
    printf("2.Pop Data\n");
    printf("3.Print Data\n");
    printf("\nPilihan = ");
    scanf("%i",&pilihan);
    switch(pilihan)
    {
case 1:
{
    if(tumpuk.atas==5-1)
    {
    printf("Tumpukan penuh");
    getch();
    }
    else
    {
    printf("Data yang akan di-push = ");
    scanf("%d",&baru);
    tumpuk.atas++;
    tumpuk.data[tumpuk.atas]=baru;
    }
    break;
}

Membuat Program Linked List Data Structure, dengan Turbo C ( Bahasa C )

Kali ini saya akan berbagi ilmu tentang Bahasa C, dengan membuat program menggunakan software Turbo C, software Turbo C merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program.

Kali ini saya akan berbagi Program Linked List Data Structure,  dan berikut coding Program Linked List Data Structure :

#include <stdio.h>
typedef struct Tnode
{
int value;
Tnode *next;
Tnode *back;
};
Tnode *baru, *bantu, *head, *tail;
void tambah(int value)
{
baru = new Tnode;
baru->next = baru;
baru->back = baru;
baru->value = value;
}
void tambahbelakang(int value){
tambah(value);
if(head == NULL)
head = tail = baru;
else{
tail->next = baru;
baru->back = tail;
tail = baru;
}
tail->next = head;
head->back = tail;
}
void tambahdepan(int value){
tambah(value);
if(head == NULL)
head = tail = baru;
else{
baru->next = head;

Membuat Program Penilaian dengan Structures (struct), dengan Turbo C++ ( Bahasa C++ )

Kali ini saya akan berbagi ilmu tentang Bahasa C++, dengan membuat program menggunakan software Turbo C++, software Turbo C++ merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program.

Kali ini saya akan berbagi Program Penilaian dengan Structures (struct), dan berikut coding Program Penilaian dengan Structures (struct) :

#include <iostream.h>
#include <conio.h>
struct Mahasiswa
{
int No;
char Nama[20];
char Nim[15];
float Tugas;
float UTS;
float UAS;
char Nilai;
};

void Input(Mahasiswa *mhs, int jumData)
{
cout<<endl;
for(int i=0; i<jumData; i++)
{
mhs[i].No=i+1;
cout<<"No : "<<mhs[i].No<<endl;
cout<<"Nama : ";
cin>>mhs[i].Nama;
cout<<"Nim : ";
cin>>mhs[i].Nim;
cout<<"Nilai Tugas : ";
cin>>mhs[i].Tugas;
cout<<"Nilai UTS : ";
cin>>mhs[i].UTS;
cout<<"Nilai UAS : ";
cin>>mhs[i].UAS;
cout<<endl;
}}

void ProsesData(Mahasiswa *mhs, int jumData)

Membuat Program Data Structure Queue, dengan Turbo C ( Bahasa C )

Kali ini saya akan berbagi ilmu tentang Bahasa C, dengan membuat program menggunakan software Turbo C, software Turbo C merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program.
Kali ini saya akan berbagi Program Data Structure Queue, dan berikut coding Program Data Structure Queue :

#include <stdio.h>
#include <conio.h>
void insert(int) ;
int delet(int) ;
void display(void) ;
int queue[5] ;
int rear=-1 ;
int front=-1 ;

void main()
{
int n=5 ;
char op ;
clrscr() ;
do
{
printf ("\nPilihan") ;
printf ("\n1. Tambah Data") ;
printf ("\n2. Hapus Data") ;
printf ("\n3. Tampilkan Data") ;
printf ("\nTekan e untuk keluar") ;
printf ("\nPilihan anda : ") ;

op=getche() ;
switch(op)
{
case '1' : insert(n) ; break ;
case '2' : delet(n) ; break ;
case '3' : display() ; break ;

Membuat Program Penjumlahan Array, dengan Turbo C ( Bahasa C )

Kali ini saya akan berbagi ilmu tentang Bahasa C, dengan membuat program menggunakan software Turbo C, software Turbo C merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program.
 
Kali ini saya akan berbagi Program Penjumlahan Array, pengertian dari Array yaitu merupakan kumpulan dari nilai-nilai data yang bertipe sama dalam urutan tertentu yang menggunakan nama yang sama. Letak atau posisi dari elemen array ditunjukkan oleh suatu index. Dilihat dari dimensinya array dapat dibagi menjadi Array dimensi satu, array dimensi dua dan array multi-dimensi. Setiap elemen array dapat diakses melalui indeks. Dalam bahasa C indeks dimulai dari 0 (nol), dan berikut coding Program Penjumlahan Array nya ^_^ :

#include<stdio.h>
main()
{
int x[2][3],i,j;
int y[2][3];
int z[2][3];
for(i=0;i<2;i++)
{
for(j=0;j<3;j++)
{
printf("input data matrik x[%i][%i]:",i,j);
scanf("%i",&x[i][j]);}}
printf("\nOutput data matrik\n");
for(i=0;i<2;i++)
{
for(j=0;j<3;j++)
printf("%6i",x[i][j]);
printf("\n");}
for(i=0;i<2;i++)
{
for(j=0;j<3;j++)
{
printf("input data matrik y[%i][%i]:",i,j);

Membuat Program Array dengan 2 variable, dengan Turbo C ( Bahasa C )

Kali ini saya akan berbagi ilmu tentang Bahasa C, dengan membuat program menggunakan software Turbo C, software Turbo C merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program. 

Kali ini saya akan berbagi Program Array dengan 2 variable, pengertian dari Array yaitu merupakan kumpulan dari nilai-nilai data yang bertipe sama dalam urutan tertentu yang menggunakan nama yang sama. Letak atau posisi dari elemen array ditunjukkan oleh suatu index. Dilihat dari dimensinya array dapat dibagi menjadi Array dimensi satu, array dimensi dua dan array multi-dimensi. Setiap elemen array dapat diakses melalui indeks. Dalam bahasa C indeks dimulai dari 0 (nol), dan berikut coding Array dengan 2 variable :

#include<stdio.h>
main()
{
int x[2][3],i,j;
int y[2][3],k,l;
for(i=0;i<2;i++)
{
for(j=0;j<3;j++)
{
printf("input data matrik x[%i][%i]:",i,j);
scanf("%i",&x[i][j]);}}
printf("\nOutput data matrik\n");
for(i=0;i<2;i++)
{
for(j=0;j<3;j++)
printf("%6i",x[i][j]);
printf("\n");}
for(k=0;k<2;k++)
{
for(l=0;l<3;l++)
{
printf("input data matrik y[%i][%i]:",k,l);
scanf("%i",&y[k][l]);}}
printf("\nOutput data matrik\n");
for(k=0;k<2;k++)
{
for(l=0;l<3;l++)
printf("%6i",y[k][l]);
printf("\n");}} 

Membuat Program Array 2 Dimensi, dengan Turbo C ( Bahasa C )

Kali ini saya akan berbagi ilmu tentang Bahasa C, dengan membuat program menggunakan software Turbo C, software Turbo C merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program. 

Kali ini saya akan berbagi Program Array 2 dimensi, pengertian dari Array yaitu merupakan kumpulan dari nilai-nilai data yang bertipe sama dalam urutan tertentu yang menggunakan nama yang sama. Letak atau posisi dari elemen array ditunjukkan oleh suatu index. Dilihat dari dimensinya array dapat dibagi menjadi Array dimensi satu, array dimensi dua dan array multi-dimensi. Setiap elemen array dapat diakses melalui indeks. Dalam bahasa C indeks dimulai dari 0 (nol), dan berikut coding Program Array 2 dimensi nya ^_^ :

#include<stdio.h>
main()
{
int x[3][4],i,j;

for(i=0; i<3; i++)
{
for(j=0; j<4; j++)
{
printf("input data matrik [%i][%i]:",i,j);
scanf("%i",&x[i][j]);}}

printf("\n Output data matrik \n");
for(i=0;i<3; i++)
{
for(j=0; j<4; j++)
printf("%6i" , x[i][j]);
printf("\n");}}

 

Kata - kata Motivasi dan Nasihat

Mohon di baca ya teman - teman!
Semoga kata - kata Motivasi dan Nasihat ini, bisa bermanfaat, dan memotivasi kita semua, serta menjadikan pribadi yang lebih baik lagi. Terimakasih.


1.)Sikap adalah cermin hati
Jika sikapmu baik, maka hatimu pun baik.
Orang lain yang akan menilainya
Jujurlah dan tuluslah bersikap.

2.)Ketika kenyataan tidak sesuai dengan harapan, berpikirlah, cari dan temukan penyebabnya, dan jangan pernah berhenti berharap.

3.)Jika musibah menerpamu.
Itu tanda untuk bersabar dan tidak tergesa2.
Untuk memulai lagi yang gagal.
Karena ada hikmah yang harus dipetik.

4.)Ketika dihina, jangan dahulu marah.
Cobalah sesaat pikirkan apa makna positifnya, tetap tenang & buktikan melalui tindakan bahwa hinaan itu salah.

5.)Jika sebuah kejadian tidak membawa berkah, maka carilah hikmahnya. Agar kau selalu bisa memanfaatkan setiap kejadian dari sisi positifnya.

6.)Jangan meremehkan kemampuan orang lain, karena sesungguhnya kita itu memiliki kelebihan yang berbeda
Sadari itu!

7.)Berhenti membandingkan diri dengan orang lain adalah salah satu cara agar kita bisa jadi lebih pede dan tetap rendah hati.

8.)Berpikirlah sebelum berkata.
Sebuah kata tak dapat ditarik kembali, dan pengaruhnya akan panjang.

9.)Jangan membenci orang yang memberi nasehat, karena ia mengingatkan kita bahwa ia mungkin lebih peduli pada hidup kita daripada kita sendiri.

10.)Hidup itu tidak ada yang sulit selama kita hidup dengan penuh ucapan syukur.

11.)Gelisah dalam pikiran tidak akan menyelesaikan masalah.
Bangkit dan percayalah, maka pasti ada jalan keluar yang dibukakan Allah untukmu.

12.)Tanpa kita sadari kesalahan kecil lebih sering kita lakukan daripada kebaikan yang sedikit.
Ayo mulai menambah kebaikan kecil kita dari sekarang.

13.)Ketika kamu merasa tak ada seorangpun yang mau mengerti masalahmu, berdo'alah karena Allah selalu siap mendengar dan memberimu petunjuk.

14.)Mencela orang lain, atau terus berbicara keburukannya, sebenarnya menambah dosa dan beban untuk diri kita sendiri.
Padahal bisa jadi orang yang kita cela lebih baik dibanding kita.

15.)Banyaknya masalah bukan berarti kamu harus mengeluh, Kadang Allah memberikan masalah berat, karena Dia ingin yang terbaik untukmu.

16.)Jangan meremehkan kemampuan org lain, karena sesungguhnya kita itu memiliki kelebihan yang berbeda-beda
Ingat itu!

17.)Jangan lupa berdoa!
Jangan sampai lalai. Karena doa mengawali semangat positif dan optimisme dalam menjalani hari ini.

18.)Jangan hiraukan apa yang orang pikirkan tentangmu.
Siapa dirimu adalah anugerah dari Allah, hanya padaNya kamu harus mendengar.

19.)Bersyukur adalah langkah terbaik.
Saat apapun yg terjadi pada dirimu dihari ini.
Karena itu mengingatkanmu bahwa semua ada hikmahnya.

20.)Kenali terlebih dahulu sebelum menilai, karena yang tampak indah tak selalu indah dan yang tampak buruk tak selalu buruk.

21.)Jangan habiskan terlalu banyak waktumu berharap memiliki apa yg tak kamu miliki, hingga kamu lupa menikmati apa yg kini kamu miliki.

Membuat Program Angka berbentuk segitiga, dengan Turbo C ( Bahasa C )

Saya akan berbagi ilmu tentang  Turbo C ( Bahasa C ) , Turbo C ( Bahasa C ) merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program.

 kali ini saya akan berbagi Program Angka berbentuk segitiga, berikut coding nya ^_^ :

#include <stdio.h>
#include <conio.h>

main ()
{
int a,b,c,d,e;
printf ("Masukan banyaknya baris : ");
scanf ("%d",&a);
for (b=0,c=a;b<=a;b++,c--)
{
for (d=0; d<c; d++)
printf (" ");
for (e=0;e<=b; e++)
printf ("%d ",e);

Membuat Program Penilaian dengan Looping menggunakan for, dengan Turbo C ( Bahasa C )

Kali ini saya akan berbagi ilmu tentang  Turbo C ( Bahasa C ) , Turbo C ( Bahasa C ) merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, kali ini saya akan berbagi ilmu Program Looping dengan menggunakan for.  Looping dalam Bahasa C dibagi menjadi 3 yaitu For, While dan Do While. For digunakan untuk Looping otomatis dan lebih sering dipakai ketimbang While dan Do While. Program Looping atau Pengulangan adalah suatu yang wajib dikuasai oleh seorang Programmer, ini karena looping adalah jiwa dari program. Banyak Algoritma yang memerlukan looping sebagai sarana terwujudnya Algoritma tersebut seperti Algoritma Array, Searching, Sorting, dll. kali ini saya akan berbagi Program Penilaian dengan Looping menggunakan for, berikut coding nya ^_^ :

#include<stdio.h>
#include<conio.h>

main ()
{
int bm, nilai, total_nilai, i;
float rata2 ;
i=1;
total_nilai=0;
printf ("\n Program Penilaian");
printf ("\n ==================");

Basis Data - Membuat table di Oracle ( Tugas Akhir Basis Data )

create table jasa (

id_jasa char (6),

nama_jasa varchar2(30),

harga_jasa number(8),

constraint pk_jasa primary key (id_jasa)

);

create table customer (

id_customer char (6),

nama_customer varchar2(30),

alamat_customer varchar2(30),

nomor_telepon varchar2(15),

constraint pk_customer primary key (id_customer)

);

create table jenis_sparepart (

id_jenis_sparepart char (6),

kategori_sparepart varchar2(15),

constraint pk_jenis_sparepart primary key (id_jenis_sparepart)

);

create table sparepart (

Membuat Program nama dan nilai menggunakan fungsi, dengan Turbo C ( Bahasa C )

Kali ini saya akan berbagi ilmu tentang  Turbo C ( Bahasa C ) , Turbo C ( Bahasa C ) merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, kali ini saya akan berbagi Program nama dan nilai menggunakan fungsi berikut coding nya ^_^ :

#include<stdio.h>

#include<conio.h>

nama(char nm)

{

printf("Masukan nama : ");

scanf("%s", &nm);

return 0;

}

nilai(int n1, int n2, int rata2)

{

printf("Masukan nilai 1 : ");

scanf("%d", &n1);

printf("Masukan nilai 2 : ");

scanf("%d", &n2);

rata2=(n1+n2)/2;

printf("rata-rata: %d", rata2);

return 0;

}

main()

Membuat Program pangkat nilai menggunakan fungsi, dengan Turbo C ( Bahasa C )

Kali ini saya akan berbagi ilmu tentang  Turbo C ( Bahasa C ) , Turbo C ( Bahasa C ) merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, kali ini saya akan berbagi Program pangkat nilai menggunakan fungsi berikut coding nya ^_^ :

#include<stdio.h>

pangkat2(int n)

{

int pk2;

pk2 = n*n;

printf("Hasil pangkat 2 adalah %d \n", pk2);

return pk2;

}

pangkat3(int n)

{

int pk3;

pk3 = n*n*n;

printf("Hasil pangkat 3 adalah %d \n", pk3);

return pk3;

}

pangkat4(int n)

{

int pk4;

pk4 = n*n*n*n;

printf("Hasil pangkat 4 adalah %d", pk4);

return pk4;

}

main()

Membuat Program Menu Pilihan ( switch ) dengan Turbo C ( Bahasa C )

Ya biasanya saya berbagi ilmu tentang Turbo Pascal, namun kali ini saya akan berbagi ilmu tentang Turbo C ( Bahasa C ) , Turbo C ( Bahasa C ) merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, kali ini saya akan berbagi Program Menu Pilihan ( switch ), jika di pascal kita menggunakan "case of" dan ketika di C kita menggunakan "switch" untuk membuat menu, berikut coding nya ^_^ :

#include <Stdio.h>

main ()
{
int pilihan,alas,tinggi,panjang,lebar ;
float luas_segitiga, luas_persegi_panjang;
printf (" Program Menu ");
printf ("\n\n ======Menu======= ");
printf ("\n 1. Luas segitiga  ");
printf ("\n 2. Luas persegi panjang  ");
printf ("\n pilihan anda [1-2] : ");
scanf ("%d" , &pilihan);
switch(pilihan)
{

Membuat Program penentu nilai huruf dari nilai angka yang di dapat dengan Turbo C ( Bahasa C )

Ya biasanya saya berbagi ilmu tentang Turbo Pascal, namun kali ini saya akan berbagi ilmu tentang  Turbo C ( Bahasa C ) , Turbo C ( Bahasa C ) merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, kali ini saya akan berbagi Program nilai berikut coding nya ^_^ :

#include <stdio.h>

#include <conio.h>

main()

{

char huruf;

int a, b;

float rata2;

printf ("\n Program Nilai");

printf ("\n =============");

printf("\n \n");

printf("Masukan nilai a= "); scanf ("%d",&a);

printf("Masukan nilai b= "); scanf ("%d",&b);

rata2=(a+b)/2;

printf ("Jadi rata-rata yang didapat = %.2f\n",rata2);

RAPTOR - Flowchart Interpreter - ( Software untuk membuat Flowchart )

RAPTOR merupakan pemrograman yang berbasis flowchart, RAPTOR dirancang khusus untuk membantu memvisualisasikan algoritma yang telah kita buat. Program RAPTOR diciptakan secara visual dan dieksekusi secara visual dengan menelusuri eksekusi melalui flowchart. Biasanya kita lebih suka menggunakanflowchart untuk mengekspresikan algoritma, dan lebih berhasil menciptakan algoritma menggunakan RAPTOR daripada menggunakan bahasa tradisional atau menulis flowchart tanpa RAPTOR.

RAPTOR ditulis dalam kombinasi dari bahasa C # dan A # (port dari Ada untuk.NET Framework.) dan hanya didukung pada Windows. RAPTOR telah bereksperimen dengan Mono di Mac OS X dan Ubuntu. Versi Mac tidak berjalan sama sekali, tetapi RAPTOR dapat berjalan pada Ubuntu dengan beberapa fitur yang harus dihilangkan.

RAPTOR memiliki beberapa mode, secara default kita memakai mode Novice. Mode Novice memiliki global namespace tunggal untuk setiap variabel. ModeIntermediate digunakan untuk membuat prosedur yang memiliki ruang lingkup mereka sendiri (memperkenalkan gagasan lewat parameter dan mendukung rekursi). Mode baru RAPTOR adalah mode yang berorientasi object, yaitu versi 2009.

RAPTOR bebas untuk didistribusikan sebagai layanan kepada masyarakat.RAPTOR pada awalnya dikembangkan oleh dan untuk US Air Force Academy, Departemen Ilmu Komputer, namun penggunaannya telah menyebar danRAPTOR sekarang digunakan untuk pendidikan di lebih 17 negara pada setidaknya 4 benua.

RAPTOR juga di lengkapi dengan proses generate flowchart ke beberapa source code yang sudah banyak di kenal seperti C++, Java, C# dan lain-lain. Sehingga pengguna tidak perlu lagi membangun dari awal sebuah source code, karena dariflowchart yang telah di buat langsung di terjemahkan ke Source Code olehRAPTOR.

Keunggulan dari software RAPTOR Interpreter Flowchart adalah dapat mengeksekusi flowchart yang telah di bangun menjadi sebuah visualisasi yang nyata, sehingga pengguna dapat mengetahui step by step flowchart yang mereka buat melalui eksekusi secara visual dalam tiap langkahnya. Selain itu kelebihan dari Raptor Interpreter Flowchart ini ada pada saat kita membuat flowchartdengan penulisan variabel, RAPTOR di dukung dengan adanya fitur Auto Complete seperti layaknya pada Pemrograman Visual Basic.

( Untuk Mendownload software raptor, bisa di cek linknya di bagian paling bawah postingan ) ^_^

          Gambar diatas merupakan interface dari RAPTOR. Disebelah kiri merupakan simbol-simbol yang dapat kita gunakan untuk membuat sebuahflowchart. Berikut adalah fungsi dari symbol-simbol diatas :

Membuat Program Penghitung Pembelian Flashdisk dengan Turbo Pascal

 Ya, kali ini saya akan berbagi ilmu tentang Turbo Pascal , Turbo Pascal merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, kali ini saya akan berbagi program penghitung pembelian flashdisk, berikut coding nya ^_^ :

program penghitung pembelian flashdisk;
uses wincrt;
var
 harga,uang1,uang2,uang3,uang4,uang5,uang6,uang7,uang8,uang9,uang10:real;
 total_uang1,total_uang2,total_uang3,total_uang4,total_uang5,total_uang6,total_uang7,kembalian:real;
 pilihan:char;

begin

write('masukan harga flashdisk: ');
readln(harga);
begin
writeln('---MENU---');
writeln('1.uang pas 1');
writeln('2.uang pas 2');
writeln('3.uang kembali 1');
writeln('4.uang kembali 2 ');
writeln('5.uang pas 3');
writeln('6.uang pas 4');
writeln('7.uang kembali 3');
writeln('PILIHAN [1-7]:') ;
readln(pilihan);