Membuat Program Repainting (Mengecat) dengan menggunakan 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 repainting (Mengecat), berikut coding nya ^_^ :

program mengecat;
uses wincrt;
var
   panjang_dinding,
   lebar_dinding,
   luas_dinding,

   panjang_jendela,
   lebar_jendela,
   luas_jendela,
   jumlah_jendela,
   total_luas_jendela,
   panjang_pintu,

   lebar_pintu,
   luas_pintu,
   dinding_dicat,

   biaya_cat,
   total_biaya_semua


   : real;
const
   harga_cat = 200000;
   harga_kuas = 15000;
   harga_rool = 20000;
   harga_tukang = 100000;
    
begin

{---------LUAS DINDING---------}
writeln('========= Menghitung Luas Dinding=======');
write('Panjang dinding = ');
readln(panjang_dinding);
write('Lebar dinding = ');
readln(lebar_dinding);
luas_dinding:=(panjang_dinding * lebar_dinding);
write('luas_dinding = ', luas_dinding:0:0, ' Meter Persegi');

writeln;writeln;

{---------LUAS JENDELA---------}
writeln('========= Menghitung Luas Jendela=======');
write('Panjang jendela = ');
readln(panjang_jendela);
write('Lebar jendela = ');
readln(lebar_jendela);
luas_jendela:=(panjang_jendela * lebar_jendela);
writeln('luas jendela = ', luas_jendela:0:0, ' Meter Persegi');
write('Jumlah Jendela = ');
readln(jumlah_jendela);
total_luas_jendela:=(luas_jendela * jumlah_jendela);
write('Total luas jendela = ', total_luas_jendela:0:0, ' Meter Persegi');

writeln;writeln;

{---------LUAS PINTU---------}
writeln('========= Menghitung Luas Pintu=======');
write('Panjang Pintu = ');
readln(panjang_pintu);
write('Lebar pintu = ');
readln(lebar_pintu);
luas_pintu:=(panjang_pintu * lebar_pintu);
writeln('luas pintu = ', luas_pintu:0:0, ' Meter Persegi');

writeln;writeln;

{---------LUAS DINDING YANG DI CAT---------}
writeln('========= Menghitung Luas dinding yg dicat=======');
writeln('Rumus = LUAS DINDING - (LUAS JENDELA + LUAS PINTU)');
dinding_dicat:= luas_dinding - (total_luas_jendela + luas_pintu);
write('Luas dinding yang dicat adalah : ', dinding_dicat:0:0, ' Meter Persegi');

writeln;writeln;

{---------BIAYA CAT---------}
writeln('=========Menghitung Biaya Cat=======');
writeln('1 Kaleng Untuk 10 Meter Persegi');

biaya_cat := harga_cat/10;
writeln('Harga Cat Untuk ',dinding_dicat:0:0,' meter peregi ',' Rp. ',biaya_cat:0:0);
writeln('Harga Kuas : Rp. ', harga_kuas);
writeln('Harga Rool : Rp. ', harga_rool);
writeln('Biaya Tukang : Rp. ',harga_tukang);

writeln;writeln;

{---------TOTAL---------}
writeln('=========TOTAL=======');

total_biaya_semua := biaya_cat + harga_kuas + harga_rool + harga_tukang;
writeln('TOTAL : Rp.',total_biaya_semua:0:0,',-');

end.