Untuk menampilkan bilangan ganjil dari angka 1 sampai dengan angka 100 algoritmanya adalah sebagai berikut :
Bilangan ganjil dari 1
sampai 100 = 1,3,5,7,9,…………,99
Catatan : bilangan apa
saja yag dimod2=1 adalah bilangan ganjil
Untuk nilai I = 1 to 100
lakukan
Jika
nilai Imod2 = 1 maka
Cetak
nilai
Untuk programnya dalam bahasa pascal adalah :
uses
crt;
var
I: integer;
begin
clrscr;
for I:=
1 to 100 do
begin
if I mod 2= 1 then
write(I:5);
end;
Readln;
end.
Hasilnya :
