Sebentar lagi kan mau pemilu nih, tentunya ada syarat-syarat untuk mempunyai hak pilih, saya akan mengimplementasikan dalam sebuah program pascal sederhana kali ini. Algoritmanya sperti ini jika anda berumur Warga Negara Indonesia maka lolos seleksi pertama (kondisi pertama) dan jika tidak maka anda tidak mempunyai hak pilih dan program selesai. Seleksi kedua (kondisi kedua didasarkan pada umur, jika umur lebih samadengan atau lebih dari 17 maka lolos seleksi kedua (kondisi kedua) maka anda mempunyai hak pilih dan jika umur kurang dari 17 maka ada kondisi ke tiga yaitu status menikah, jika anda sudah menikah maka anda akan lolos seleksi ketiga (kondisional ketiga) maka anda mempunyai hak pilih tapi jika tidak maka anda tidak mempunyai hak pilih.
berikut source code nya:
program pemilu;
uses wincrt;
var nama:string;
umur:byte;
wn,status:0..1;
begin
write('Siapa nama
anda? ');readln(nama);
write('Berapa umur
anda? ');readln(umur);
write('Apakah anda
WNI? 1.YA 0.TIDAK: ');readln(wn);
if wn=0 then
begin
writeln('Anda tidak mempunyai hak pilih');
end
else
begin
if umur<17 then
begin
write('Apakah anda sudah menikah? 1.YA
0.TIDAK: ');readln(status);
if status=0 then
begin
writeln;
writeln('Saudara ',nama,' tidak
mempunyai hak pilih');
end
else
begin
writeln('Saudara ',nama,' mempunyai
hak pilih');
writeln;
end;
end
else
begin
writeln;
writeln('Saudara ',nama,' mempunyai hak
pilih');
end;
end;
end.
Selesai! :-)
untuk yang pengen download programnya bisa didownload melalui link download di bawah ini.
Catatan: Untuk yang menggunakan Turbo Pascal versi 7 keatas, untuk uses gunakan uses crt;
