Оконное приложение - C++ - Ответ 15209416

unit slu_main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
const rrr=2;
type
  mas1=array[1..rrr] of real;
  mas2=array[1..rrr,1..rrr] of real;
 
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    Label3: TLabel;
    Edit3: TEdit;
    UpDown3: TUpDown;
    Label4: TLabel;
    Label5: TLabel;
    Edit4: TEdit;
    UpDown4: TUpDown;
    Label6: TLabel;
    Edit5: TEdit;
    UpDown5: TUpDown;
    Label7: TLabel;
    Edit6: TEdit;
    Label8: TLabel;
    UpDown6: TUpDown;
    Label9: TLabel;
    Label10: TLabel;
    Button1: TButton;
    procedure Gauss(n:integer; a:mas2; b:mas1; var x:mas1);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Gauss(n:integer; a:mas2; b:mas1; var x:mas1);
var i,j,k:integer;
    buf:real;
begin
 for i:=1 to n-1 do  { Прямой ход }
 for j:=i+1 to n do begin
  buf:=a[i,i]/a[j,i];
  for k:=1 to n do a[j,k]:=a[j,k]*buf-a[i,k];
  b[j]:=b[j]*buf-b[i];
 end;
 x[n]:=b[n]/a[n,n];
 for i:=n-1 downto 1 do begin { Обратный ход }
  buf:=0;
  for j:=i+1 to n do buf:=buf+a[i,j]*x[j];
  x[i]:=(b[i]-buf)/a[i,i];
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject); 
var a1:mas2; b1,x:mas1;
begin
 // Формирование коэффициентов матрицы
 a1[1,1]:=StrToFloat(Edit1.Text); a1[1,2]:=StrToFloat(Edit2.Text); b1[1]:=StrToFloat(Edit3.Text);
 a1[2,1]:=StrToFloat(Edit4.Text); a1[2,2]:=-StrToFloat(Edit5.Text); b1[2]:=StrToFloat(Edit6.Text);
 
 // Решение системы уравнений
 Gauss(2,a1,b1,x);
 
 // Вывод результата
 Label9.Caption:='Цена 1 кг апельсинов: '+FloatToStrF(x[1],ffFixed,4,2);
 Label10.Caption:='Цена 1 кг лимонов: '+FloatToStrF(x[2],ffFixed,4,2);
end;
 
end.