Решение систем линейных уравнений

Курсовая работа, 10 Февраля 2011, автор: пользователь скрыл имя

Описание работы

Основной целью написания этой курсовой работы была разработка программного продукта осуществляющего решение систем линейных уравнений. Для написания программного продукта была выбрана среда программирования Delphi от компании Borland версии 7.

Скачать архив (23.75 Кб) Сколько стоит заказать работу?

Файлы: 1 файл

Курсовая 1 кан.doc

— 95.00 Кб (Скачать файл)

  begin

    Label11.Caption:='X2='+(floattostr(x1));

  end;

  if sto2=4 then

  begin

    Label12.Caption:='X3='+(floattostr(x1));

  end; 

  x2:=((strtofloat(stringgrid1.Cells[5,str1]))-x1*(strtofloat(stringgrid1.Cells[sto2,str1])))/(strtofloat(stringgrid1.Cells[sto1,str1]));

  if sto1=2 then

  begin

    Label10.Caption:='X1='+(floattostr(x2));

  end;

  if sto1=3 then

  begin

    Label11.Caption:='X2='+(floattostr(x2));

  end;

  if sto1=4 then

  begin

    Label12.Caption:='X3='+(floattostr(x2));

  end; 

  x3:=((strtofloat(stringgrid1.Cells[5,str]))-x1*(strtofloat(stringgrid1.Cells[sto2,str]))-x2*(strtofloat(stringgrid1.Cells[sto1,str])))/(strtofloat(stringgrid1.Cells[sto,str]));

  if sto=2 then

  begin

    Label10.Caption:='X1='+(floattostr(x3));

  end;

  if sto=3 then

  begin

    Label11.Caption:='X2='+(floattostr(x3));

  end;

  if sto=4 then

  begin

    Label12.Caption:='X3='+(floattostr(x3));

  end; 

end; 

end.

Информация о работе Решение систем линейных уравнений

Связанные документы

Решение систем линейных уравнений методом Крамера

Решение линейных систем уравнений методом Монте-Карло

Решение систем линейных алгебраических уравнений методом Гаусса

Численные методы решения систем линейных алгебраических уравнений

Похожие темы

Решение систем линейных уравнений

Решение систем нелинейных уравнений

Решение нелинейных уравнений