sobat ini saya mau kasih sedikit dari hasil kulia saya tentang pemrograman ni bagi kalian para programer ini saya ada sebuah program yang lumayan bagus ni semoga bisa berguna ya....
Program Bil_Prima_Antara;
Uses Crt;
Var
awal, akhir, a, b, jumlahnol : Integer;
Begin
Clrscr;
Write('Masukan nilai awal = ');readln(awal);
Write('Masukan nilai akhir = ');readln(akhir);
For a := awal To akhir Do
{Telah kita ketahui bahwa bilangan prima hanya akan memiliki sisa bagi = 0, ketika dibagi dengan angka 1 dan bilangan itu sendiri}
Begin
jumlahnol := 0;
For b:= 1 To a Do
{Berarti jika bilangan prima dibagi dengan bilangan berapa pun hanya memiliki 2 kesempatan mendapatkan sisa bagi = 0}
Begin
If a mod b = 0 Then
jumlahnol := jumlahnol+1;
End;
{Ketika jumlah sisa bagi = 0 lebih dari 2, berarti bilangan tersebut bukan bilangan prima, tidak ditampilkan ke layar}
If jumlahnol = 2 Then
Write(a:4);
End;
Readln;
End.
0 komentar:
Posting Komentar