Численное решение систем линейных алгебраических уравнений, Решение уравнения 2-ого порядка Опции

[dron4ik]

Привет всем!


В качестве контрольного примера подобрать уравнение 2-ого порядка. Получить решение в ручную и по нему проверить программу. После отладки программы сформировать уравнение 2-ого порядка, коэффициенты которого выбрать с использованием датчика случайных чисел( стандартная функция ПАСКАЛЯ RANDOM)

(Мы сам задаем любое уравнение и решаем его вручную) и потом пишем прогуэ

[Unconnected]

var
  Form2: TForm2;
  k1,k2,c,D:integer;
  s:string;
  x1,x2:real;
implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  randomize;
  k1:=random(10)+1;
  k2:=random(10)+1;
  c:=random(10);
  s:=inttostr(k1)+'X^2'+'+'+inttostr(k2)+'X'+'-'+inttostr©+'=0';
  {Сгенерировали случайное квадратное уравнение}

  label2.caption:=s;
  D:=(k2*k2)-(4*k1*(-c)); {Нашли дискриминант}
  label4.caption:=inttostr(d);
  if d<0 then showmessage('Корней нет.');
  {Такой ситуации не должно возникнуть при моих параметрах Random}

  if d=0 then begin
					   label7.Caption:=floattostr(-k2/(2*k1));
  {Находим один корень при дискриминанте равном 0}
				   end;

  if d>0 then begin
				label7.Caption:=floattostr((-k2+sqrt(D))/(2*k1));
  {Находим два корня при дискриминанте > 0}
				label8.Caption:=floattostr((-k2-sqrt(D))/(2*k1));
			  end;
end; 

Программа решает уравнение со случайными коэффициентами...