Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
45 / 45 / 15
Регистрация: 17.01.2013
Сообщений: 328
1

Не могу понять ошибку

16.03.2013, 12:42. Просмотров 369. Ответов 1
Метки нет (Все метки)


Всем здрасте. Помогите кто-чем может
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
procedure TForm1.StartClick(Sender:TObject);
var
  i, j, K, S:integer;
  E:real;
  a:array of array of real;
  B, Z, x: array of real;
begin
  E:=StrToFloat(LabeledEdit2.Text);
  SetLength(A,N,N);
  SetLength(B,N);
  SetLength(Z,N);
  SetLength(x,N);
 
  for i:=0 to N-1 do
  begin
   for j:=0 to N-1 do
   A[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);
   B[i]:=StrToFloat(StringGrid1.Cells[N,i]);
   Z[i]:=B[i];
  end;
 
  S:=0;
 
  repeat
  K:=0;
 
    for i:=0 to N-1 do
      begin
       x[i]:=-B[i];
 
       for j:=0 to N-1 do
       x[i]:=x[i]+Z[i]*A[i,j];
 
       if abs(x[i]/A[i,j])>=E then K:=1;
       x[i]:=Z[i]+x[i]/A[i,j];
       Z[i]:=x[i];
    end;
 
  S:=S+1;
  until K=1;
 
  for i:=0 to N-1 do
  begin
   StringGrid2.Cells[0,i]:=FormatFloat('0.00' ,x[i]);
   StringGrid1.Cells[j,i]:=FormatFloat('0.00' ,S);
  end;
 
end;
В этой строке ошибку "floating power overflow"

Delphi
1
       x[i]:=Z[i]+x[i]/A[i,j];
Заранее спасибо
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2013, 12:42
Ответы с готовыми решениями:

Не могу понять ошибку
begin s:=ExtractFilePath(Application.ExeName); case TreeView1.Selected.AbsoluteIndex of...

Не могу понять ошибку
В этом коде при компиляции пишет в строке Seek(ft, sc);: Implicit string cast with potential data...

Создаю класс. Не могу понять ошибку
type Neuron = class public Weights: array of double; THValue: double; procedure...

Показывает ошибку, не могу понять причину
Показывает такую ошибку Project2.dpr(16): Illegal type in Write/Writeln statement в 16 строке ...

__________________
Помогаю в написании студенческих работ здесь.
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30870 / 20191 / 7875
Регистрация: 22.10.2011
Сообщений: 35,052
Записей в блоге: 6
16.03.2013, 12:53 2
Что именно не понятно? Переполнение там, не хватает емкости типа real для того, чтобы представить число, получающееся в результате выполнения этой операции. Скажем, есть уже в Z[i] очень большое число, на грани возможностей real (5.0e-324 .. 1.7e+308), и ты к нему добавляешь еще одно, такое же. Всё, переполнение.

Либо переходи на более емкий тип (Extended, но это тоже может не помочь, если алгоритм не правильный), либо проверяй, не зацикливается ли вычисление с твоими данными (ты ж их не привел, поэтому и проверяй сам).
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2013, 12:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Выдает ошибку. Не могу понять что не так(
procedure TForm1.btn1Click(Sender: TObject); var a,b,c:Integer; x1,x2,D: Real; begin If...

Не могу понять ошибку. Постоянно её выдает на выделенном ниже моменте
unit Unit7; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Ребят, выкидает ошибку в ряде Case. Не могу понять что не так
На панели интерфейса предусмотреть возможность выбора одной из трех функций f (x): sin (x), x^2,e^x...

Надо исправить ошибку, не могу понять в чем дело. Тема модули
program project1; uses unit1,unit2; var A:tm1; B:tm1; C:tm1; i,j,imx,imin:integer;...

Подскажите ошибку,не могу понять где что изменить чтобы прога работала
Подскажите ошибку,не могу понять где что изменить чтобы прога работала. Var q,s,i: real; ...

Решение задач в Delphi/ Не могу понять, как исправить эту ошибку(Задание. Точно два числа положительные с asm)
procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d,s, mass,n :integer ; begin...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.