Program Menentukan Calon Peserta Pemilu (Pascal)

Kategori: Pascal
Tanggal Penerbitan


WireTransferBCA mailDi Indonesia untuk menentukan Presiden dan Wakil Presiden dilakukan Pemilihan Umum. Syarat sederhana untuk menjadi pemilih adalah Berwarga Negara Indonesia (WNI) kemudian seseorang telah bersetatus menikah atau telah berumur minimal 17 Tahun. Jika syarat diatas tidak terpenuhi maka tidak dapat dikatkan sebagai pemilih.

flow chartnya adalah

flow pemilu

dan program untuk menentukan seseorang dapat dikatakan sebagai "pemilih" dan "bukan pemilih".

Uses WinCrt;

Var

  WNI    : Char;

  Status : Char;

  Umur   : Integer;

Begin

  Write('Apakah WNI [Y/T] = ');

  ReadLn(WNI);

  if (WNI='Y') Then

    Begin

      Write('Status Pernikahan [Y/T] = ');

      ReadLn(Status);

      if (Status='Y') Then

      Begin

        WriteLn('Sebagai Pemilih')

      end

        else if (Status='T') Then

          Begin

            Write('Berapa Umur Anda = ');

            ReadLn(Umur);

            if (Umur >= 17) Then

            Begin

              WriteLn('Sebagai Pemilih');

            end

            Else

              WriteLn('Bukan Sebagai Pemilih');

          end

      else

        WriteLn('Bukan Sebagai Pemilih')

      End

  else WriteLn('Bukan Sebagai Pemilih')

End.


Copyright 2012 by http://www.mahdianta.com
fb : http://www.facebook.com/mahdianta  | e : This email address is being protected from spambots. You need JavaScript enabled to view it.

Joomla 1.7 templates. Custom text here