- Katılım
- 28 Ocak 2013
- Mesajlar
- 18
- Reaction score
- 0
Bu yazıda delphi ile 2 adet stringgrid?in içindeki sayıları çapma ve toplama işlemi yaptıracağız. Uzatmadan gerekli kodlar ;
Öncelikle form üzerine sg1 ve sg2 adında StringGrid oluşturalım toplanacak ve çarpılacak sayılar bunun üstünde olacaktır. Bu sg1 ve sg2 5×5 lik olmalıdır çünkü buna göre yazılmıştır sizler üstünde oynayarak bunu düzenleyebilirsiniz. Sg3 de 5×5 olmalıdır.Rasgele iki StringGrid?i sayılarla doldurmak için:
Rasgele iki StringGrid?i sayılarla doldurmak için:
Kod:
var
i,j:integer;
begin
randomize;
for j:=0 to 4 do begin
for i:=0 to 4 do begin
if Random(2)=1 then
sg2.Cells[i,j]:=inttostr(Random(20)*-1)
else
sg2.Cells[i,j]:=inttostr(Random(20));
if Random(2)=1 then
sg1.Cells[i,j]:=inttostr(Random(20)*-1)
else
sg1.Cells[i,j]:=inttostr(Random(20));
end;
end;Toplamak için kodlar;
Kod:
var
i,j:integer;
begin
for j:=0 to 4 do begin
for i:=0 to 4 do begin
sg3.Cells[i,j]:=sg1.Cells[i,j] +'+'+ sg2.Cells[i,j]+'= ';
sg3.Cells[i,j]:=sg3.Cells[i,j]+inttostr(strtoint(sg1.Cells[i,j]) + strtoint(sg2.Cells[i,j]));
end;
end;
end;Çarpmak için kodlar;
Kod:
var
x,y,i,toplam:integer;
t1:string;
begin
t1:='';
toplam:=0;
for x:=0 to 4 do begin //satır
for y:=0 to 4 do begin //sütun
for i:=0 to 4 do begin
t1:=t1 +'(' + sg1.Cells[i,x]+'*'+sg2.Cells[y,i]+')';
toplam:=toplam + strtoint(sg1.Cells[i,x])*strtoint(sg2.Cells[y,i]);
end;
sg3.Cells[y,x]:=t1+'='+inttostr(toplam);
t1:='';
toplam:=0;
end;
end;
end;Kaynak: http://www.tekno-logy.com/delphi-matris.html