Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal

Setelah beberapa jam yang lalu saya memposting tentang Perulangan While do di Turbo Pascal
kali ini saya akan memposting tentang Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal
Sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu Perulangan For do di Turbo Pascal karena untuk mencari bilangan genap ganjil dan prima ini saya akan menggunakan perulangan For

Oke langsung saja yang pertama

Mencari Bilangan Genap di Turbo Pascal

program bil_genap;
uses crt;
var
 bil1,bil2:integer;
begin
 clrscr;
 writeln('=================');
 writeln('Tutorial Koding');
 writeln('=================');
 writeln('');
 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);

 write('Bilangan Genap Yang Ditemukan : ');
 for bil1:=bil1 to bil2 do
 begin
  if (bil1 mod 2 = 0) then
  begin
   write(bil1,' ');
  end;
 end;
 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini

Mod digunakan untuk mendapatkan sisa pembagian, jika bil1 mod 2 = 0 maka akan dimunculkan sebagai bilangan genap

Mencari Bilangan Ganjil di Turbo Pascal

program bil_ganjil;
uses crt;
var
 bil1,bil2:integer;
begin
 clrscr;
 writeln('=================');
 writeln('Tutorial Koding');
 writeln('=================');
 writeln('');
 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);
 
 write('Bilangan Ganjil Yang Ditemukan : ');
 for bil1:=bil1 to bil2 do
 begin
  if (bil1 mod 2 = 1) then
  begin
   write(bil1,' ');
  end;
 end;
 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini

Mod digunakan untuk mendapatkan sisa pembagian, jika bil1 mod 2 = 1 maka akan dimunculkan sebagai bilangan ganjil

Mencari Bilangan Prima di Turbo Pascal

program bil_prima;
uses crt;
var
 bil1,bil2,a,b:integer;
begin
 clrscr;
 writeln('====================');
 writeln('Tutorial Koding');
 writeln('====================');
 write('Masukan Bilangan Pertama : ');
 write('Masukan Bilangan Kedua : ');
 
 write('Bilangan Prima Yang Ditemukan : ');
 for bil1:=bil1 to bil2 do
 begin
  a:=0;
  for b:=1 to bil1 do
  begin
   if (bil1 mod b = 0) then
   begin
    a:=1+1;
   end;
  end;
 if (a=2) then
 begin
  write(bil1,' ');
 end;
 end;

 readln;
end.

Jika dijalankan maka akan seperti gambar dibawah ini

Semoga Berhasil
Semoga bermanfaat, jangan lupa berikan komentar pada postingan ini.