2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Помогите отладить Delphi-программу
Сообщение02.05.2007, 22:59 
Помогите, пожалуйста, разобраться...

Возникла такая проблема:

Выполняющая процедура программы:
(3 стрингрида(StringGrid1) - А,В,С. Надо считать матрицу с стрингрида_А, и стрингрида_В, сложить и вывести в стрингрид_С)

Код:
procedure TFrm1.cmd_pyskClick(Sender: TObject);
var i,j,n:integer;
    c_A,c_B,c_C:array[1..10,1..10] of real;
begin
  //n-размер матрицы
   n:=strtoint(txt_razm_matr.Text);
 
  //считываю поток входных данных из стрингрида (ошибка на этом этапе)
  For i:=0 to (n-1) do
    For j:=0 to (n-1) do
      begin
        c_A[i,j]:=strtofloat(sg_A.Cells[i,j]);
        c_B[i,j]:=strtofloat(sg_B.Cells[i,j]);
      end;

   //складываю матрицы
      For i:=0 to (n-1) do
        For j:=0 to (n-1) do
          begin
            c_c[i,j]:=c_a[i,j]+c_b[i,j];
            sg_C.Cells[i,j]:=floattostr(c_c[i,j]);
          end;
    end;

end;


Программа компилируется, но при тестировании возникает ошибка
Debugger Exception Notification (ну там, как при не корректном вводе данных)

Ошибка, например, при таком потоке ввода
1 1 1 2 2 2
1 1 1 + 2 2 2
1 1 1 2 2 2

Заранее благодарен...

 
 
 
 
Сообщение02.05.2007, 23:04 
Аватара пользователя
У вас массив задан идексами 1..10, а в циклах вы гоняете i от 0 до некоторого n-1. Либо в задании массива замените индексы на 0..9, либо циклы гоняйте от 1 до n.

 
 
 
 
Сообщение04.05.2007, 23:18 
maxal, Спасибо! :)

 
 
 [ Сообщений: 3 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group