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:
125:
126:
127:
128:
129:
130:

var
  Form1: TForm1;
  a,b,c,d,e,f,x,y:real;

  implementation

{$R *.dfm}



{----------------------------------------------------}

function g(a,b,c,d,e,f,x:real):real;
begin
         g:=(a*x*x+b*x+c)/(d*x*x+e*x+f);
    
end;

{----------------------------------------------------}

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

{---------------------------------------------------}

procedure TForm1.Button2Click(Sender: TObject);  //erkennen der funktion
begin
 a:=StrToFloat(Edit1.Text);
 b:=StrToFloat(Edit5.Text);
 c:=StrToFloat(Edit6.Text);

 d:=StrToFloat(Edit7.Text);
 e:=StrToFloat(Edit8.Text);
 f:=StrToFloat(Edit9.Text);

end;

{---------------------------------------------------}

procedure TForm1.Button5Click(Sender: TObject);  //wertetabelle
var x,y:real;
    i:integer;
begin
  for i:=-5 to 5 do
     begin
        x:=i;
        y:=g(a,b,c,d,e,f,x);
        memo1.Lines.add(inttostr(i));
   if d*x*x+e*x+f=0 then memo2.Lines.Add('nicht definiert')
   else
        memo2.Lines.Add(FloatToStrF(y,ffFixed,10,2));

//ende sonst
     end;


end;

{-------------------------------------------------}

procedure TForm1.Button4Click(Sender: TObject); //polstelle
var p1,p2,m,z:real;
begin

    z:=e*e/(4*d*d)-f/d;

    if z<0 then edit3.Text:='keine polstelle'

      else
             begin

                p1:=-e/(2*d)+sqrt(z);
                p2:=-e/(2*d)-sqrt(z);

              end;

          edit3.text:=Floattostr(p1);
          edit10.text:=floattostr(p2);



end;

procedure TForm1.Button3Click(Sender: TObject); //definitionsbereich
begin

  if a*x*x+b*x+c=0
      then edit2.Text:=floattostr(y)

      else edit2.text:='';
end;

procedure TForm1.Button6Click(Sender: TObject);   //nullstelle
var n1,n2,m,z:real;
begin

z:=b*b/(4*a*a)-c/a;
   if z<0 then edit11.Text:='keine nullstelle'
          else

                begin
                   n1:=-b/2*a+sqrt(z);
                   n2:=-b/2*a-sqrt(z);
                end;

           edit11.text:=Floattostr(n1);
           edit12.text:=floattostr(n2);


end;



procedure TForm1.Button7Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
edit10.Clear;
edit11.Clear;
edit12.Clear;
memo1.Clear;
memo2.Clear;                    

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:

function QuadNull(const A,B,C: Double; var Nr1,Nr2,Ni1,Ni2: Double): Integer;
var
  P,Q,Dis: Double;
const 
  Epsilon = 1E-10;
begin
  P := B/A;
  Q := C/A; //x²+px+q
  Dis := P*P-Q; //Diskriminante
  Nr1 := -P*0.5;
  Nr2 := Nr1;
  if Dis<0 then
    begin
      Ni1 := Sqrt(Abs(Dis));
      Ni2 := -Ni1;  
      Result := 0;
    end
  else
    begin
      if Abs(Dis)<Epsilon then Result := 1
      else
        begin
          Nr1 := Nr1+Sqrt(Dis);
          Nr2 := Nr2-Sqrt(Dis);
          Result := 2;
        end;   
    end;
end;                    

1:

.Add(FloatToStr(X)+#9+floatToStr(Y));