Деление на 0

[Garmata]

В проекте при компиляции в введении стартовых данных
Выскакивает ошибка деление на ноль, что бы не присваивал переменной
Кто шарит помогите !

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, TeEngine, TeeProcs, Chart, Series;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Chart1: TChart;
DBText1: TDBText;
Series1: TFastLineSeries;
Series2: TFastLineSeries;
Series3: TFastLineSeries;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Gd, Gm , Um, Ts: Integer;
R,L,Q,I,DI,t,Om,Tmax,T0,Tm,d,dt,UR, UC,UL : real;
const
EDS = 1.0 {Bольти};
Umax = 2.0 {Bольти };
C = 1E-6 {Фаради};

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=FloatToStr(L);
edit2.Text:=FloatToStr(R);
edit3.Text:=FloatToStr(T0);
edit4.Text:=FloatToStr(d);

Om:=1/sqrt(L*C); {цикліч. частота LC-контура}
dt:=d/Om; {крок}
Tmax:=2*pi*T0/Om; {часовий відрізок проведення розрахунків}

{задання початкових значень}
t:=0;
Q:=0;
I:=0;

{розвязок рівнянь методом ейлера}
while t <= Tmax do
begin
DI:=-(I*R*C*Om + Q - EDS*C);
I:=I+DI*d;
Q:=Q+I*d;
UR:=I*R*Om;
UC:=Q/C;
UL:=L*DI*Om*Om;
t:=t+dt;

end;
end;

end.

[type_Oleg]

Сообщение от Garmata

в введении стартовых данных ..

Вы не вводите, а выводите

edit1.Text:=FloatToStr(L);

Надо наоборот

L:=StrToFloat(edit1.Text);

[Аватар]

А что должно выдавать при делении на 0? Посмотрите что в L и C задаете или не задаете

[Garmata]

Спасибо большое !

[type_Oleg]

Кстати, лучше в таких случаях обеспечить защиту от ввода всякой фигни, например букв, отриц. значений

 L:=StrToFloatDef(edit1.Text,0); 
 if L<=0 then 
  begin
   ShowMessage('индуктивность должна быть > 0');
   Exit;
  end;

[Alex2009]

Вообще в школах учат что делить на 0 нельзя, ну а с точки зрения математики можно, но получаем в результате бесконечное число. Так вот мне интересно зачем вам нужно делить на 0?

[Аватар]

Вообще в школах учат что делить на 0 нельзя, ну а с точки зрения математики можно, но получаем в результате бесконечное число

Где такая математика? Что-то не встречал

[type_Oleg]

Да, ∞ - это не число. В математике.
Правда, можно или нельзя, это надо смотреть определение понятия деление Я не помню.