1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Подскажите в чем проблема?

Тема в разделе "Программирование", создана пользователем Adolf, 25 окт 2013.

  1. TopicStarter Overlay
    Adolf

    Adolf

    Регистрация:
    12 сен 2013
    Сообщения:
    53
    Симпатии:
    6
    Безымянный.png
    Я учу дельфи 3 день, не судите строго... без пробела перед "and" тоже самое :(
     
    Метки:
  2. TopicStarter Overlay
    Adolf

    Adolf

    Регистрация:
    12 сен 2013
    Сообщения:
    53
    Симпатии:
    6
    теперь проблема в "else" :(
     
  3. TopicStarter Overlay
    Adolf

    Adolf

    Регистрация:
    12 сен 2013
    Сообщения:
    53
    Симпатии:
    6
    345356.png
     
  4. TraidenT

    TraidenT

    Регистрация:
    13 янв 2013
    Сообщения:
    200
    Симпатии:
    100
    Скинь весь исходник... так проще, можно самому скомпилировать и исправить ошибку... чем на кофейной гуще гадать. (про кофейную гущу я скрин имел ввиду:) )
     
  5. TopicStarter Overlay
    Adolf

    Adolf

    Регистрация:
    12 сен 2013
    Сообщения:
    53
    Симпатии:
    6
    unit Unit4;

    interface

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

    type
    TForm4 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form4: TForm4;

    implementation

    {$R *.dfm}

    procedure TForm4.Button1Click(Sender: TObject);
    var
    a, b, c, x1, x2, d: Single;
    begin
    a:=StrToFloat(Edit1.Text);
    b:=StrToFloat(Edit2.Text);
    c:=StrToFloat(Edit3.Text);
    d:=b*b-4*a*c;
    if b>=0 then
    begin
    x1:=(-b-sqrt(d))/2*a;
    x2:=(-b+sqrt(d))/2*a;
    Edit4.Text:=FloatToStr (x1);
    Edit5.Text:=FloatToStr (x2)
    else
    begin
    Edit6.Text:='Корней НЕТ!'
    end;

    end.
     
  6. TraidenT

    TraidenT

    Регистрация:
    13 янв 2013
    Сообщения:
    200
    Симпатии:
    100
    Не проверял! но с компилировался!
    Код:
    unit Unit4;
    
    interface
    
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;
    
    type
    TForm4 = class(TForm)
        Button1: TButton;
        Label1: TLabel;
        Edit1: TEdit;
        Edit2: TEdit;
        Edit3: TEdit;
        Edit4: TEdit;
        Edit5: TEdit;
        Edit6: TEdit;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
    
    var
    Form4: TForm4;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm4.Button1Click(Sender: TObject);
    var
    a, b, c, x1, x2, d: Single;
    begin
    a:=StrToFloat(Edit1.Text);
    b:=StrToFloat(Edit2.Text);
    c:=StrToFloat(Edit3.Text);
    d:=b*b-4*a*c;
    if b>=0 then
    begin
    x1:=(-b-sqrt(d))/2*a;
    x2:=(-b+sqrt(d))/2*a;
    Edit4.Text:=FloatToStr (x1);
    Edit5.Text:=FloatToStr (x2)
    end
    else
    begin
    Edit6.Text:='Êîðíåé ÍÅÒ!'
    end;
    end;
    end.
    Edit4.Text:=FloatToStr (x1); Edit5.Text:=FloatToStr (x2); <---- только сейчас заметил, что не хватает ";"
     
  7. Alex-ey

    Alex-ey

    Регистрация:
    26 май 2012
    Сообщения:
    513
    Симпатии:
    323
    Дак вообще же пишется не and а end
     
  8. TopicStarter Overlay
    Adolf

    Adolf

    Регистрация:
    12 сен 2013
    Сообщения:
    53
    Симпатии:
    6
    спасибо, а то сижу голову ломаю)))
     

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

Загрузка...