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

Автор работы: Пользователь скрыл имя, 10 Февраля 2011 в 19:43, курсовая работа

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

Основной целью написания этой курсовой работы была разработка программного продукта осуществляющего решение систем линейных уравнений. Для написания программного продукта была выбрана среда программирования 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.

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