Soru = Klavyeden girilen 2 sayının ebobunu bulan programı fonksiyonda yapınız.
Şekli :
Kodlar :
Function obebhsp(x,y:integer):integer;
var
i,obeb,buyuk,kucuk:integer;
begin
if x>y then
buyuk:=y
else
kucuk:=x;
for i:=1 to kucuk do
begin
if (x mod i=0) and (y mod i=0) then
obeb:=i;
end;
showmessage('2 Sayının Ebobu : '+ inttostr(obeb));
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
a,b,i:integer;
begin
a:=strtoint(inputbox('X Değeri','X Değerini Giriniz....>',''));
b:=strtoint(inputbox('Y Değeri','Y Değerini Giriniz....>',''));
obebhsp(a,b);
end;
Çalışma Şekli :
 
Programı çalıştırdıktan sonra ‘İki Sayının Obebi’ butonuna tıkladığımızda ekrana veri girebileceğimiz pencere açılır. Klavyeden 2 sayı girildiğinde bu 2 sayının obebini alarak ekranda sonucu bildirir.
|
