Помогите исправить ошибки в программе

Тема в разделе "Delphi - Базы данных", создана пользователем Gambit, 20 дек 2007.

Статус темы:
Закрыта.
  1. Gambit

    Gambit Гость

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

    Код (Text):
    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.
     
  2. European

    Регистрация:
    4 сен 2006
    Сообщения:
    2.580
    Симпатии:
    0
    Для: Gambit
    Хвастаешься своими достижениями? Какая конкретно проблема? Или ты думаешь, что здесь телепаты сидят? Ну тогда у тебя ошибка в 17-ой строке
     
  3. European

    Регистрация:
    4 сен 2006
    Сообщения:
    2.580
    Симпатии:
    0
    Для: Gambit
    А где случай, когда дискриминант меньше 0?
     
  4. Gambit

    Gambit Гость

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

    Регистрация:
    4 сен 2006
    Сообщения:
    2.580
    Симпатии:
    0
    <!--QuoteBegin-Gambit+20:12:2007, 15:18 -->
    <span class="vbquote">(Gambit @ 20:12:2007, 15:18 )</span><!--QuoteEBegin-->Тогда может поможете мне сделать эту задачу?
    [snapback]90753" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    Мы тут удочки раздаем, а не ведра с рыбой
     
  6. European

    Регистрация:
    4 сен 2006
    Сообщения:
    2.580
    Симпатии:
    0
    Для: Gambit
    Код твоей программы можно найти за 3 минуты
     
  7. Gambit

    Gambit Гость

    Каким образом?
    Это понятно.Поэтому и назвал тему соответственно :(
    Не совсем понял вопрос ;)
     
  8. Gambit

    Gambit Гость

    Всё понял.Остался вопрос:Правильно ли составлена блок-схема?
    [​IMG]
     
Загрузка...
Похожие Темы - Помогите исправить ошибки
  1. Andersen1313
    Ответов:
    3
    Просмотров:
    3.839
  2. Rpp
    Ответов:
    1
    Просмотров:
    809
  3. victory
    Ответов:
    0
    Просмотров:
    965
  4. victory
    Ответов:
    0
    Просмотров:
    789
  5. victory
    Ответов:
    3
    Просмотров:
    1.328
Статус темы:
Закрыта.

Поделиться этой страницей