Thursday, October 18, 2012

Pseudecode Calon Pemilih dalam Pemilu


Algoritma Calon_pemilih
Deklarasi         Status : string
                        Menikah : string
                        Umur : integer
Deskripsi       
write('status :') Readln(Status)
            If (Status='WNI') then
                write('menikah :') readln(menikah)
                        If (Menikah='Ya') then
                            Writeln('Pemilih')
                        else
                            write('umur :') readln(umur)
                            If (Umur > 17) then
                                Writeln('Pemilih')
                            else
                                write('Bukan Pemilih')
            endif
            Else
            Write('Bukan Pemilih')

Penyelesaian dengan Program Pascal

program Calon_pemilih;
uses crt;
var       Status : string;
            Menikah : string;
            Umur : integer;
Begin
        write('status :');Readln(Status);
            If (Status='WNI') then
            begin
              write('menikah :');readln(menikah);
              If (Menikah='Ya') then
                 Writeln('Pemilih')
              else
                 write('umur :');readln(umur);
                         If (Umur > 17) then
                            Writeln('Pemilih')
                 else
                 write('Bukan Pemilih');
        end
            Else
            Write('Bukan Pemilih');
end.

No comments:

http://goo.gl/BGVrJP

MY Motto

My photo
giving amenity to all visitor.

Total Pageviews