|
Soru = Klavyeden girilen 2 sayının çarpımını çarpı işareti kullanmadan hesaplayan programı fonksiyonda yapınız.
Şekli :
Kodlar :
Function carp(a,b:integer):integer;
var
s:integer;
m:integer;
begin
s:=0;
for m:=1 to a do
begin
s:=s+b;
end;
carp:=s;
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
x,y,sonuc:integer;
begin
x:=strtoint(Edit1.Text);
y:=strtoint(Edit2.Text);
sonuc:=carp(x,y);
Edit3.Text:=inttostr(sonuc);
end;
Çalışma Şekli :
 
Birinci sayı ve ikinci sayıyı girdikten sonra ‘Hesapla' butonuna tıkladığımızda Sonuç kısmını bize gösterir.
|
