1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Как Правильно Вставить Функцию?

Тема в разделе "Delphi - программирование", создана пользователем Dimkawshm, 3 июн 2014.

  1. Dimkawshm

    Dimkawshm Member

    Репутация:
    0
    Регистрация:
    2 июн 2014
    Сообщения:
    10
    Симпатии:
    0
    PHP:
    unit Unit1;

    interface

    uses
    Windows
    MessagesSysUtilsVariantsClassesGraphicsControlsForms,
    DialogsStdCtrls;

    type
    TForm1 
    = class(TForm)
    Button1TButton;
    procedure Button1Click(SenderTObject);
    private
    { Private 
    declarations }
    public
    { Public 
    declarations }
    function 
    F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
    end;

    var
    Form1TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(SenderTObject);
    begin
    Canvas
    .Pixels[10,20]:=clBlack;
    function 
    Tform1.F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
    begin
    F
    :=Sin(x);
    Xmax:=4*pi;
    Xmin:=0;
    Ymax:=1;
    Ymin:=-1;
    end;

    end;

    end.
    Ошибка Statement expected but "FUNCTION" found
    и тюп
     
  2. sinkopa

    sinkopa Well-Known Member

    Репутация:
    0
    Регистрация:
    17 июн 2009
    Сообщения:
    344
    Симпатии:
    9
    Код:
    // ...
    implementation
    // ...
    function F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
    begin
    // F := Sin(x);
    Result := Sin(x);
    Xmax :=4*pi;
    Xmin := 0;
    Ymax := 1;
    Ymin :=-1;
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
    a,b,c,d,e: Real;
    begin
    Canvas.Pixels[10,20]:=clBlack;
    
    e := F(1.5,a,b,c,d);
    // ... бла бла...
    
    end;
     
  3. Vadik(R)

    Vadik(R) Well-Known Member

    Репутация:
    0
    Регистрация:
    12 дек 2007
    Сообщения:
    469
    Симпатии:
    0
    Есть, кстати, и такой вариант - вставить функцию до begin:
    Код:
    // ...
    implementation
    // ...
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
    a,b,c,d,e: Real;
    
    function F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
    begin
    // F := Sin(x);
    Result := Sin(x);
    Xmax :=4*pi;
    Xmin := 0;
    Ymax := 1;
    Ymin :=-1;
    end;
    
    begin
    Canvas.Pixels[10,20]:=clBlack;
    
    e := F(1.5,a,b,c,d);
    // ... бла бла...
    
    end;
     
Загрузка...

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