Delphi Soru ve Cevapları
1) Bir delphi formnda button1,edit1,edit2 ve edit3 bulunmaktadır edit 1 e girilen sayı ile edit2 e girilen sayı arasında olan tam sayılardan asal olmayanların ortalamasını bulup edit3 eyazan delphi kodlarını button1 için yazınız.
CEVAP: 1
2) Bir delphi formunda button1.edit1,edit2 ve edit 3 bulunmaktadır.edit1 ve edit 2 ye rastgele girilen iki tam sayıyı kullanarak (x/y)işleminin sonucunda bölüm ve kalanı(mod ,dıv ,trunc fonksiyonlarını kullanamdan)
hesaplayıp edit3 e yazan delphi kodlarını button1 için yazınız.
CEVAP: 2
3) Bir delphi formunda checbox1 ve checkbox2 bulunmaktadır.
Buchecboxların radiobutton gibi davranmalarını sağlayan delphi kodlarını checkbox ların olaylarına(evennt) yazınız.
CEVAP: 3
CEVAP: 1
Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
sayi1,sayi2,i,m,toplam,asal,sayac:integer;
ortalama:double;
begin
sayi1:=strtoint(edit1.Text);
sayi2:=strtoint(edit2.Text);
toplam:=0;
asal:=1;
sayac:=0;
for i:=(sayi1+1) to (sayi2-1) do
begin
for m:=2 to (i-1) do
begin
if (i mod m=0) then asal:=0;
end;
if asal= 0 then
begin
toplam:=toplam +i;
sayac:=sayac+1;
end;
asal:=1;
end;
ortalama:=(toplam/sayac);
edit3.Text:=inttostr(toplam) + ' / ' + inttostr(sayac) + ' = ' + floattostr(ortalama);
end;
end.
2) Bir delphi formunda button1.edit1,edit2 ve edit 3 bulunmaktadır.edit1 ve edit 2 ye rastgele girilen iki tam sayıyı kullanarak (x/y)işleminin sonucunda bölüm ve kalanı(mod ,dıv ,trunc fonksiyonlarını kullanamdan)
hesaplayıp edit3 e yazan delphi kodlarını button1 için yazınız.
CEVAP: 2
Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
sayi1,sayi2,kalan,bolum :integer;
begin
sayi1:=strtoint(edit1.Text);
sayi2:=strtoint(edit2.Text);
kalan:=sayi1;
bolum:=0;
repeat
kalan:=kalan-sayi2;
bolum:=bolum+1;
until kalan<sayi2;
edit3.Text:='Bölüm=' + inttostr(bolum) + 'Kalan=' +inttostr(kalan);
end;
end.
3) Bir delphi formunda checbox1 ve checkbox2 bulunmaktadır.
Buchecboxların radiobutton gibi davranmalarını sağlayan delphi kodlarını checkbox ların olaylarına(evennt) yazınız.
CEVAP: 3
Kod:
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox2.checked then checkbox2.checked:=False
else checkbox1.checked:=True;
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox1.checked then checkbox1.checked:=False
else checkbox2.checked:=True;
end;