16-01-2011, 07:43 PM
[FONT="Arial Black"]السلام عليكم
قمت بتحويل برنامج من باسكال الى دلفي وقمت بمايلي لكن هناك خطأ عند تنفيذ البرنامج
قمت بتحويل برنامج من باسكال الى دلفي وقمت بمايلي لكن هناك خطأ عند تنفيذ البرنامج
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..3]of integer;
b:array[1..3]of integer;
c:array[1..3]of integer;
i,j,k:integer;
begin
for i:=0 to 2 do
for j:=0 to 2 do
for k:=0 to 2 do
c. Cells[i,j]=inttostr(strtoint(c. Cells[i,j])+ inttostr(a.cells[i,j])*(inttostrb(cells[j,i]));
end;
end.