Menentukan juara satu dua dan tiga dengan pascal

Ada kasus “Menentukan pemenang satu, dua dan tiga dari pemilihan BEM, dengan kode masing-masing kandidat “Apel”, “Melon” dan “Anggur”, jumlah pemilih harus di tampilkan”

Mari kita jawab :

var
apel,anggur,melon,pemilih:real;
begin
writeln(‘Jumlah Pemilih :’);readln(pemilih);
writeln(‘Jumlah suara Apel :’);readln(apel);
writeln(‘Jumlah suara Anggur :’);readln(anggur);
writeln(‘Jumlah suara Melon :’);readln(melon);
if (apel>anggur) and (apel>melon) and (anggur>melon)then
    begin
        writeln(‘Jumlah Pemilih :’,pemilih);
        writeln(‘Pemenang Pertama : Apel’);
        writeln(‘Pemenang Kedua : Anggur’);
        writeln(‘Pemenang Ketiga : Melon’);
        readln;
    end;
if (apel>anggur) and (apel>melon) and (anggur<melon)then
    begin
        writeln(‘Jumlah Pemilih :’,pemilih);
        writeln(‘Pemenang Pertama : Apel’);
        writeln(‘Pemenang Kedua : Melon’);
        writeln(‘Pemenang Ketiga : Anggur’);
        readln;
    end;
if (anggur>apel) and (anggur>melon) and (apel>melon)  then
    begin
    writeln(‘Jumlah Pemilih :’,pemilih);
        writeln(‘Pemenang Pertama : Anggur’);
        writeln(‘Pemenang Kedua : Apel’);
        writeln(‘Pemenang Ketiga : Melon’);
        readln;
    end;
if (anggur>apel) and (anggur>melon) and (apel<melon)  then
    begin
    writeln(‘Jumlah Pemilih :’,pemilih);
        writeln(‘Pemenang Pertama : Anggur’);
        writeln(‘Pemenang Kedua : Melon’);
        writeln(‘Pemenang Ketiga : Apel’);
        readln;
    end;
if (melon>apel) and (melon>anggur) and (apel>anggur)  then
        begin
    writeln(‘Jumlah Pemilih :’,pemilih);
        writeln(‘Pemenang Pertama : Melon’);
        writeln(‘Pemenang Kedua : Apel’);
        writeln(‘Pemenang Ketiga : Anggur’);
        readln;
    end;
if (melon>apel) and (melon>anggur) and (apel<anggur)  then
        begin
    writeln(‘Jumlah Pemilih :’,pemilih);
        writeln(‘Pemenang Pertama : Melon’);
        writeln(‘Pemenang Kedua : Anggur’);
        writeln(‘Pemenang Ketiga : Apel’);
        readln;
    end
end.              

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s