Собственно, нужно решить квадратное уравнение a2x-bax-c=0(a в степени 2x минус ba(a в степени x) минус c равно 0) в среде Delphi и отладить программу

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
a,b,c,y,x1,x2,:Real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
y:=StrToFloat(Edit1.text);
b:=StrToFloat(Edit2.text);
c:=StrToFloat(edit3.text);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
var d,Log,:real;
begin
                label7.Caption:='';
                label10.Caption:='';
                label11.Caption:='';
  if (y>0) then begin
            d:=b*b-4*y*c;
            if d>=0 then
                      begin
                          y1:=(-b-sqrt(d))/(2*y);
                          y2:=(-b+sqrt(d))/(2*y);
                label9.Caption:='уравнение имеет два корня';
                label10.Caption:=floatToStr(x1);
                label11.Caption:=floatToStr(x2);
                      end
          then
          begin
               x1,2:=Loga y
                label9.Caption:='уравнение имеет два корня';
                label10.Caption:=floatToStr(x1);
                label11.Caption:=floatToStr(x2);
          end end
     else if (b:=0) else
                      begin
      else
          if (c:=0) then
                    begin
                    y*y:=c
                    then
                    begin
                     x:=Loga c/2
                     label9.Caption:='уравнение имеет один корень';
                         label10.Caption:=floatToStr(x1);
                          label11.Caption:=floatToStr(x2);
                          end

          end;

end;

end.

Для: Gambit
Хвастаешься своими достижениями? Какая конкретно проблема? Или ты думаешь, что здесь телепаты сидят? Ну тогда у тебя ошибка в 17-ой строке

а где ошибки то?

Для: Gambit
А где случай, когда дискриминант меньше 0?

Для: European
да ты что .. там сначала надо привести в порядок сам код (синтаксис, ;, ... )

Тогда может поможете мне сделать эту задачу?А то я совсем не понимаю

Мы тут удочки раздаем, а не ведра с рыбой

Для: Gambit
где вы взяли код из #1 ?

Для: Gambit
Код твоей программы можно найти за 3 минуты

Каким образом?

Это понятно.Поэтому и назвал тему соответственно

Не совсем понял вопрос

Конкретно, в каком месте?
самым прямым -> руки.ехе

везмем к примеру вот этот кусок
else if (b:=0) else
begin
else
его надо исправить, что тут непонятно?

Всё понял.Остался вопрос:Правильно ли составлена блок-схема?
]]>]]>