Pemrograman Pascal Menentukan Subsidi Biaya Pendidikan (If Majemuk)

Pemrograman Pascal Menentukan Subsidi Biaya Pendidikan (If Majemuk)

Buat lah program berdasarkan ilustrasi berikut: (Menggunakan IF Majemuk) 

Subsidi biaya pendidikan diberikan oleh pemerintah kepada semua penduduk dengan besaran berbeda tiap anak tiap bulannya, yang hanya diberikan kepada semua keluarga yang memiliki anak usia sekolah (6-17 tahun). Bagi keluarga yang kurang mampu, subsidi menjadi 700 ribu per bulan ditambah dengan bantuan sosial sebesar 400 ribu per bulan. Ukuran keluarga tidak mampu dilihat dari penghasilan dan besarnya konsumsi listrik tiap bulan. Keluarga dikatakan kurang mampu jika penghasilannya kurang dari 2 juta per bulan dan konsumsi listrik kurang dari 100 ribu per bulan. Jika penghasilan >= 2juta dan pemakaian listrik >=100 ribu maka subsidi menjadi 300 ribu per bulan ditambah dengan bantuan sosial sebesar 200 ribu per bulan. Jika penghasilan > 2juta dan pemakaian listrik < 100 ribu maka subsidi menjadi 100 ribu per bulan ditambah dengan bantuan sosial sebesar 100 ribu per bulan. Jika penghasilan <= 2juta dan pemakaian listrik >= 100 ribu maka subsidi menjadi 100 ribu per bulan ditambah dengan bantuan sosial sebesar 100 ribu per bulan. 

Contoh Program : 

Program soal2uts;

uses crt;

var

        nama :string;

        jumlahank,penghasilan,subs,hasilsubspend,bansos,konsumsi,hasilbansos:longint;

begin

        clrscr;

        writeln('Nama : Farhan Misbahul Hayat');

        writeln('Npm  : 202143502440');

        writeln('=============================');

        writeln('>>> Menghitung uang 3 anak <<<');

        write('Nama Kepala Keluarga   : ');

        readln(nama);

        write('Jumlah anak usia  (6 - 17) : ');

        readln(jumlahank);

        write('Penghasilan perbulan : ');

        readln(penghasilan);

        write('Konsumsi Listrik Tiap Bulan : ');

        readln(konsumsi);

        writeln('=========================================');

        if (penghasilan < 2000000) and (konsumsi < 100000) then

        begin

        subs:=700000;

        bansos:=400000;

        hasilsubspend :=subs*jumlahank;

        hasilbansos:=bansos*jumlahank;

        writeln('Total dari ',jumlahank,'anak');

        writeln('Besaran Subsidi Pendidikan : Rp. ',hasilsubspend);

        writeln('Besaran Bantuan Sosial      : Rp. ',hasilbansos);

        end

        else if(penghasilan >= 2000000) and (konsumsi >= 100000) then

        begin

        subs:=300000;

        bansos:=200000;

        hasilsubspend:=subs*jumlahank;

        hasilbansos:=bansos*jumlahank;

        writeln('Total dari ',jumlahank,'anak');

        writeln('Besaran Subsidi Pendidikan : ',hasilsubspend);

        writeln('Besaran Bantuan Sosial     : ',hasilbansos);

        end

        else if (penghasilan > 2000000) and (konsumsi < 100000) then

        begin

        subs:=100000;

        bansos:=100000;

        hasilsubspend:=subs*jumlahank;

        hasilbansos:=bansos*jumlahank;

        writeln('Total dari ',jumlahank,'anak');

        writeln('Besaran Subsidi Pendidikan : Rp. ',hasilsubspend);

        writeln('Besaran Bantuan Sosial     : Rp. ',hasilbansos);

        end

        else if (penghasilan <= 2000000) and (konsumsi >= 100000) then

        begin

        subs:=100000;

        bansos:=100000;

        hasilsubspend:=subs*jumlahank;

        hasilbansos:=bansos*jumlahank;

        writeln('Total dari ',jumlahank,'anak');

        writeln('Besaran Subsidi Pendidikan : Rp. ',hasilsubspend);

        writeln('Besaran Bantuan Sosial     : Rp. ',hasilbansos);

        end;

        readln;

end.

Hasil Output: