Delphi Программирование С Использованием Подпрограмм

Тема в разделе "Pascal and Delphi", создана пользователем QPW, 15 апр 2012.

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

    QPW Гость

    Задание: Посмотреть вложение Условие_.doc



    Исправьте, пожалуйста, ошибки!


    unit Unit1222;

    interface

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

    type
    TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}
    procedure z(a,b:real; var res:real);
    const eps=1E-5;
    var
    s:boolean;x3,n,x1:real;
    function f(x:real):real;
    begin
    f:=((b-a)/2*n)*x;
    end;
    begin
    s:=f(a)< 0;
    repeat
    x1:=(a+B)/2;
    x3:=f(x1); n:=n+1;
    if (x3<0)=s then a:=x1
    else b:=x1;
    until abs(a-B)<eps;
    res:=x1;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    var a,b,x1,x2,y:real;
    begin
    a:=StrToFloat(edit1.Text);
    b:=StrToFloat(edit2.Text);
    x1:=a;
    x2:=b;
    z(x1,x2,y);
    edit3.Text:=FloatToStrF(y,fffixed,8,4);


    end;

    end.
     
Загрузка...
Похожие Темы - Delphi Программирование Использованием
  1. avizer
    Ответов:
    5
    Просмотров:
    729
  2. cybert
    Ответов:
    0
    Просмотров:
    94
  3. Shouldercannon
    Ответов:
    0
    Просмотров:
    156
  4. antares
    Ответов:
    0
    Просмотров:
    439
  5. Луиза
    Ответов:
    0
    Просмотров:
    295
Статус темы:
Закрыта.

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