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:
Post a Comment