Algoritma pRogram PEMBAGIAN DAGING QURBAN

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..