![]() |
|
|
|||||||
| Kayıt ol | Yardım | Üye Listesi | Ajanda | Arama | Bugünki Mesajlar | Bütün Forumları okunmuş kabul et |
| Pascal Pascal Hakkında Aradığınız Herşey.. Pascal Kodları.. |
![]() |
|
|
LinkBack | Seçenekler |
|
|
#1 (permalink) |
|
Mesajlar: n/a
|
Kod:
uses crt;
var
main_sayi:integer;
function kontrol(sayi:integer):boolean;
var
bolen,kalan,i:integer;
begin
if (sayi=0) or (sayi=1) then
kontrol:=false
else
if sayi=2 then
kontrol:=true
else
begin
bolen:=sayi-1;
for i:=2 to bolen do
begin
kalan:=sayi mod i;
if kalan=0 then
begin
kontrol:=false;
exit;
end
else
kontrol:=true;
end;
end;
end;
begin
clrscr;
write('sayı girin>');readln(main_sayi);
if kontrol(main_sayi)=true then
writeln('sayı asaldır')
else
writeln('sayı asal değildir');
end.
|
|
![]() |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | son Mesaj |
| Fibonacci Sayılar | DeJiN | Pascal | 0 | 01-04-08 16:13 |
| 2 Sayı Arasındaki Asal Sayıları Bulan Applet Örneği | DeJiN | Java | 0 | 01-03-08 13:16 |
| 20 ile 70 arasında 10 tane rasgele sayı üretilecek, ama üretilen bu sayılar içerisind | DeJiN | C ve C++ | 0 | 12-27-07 12:38 |
mirc
mırc
sohbet
chat
çet
sohbet
chat
canlı tv