MEMBUTA PROGRAM TENTANG PEMBAGIAN DAGING QURBAN

MEMBUTA PROGRAM TENTANG PEMBAGIAN DAGING QURBAN
Langsung saja untuk membuat program pembagian daging qurban ketikan scrip di bawah ini pada turbo pascalnya..


Program Mengitung_Pembagian_daging_Qurban;
uses crt;
var BD, JPS, JPH, Q, PS, PH : real;
begin
    clrscr;
    writeln('MENGHITUNG PEMBAGIAN DAGING QURBAN');
    write ('Masukkan Berat Daging (kg)=  ');readln(BD);
    write ('Masukkan Jumlah Orang Penerima Sumbangan (orang)=  ');readln(JPS);
    write('Masukkan Jumlah Penerima Hadiah (orang)=  ');readln(JPH);
    Q:= 1/3*BD/JPS;
    PS:= 1/3*BD/JPS;
    PH:= 1/3*BD/JPH;
    writeln;
    writeln('Banyak Daging yang diterima Pengqurban (kg)= ', Q:0:2);
    writeln('Banyak Daging yang disumbangkan  per orang (kg)= ',PS:0:2);
    writeln('Banyak Daging yang dihadiahkan per orang (kg)= ', PH:0:2);
    readln;
end.

Jika sudah maka gambarnya akan seperti di bawah ini

Dan hasilnya akan seperti di bawah ini

Itulah program tentang pembagian daging qurban, menarik bukan..

Password : pusatkomputerindo.blogspot.com Bagi Kalian Para OTAKU Bisa Di Lihat Daftar Anime SPRING 2015 Yang Akan Rilis APRIL 2015
MEMBUTA PROGRAM TENTANG PEMBAGIAN DAGING QURBAN

MEMBUTA PROGRAM TENTANG PEMBAGIAN DAGING QURBAN 10out of 10 based on 25 ratings. 35 user reviews.

Anda sedang membaca artikel tentang MEMBUTA PROGRAM TENTANG PEMBAGIAN DAGING QURBAN. Bila Anda merasa mendapat manfaat dari artikel ini, jangan lupa LIKE fanspage kami di atas, sebagai bentuk apresiasi terhadap blog PUSATKOMPUTERINDO. Terimakasih. ^_^

Related Posts: