Цитата(djoin95 @ 14.10.2006, 00:02  ) | | но когда я нажимаю кнопку вылазит ошибка.... |
Какая ошибка?
Ну и страшный код! Да еще и оформлен жутко. Вот хоть привел его в читабельный вид. Что хоть должна делать программа?
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
StringGrid1: TStringGrid;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
label 1;
const n=100;
type
matrix=array [1..n,1..n] of real;
var a : matrix;
i, j,
k, n1 : integer;
r, det : real;
ishora : integer;
t : boolean;
procedure orin_almash;
var
k : integer;
s : real;
p : integer;
begin
p:=1;
while (a[i+p, j]=0) and (i + p <= n1)
do
p := p + 1;
if i + p <= n1
then
begin
for k := 1 to n1
do
begin
s := a[i,k];
a[i,k] := a[i+p,k];
a[i+p,k] := s;
end;
ishora := -ishora;
end
else
begin
t := true;
det := 0;
end;
end;
begin
1 : ishora := 1;
n1 := strtoint(edit1.Text);
for i := 1 to n1
do
for j := 1 to n1
do
a[i,j] := strtofloat(stringgrid1.cells[i,j]);
det := 1;
t := false;
for i :=1 to n1 - 1
do
for j:=i to n1 - 1
do
begin
if a[i, i] = 0
then
orin_almash;
r := -a[j+1,i] / a[i,i];
for k := i to n1
do
a[j+1, k] := a[j+1, k] + r * a[i, k];
end;
for i:=1 to n1
do
det:=det * a[i, i];
det := ishora * det;
label1.Caption := floattostr(det);
end;
end.
|
|
т.к. я уже не понимаю что мне еще надо сделать что это заработало:
