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);


case pilihan of

'1' : begin
    write('masukan jumlah uang 10000: ') ;readln(uang1);
    write('masukan jumlah uang 5000: ') ;readln(uang2);
    total_uang1:= (2*10000)+(1*5000);
    writeln('total uang: ',total_uang1:2:0);
    end;
'2' : begin
    write('masukan jumlah uang 20000: ') ;readln(uang3);
    write('nasukan jumlah uang 5000: ') ;readln(uang4);
    total_uang2:= (1*20000)+(1*5000);
    writeln('total uang: ',total_uang2:2:0);
    end;
'3' : begin
    write('masukan jumlah uang 50000: ') ;readln(uang5);
    total_uang3:= 1*50000;
    writeln('total uang: ',total_uang3:2:0);
    write('hitung kembalian');
    kembalian:=total_uang3-25000 ;
    writeln('kembalian: ',kembalian:2:0);
     end;
'4' : begin
    write('masukan jumlah uang 100000: ') ;readln(uang6);
    total_uang4:= 1*100000;
    writeln('total uang: ',total_uang4:2:0);
    write('hitung kembalian');
    kembalian:=total_uang4-25000 ;
    writeln('kembalian: ',kembalian:2:0);
    end;
'5' : begin
    write('masukan jumlah uang 1000: ') ;readln(uang7);
    total_uang5:= 25*1000;
    writeln('total uang: ',total_uang5:2:0);
    end;
'6' : begin
    write('masukan jumlah uang 5000: ') ;readln(uang8);
    total_uang6:= 5*5000;
    writeln('total uang: ',total_uang6:2:0);
    end;
'7' : begin
    write('masukan jumlah uang 10000: ') ;readln(uang9);
    write('masukan jumlah uang 20000: ') ;readln(uang10);
    total_uang7:= (1*10000)+(1*20000);
    writeln('total uang: ',total_uang7:2:0);
    write('hitung kembalian');
    kembalian:=total_uang7-25000 ;
    writeln('kembalian: ',kembalian:2:0);
    end;
end;
end;
end.