Soru = işleminin sonucunu veren programı yapınız. Not: b sıfır olamaz.

Şekli:

Kodlar :

Procedure TForm1.Button1Click(Sender: TObject); 
var 
x,y:real;

Procedure bolme(a,b:real); 
var 
c:real;

begin 
if b=0 then showmessage('b değeri sıfır olamaz')
else begin
c:=a/b;
showmessage(floattostr(c));
end; 
end; 

begin 
x:=strtoint(inputbox('a','a değerini giriniz',''));
y:=strtoint(inputbox('b','b değerini giriniz',''));
bolme(x,y);
end; 

Çalışma Şekli : 

Klavyeden a ve b sayıları girildikten sonra a' nın b' ye bölüm sonucu ekrana bildirir.