Создать Блок- Схему

Тема в разделе "Pascal and Delphi", создана пользователем Okina, 14 ноя 2011.

  1. Okina

    Okina Гость

    Разобрать алгоритм и написать программу, позволяющую найти и вывести на экран(печать) наибольшее целое НЕЧЕТНОЕ положительное число Х, удовлетворяющее условию
    0.7 е^х - 150х < 12.375.



    Тут моя программка. может как нибудь можно ее улучшить?

    Код (Text):
    unit Unit1;

    interface

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

    type
    TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    StaticText1: TStaticText;
    Image1: TImage;
    StaticText2: TStaticText;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    var x:integer;
    begin
    x:=-1;
    repeat
    x:=x+2;
    until 0.7*exp(x+1)-150*(x+1)>=12.375;
    Edit1.Text:='x='+IntToStr(x)+' Значение='+FloatToStrF(0.7*exp(x)-150*x,ffFixed,7,3);
    end;
    end.
     
  2. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Гугл рулит?
     
Загрузка...

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