Postingan
1. Algoritma
a.
Mulai
b.
Deklarasi Variabel
kode
: string[2];
bulan : string[15];
c.
Inputkan kode[1-12]
d.
Proses pemilihan :
if kode = '1' then
bulan:= 'Januari'
else
if kode = '2' then
bulan := 'Februari'
else
if kode = '3' then
bulan:= 'Maret'
else
if kode = '4' then
bulan := 'April'
else
if kode = '5' then
bulan := 'Mei'
else
if kode = '6' then
bulan := 'Juni'
else
if kode = '7' then
bulan := 'Juli'
else
if kode = '8' then
bulan := 'Agustus'
else
if kode = '9' then
bulan := 'September'
else
if kode = '10'
then
bulan := 'Oktober'
else
if kode = '11'
then
bulan := 'November'
else
bulan ß:='Desember';
e.
Tampilkan Hasil
f.
Selesai
2. Bahasa Program
{program menentukan nama bulan}
{ Nama : Riki
Ramadhani}
{No.BP. : 1110452032}
program nama_bulan;
uses crt;
var kode : string[2];
bulan : string[15];
begin
clrscr;
writeln('\\\ Menetukan Nama Bulan ///');
writeln;writeln;
write('Inputkan Kode [1-12] :
');readln(kode);
writeln;writeln;
if kode='1' then
bulan:='Januari'
else
if kode='2' then
bulan:='Februari'
else
if kode='3' then
bulan:='Maret'
else
if kode='4' then
bulan:='April'
else
if kode='5' then
bulan:='Mei'
else
if kode='6' then
bulan:='Juni'
else
if kode='7' then
bulan:='Juli'
else
if kode='8' then
bulan:='Agustus'
else
if kode='9' then
bulan:='September'
else
if kode='10'
then
bulan:='Oktober'
else
if kode='11'
then
bulan:='November'
else
bulan:='Desember';
writeln('Nama Bulan : ',bulan);
readln;
end.
Output
0 komentar:
Posting Komentar