INDONESIANWARE - Pada Artikel yang anda baca kali ini dengan judul Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Turbo Pascal, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal
link : Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal

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.

Sekianlah artikel Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal dengan alamat link https://ware-id.blogspot.com/2014/03/mencari-bilangan-genap-ganjil-dan-prima.html