Yetkinforum | ©phpBB | Bedava yardımlaşma forumu | Suistimalı göstermek | Ücretsiz blog
ForumAlem

ForumAlem
 
AnasayfaAnasayfa  SSSSSS  AramaArama  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Kayıt OlKayıt Ol  Giriş yapGiriş yap  

Paylaş | 
 

 Pascal Girilen Sayının Asal Olup Olmadığını Bulan Program

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ToPrAk
Admin
Admin
avatar

Mesaj Sayısı : 457
Kayıt tarihi : 05/08/08
Yaş : 28
Nerden : KONYA

MesajKonu: Pascal Girilen Sayının Asal Olup Olmadığını Bulan Program   Cuma Ağus. 08, 2008 5:42 pm

Girilen Sayının Asal Olup Olmadığını Bulan Program. Klavyeden sayı girmemizi ister.Girdiğimiz sayı asal ise "Sayı Asaldır" mesajını verir.Girdiğimiz sayı asal değilse "Sayı Asal Değil" mesajını verir.Biz ne zaman "ESC" tuşuna basarsak program o zaman biter.Uses Crt;
var
sayi,kalan,i,j:integer;
Begin
Repeat
Clrscr;
write('Sayı Giriniz...:');Readln(sayi);
for i:=1 to sayi do
begin
kalan:=(sayi mod i);
if kalan=0 then j:=j+1;
end;
if j=2 then writeln('Sayı Asaldır');
if j<>2 then writeln('Sayı Asal Değildir.');
readln;
clrscr;
j=0;
until keypressed=27;
end.
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
 
Pascal Girilen Sayının Asal Olup Olmadığını Bulan Program
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Vadideki Zambak ~ Balzac
» At savur at sevdayı bir yere fırlat Bitti sayıp acıyı kaldır öyle yat......
» Volkan Konak Ayvalık Konseri

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
ForumAlem :: Programlama Dilleri :: PascaL-
Buraya geçin: