[@-=Den=-]

данная программа при за пуске вываливается с ошибкой "Floating point overflow"
пересмотрел весь код - не могу найти причину.

Delphi

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Grids;   type Vector = array[1..100] of Extended; Matrix = array[1..100] of Vector;   TForm1 = class(TForm)     SG1: TStringGrid;     SG2: TStringGrid;     Label1: TLabel;     Edit1: TEdit;     Label2: TLabel;     Label3: TLabel;     Label4: TLabel;     Label5: TLabel;     Label6: TLabel;     Label7: TLabel;     Button1: TButton;     Button2: TButton;     Memo1: TMemo;     Label8: TLabel;     SG3: TStringGrid;     Edit2: TEdit;     Label9: TLabel;     Button3: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var a: Matrix; b,x: Vector; n:integer; Form1: TForm1; x0: extended;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var m:integer; begin m:=strtoint(edit1.text); SG1.colCount:=m; SG1.rowCount:=m; SG2.colCount:=1; SG2.rowCount:=m; SG3.colCount:=1; SG3.rowCount:=m; end;   procedure TForm1.Button2Click(Sender: TObject); var   s1, k: double;   eps: real;   i, j: integer; //  q: boolean; begin n:=StrToInt(Edit1.Text); for j:=1 to n do   for i:=1 to n do     a[i,j]:=StrToFloat(SG1.Cells[j-1,i-1]); eps:=StrToFloat(Edit2.Text); for i:=1 to n do   b[i]:=StrToFloat(SG2.Cells[0,i-1]); begin   repeat   k:=0;   for i := 1 to n do   begin     s1 := 0;     For j := 1 to n do       if i <> j then         s1 := s1 + a[i, j]*x[j];     x0 := x[i];     x[i] :=(b[i]-s1)/a[i,i];     k:=abs(x[i])-abs(x0);   end;   inc(j);   Until k < eps;   for i:=1 to n do begin   s1:=0;   for j:=1 to n do     if j<>i then       s1:=s1+abs(a[i,j]);   if s1 >= abs (a[i,i]) then   begin     Memo1.Lines.Add('Метод Зейделя не сходится для данной системы');     break;   end; end; end;     for i:=1 to n do     SG3.cells[0,i-1]:=FloatToStr(x[i]);   Memo1.Lines.Add(' Количество итераций: '+IntToStr(j));   end;   procedure TForm1.Button3Click(Sender: TObject); begin Edit1.text:='2'; SG1.Cells[0,0]:='1'; SG1.Cells[0,1]:='3'; SG1.Cells[1,0]:='2'; SG1.Cells[1,1]:='5'; SG2.Cells[0,0]:='4'; SG2.Cells[0,1]:='5'; end;   end.

[@Andretti]

-=Den=-, прикрепи скрин.. потому что у меня все работает
смотри вложение

[@Andretti]

-=Den=-, может какое-то значение ты не ввел? у меня почему-то такое ощущение....

ошибкой "Floating point overflow"

[@-=Den=-]

работает. но если точность вместо 34 ввести 2 и меньше, то не работает

[@Andretti]

-=Den=-, а хде сдеся точность у тебя?? у меня все компоненты ведь от балды выставлены на скрине. какое поле за точность отвечает?

Добавлено через 57 секунд
а.. вижу..

[@Andretti]

-=Den=-, опять врешь.. смотри скрин..

[@Andretti]

-=Den=-, проверь что ты вводишь как знак отделяющий целые - запятая или точка?

[@-=Den=-]

ввожу запятую

Pr1.rar