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

  • Автор темы Okina
  • Дата начала
O

Okina

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



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

Код:
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.
 

nayke

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



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

Код:
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.
Гугл рулит?