Algoritma Hitung Jumlah Bilangan Ganjil dengan IF dan WHILE

Pada kesempatan ini,TS mengambil sedikit waktu luang buat posting algoritma dalam bahasa pemrograman Pascal.Saat ini TS akan share mengenai Algoritma Hitung Jumlah Bilangan Ganjil dengan IF dan WHILE.Jika sobat masih bingung dengan logika nya,maka copy dan pelajari saja algoritma yang TS share.


program HitungJumlahBilanganGanjil;
uses crt;
var
  bawah : integer;
  atas  : integer;
  hasil : integer;
begin
clrscr;
  write('Batas Bawah : ');
  readln(bawah);
  write('Batas Atas : ');
  readln(Atas);
  IF(Bawah mod 2 <> 0) and (atas mod 2 <> 0) then
  begin
      Hasil := ((atas - bawah) div 2) + 1;
  end
  else
  begin
      Hasil := ((atas - bawah) + 1) div 2;
  end;
  while (atas > bawah) do
  begin
    write(' Jumlah bilangan ganjil antara '  , bawah,  ' dan '  , atas,  ' adalah ' , hasil, ' buah ' );
    atas := atas - (atas + hasil);
    end;
    readln;
end.



Voila...Program tercompile dengan successfull.Selamat belajar.

Kunjungi juga : Mainan Teknologi Web: Persiapan Assessment 3

Browse More Articles

Tweet

Written by Unknown

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.