Soru = Klavyeden girilen sayının asal olup olmadığını bulan programı fonksiyonda yapınız.
Şekli :
Kodlar :
Function asal(n: integer): Boolean;
var
x: real;
i,r,c:integer;
begin
C := 0;
x := Sqrt(n);
r := round(x);
For i := 2 to r do
if (n mod i) = 0 then
inc(c);
if c > 0 then
begin
asal := False;
showmessage('Girdiğiniz Sayı : Asal Sayı Değildir');
end
else
begin
asal := True;
showmessage('Girdiğiniz Sayı : Asal Sayıdır');
end;
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
s:integer;
begin
s:=strtoint(edit1.text);
asal(s);
end;
Çalışma Şekli :
 
Programı çalıştırdıktan sonra klavyeden sayı girdikten sonra ‘Asal Sayı Mı?’ butonuna tıkladığımızda girdiğimiz sayının asal olup olmadığını ekrana bildirir.
|
