A. algoritma program faktorial
1. Mulai
2. Masukkan nilai n
3. Hitung factorial n dengan pencacahan dari atas kebawah yaitu n!= n down to 1 do
4. Tampilkan nilai n!
5. selesai
B. flowchart program indeks nilai akhir
Senin, 08 November 2010
Senin, 01 November 2010
Tuga ke 3 Baspro ...
Algoritma Untuk Menghitung hari
1. Menentukan banyaknya hari pada 1 tahun Terakhir
2. Menghitung banyaknya hari pada setiap bulan yang ada
3. Memasukkan banyaknya hari dengan ketentuan sebagai berikut :
Jika jumlah hari nya 1 - 31 maka bulan Januari
Jika jumlah hari nya 32 - 59 maka bulan Februari
Jika jumlah hari nya 60 - 90 maka bulan Maret
Jika jumlah hari nya 91 -120 maka bulan April
Jika jumlah hari nya 121 - 151 maka bulan Mei
Jika jumlah hari nya 152 – 181 maka bulan Juni
Jika jumlah hari nya 182 - 212 maka bulan Juli
Jika jumlah hari nya 213 – 243 maka bulan Agustus
Jika jumlah hari nya 244 – 273 maka bulan September
Jika jumlah hari nya 274 – 304 maka bulan Oktober
Jika jumlah hari nya 305 - 334 maka bulan November
Jika jumlah hari nya 335 – 365 maka bulan Desember
Dengan source Kode sebagai berikut
Program Kalender
Uses Crt
Var
Kode : Byte;
Begin
Repeat
ClrScr;
Write ('Masukkan Kode Hari [1..365]:');
Readln(Kode);
Until (Kode in [1..365]
writeln
if kode = 1..31 Then
writeln('januari')
else
if kode = 32..59 then
writeln('februari')
else
if kode = 60..90 then
writeln('maret')
else
if kode = 91..120 then
writeln('april')
else
if kode = 121..151 then
writeln('mei')
else
if kode = 152..181 then
writeln('juni')
else
if kode = 182..212 then
writeln('juli')
else
if kode = 213..243 then
writeln('agustus')
else
if kode = 244..273 then
writeln('september')
else
if kode = 274..304 then
writeln('oktober')
else
if kode = 305..334 then
writeln('november')
else
if kode = 335..365 then
writeln('desember');
readln;
end.
Langganan:
Postingan (Atom)