9 / 10 / 2
Регистрация: 19.01.2014
Сообщений: 83
|
|
21.09.2014, 20:53
[ТС]
|
4
|
Сообщение от FIL
Так где он, этот код?
| Delphi | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
CheckBox1: TCheckBox;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var s,x,b,pr,y:extended;
begin
x:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
Memo1.Lines.Add('x='+FloatToStrF(x,fffixed,8,4));
Memo1.Lines.Add('b='+FloatToStrF(b,fffixed,8,4));
pr:=x*b;
if (pr > 1) and (pr < 10) then
begin
s := exp(x)+sin(b);
end
else if (pr > 12) and (pr < 40) then
begin
s := sqrt(abs(x+4*b));
end
else
begin
s := b*sqr(x);
end;
if CheckBox1.Checked then
Memo1.Lines.Add('s='+IntToStr(Round(y)))
else
Memo1.Lines.Add('s='+FloatToStrF(y,ffGeneral,8,2));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
end;
end. |
|
Сообщение от Puporev
| Delphi | 1
2
3
| if (x*b>1)and(x*b<10) then ........
else if (x*b>12)and(x*b<40) then ........
else ..... |
|
Вот так сделал:
| Delphi | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
CheckBox1: TCheckBox;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var s,x,b,pr,y:extended;
begin
x:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
Memo1.Lines.Add('x='+FloatToStrF(x,fffixed,8,4));
Memo1.Lines.Add('b='+FloatToStrF(b,fffixed,8,4));
pr:=x*b;
if (pr > 1) and (pr < 10) then
s := exp(x)+sin(b)
else if (pr > 12) and (pr < 40) then
s := sqrt(abs(x+4*b))
else
s := b*sqr(x);
if CheckBox1.Checked then
Memo1.Lines.Add('s='+IntToStr(Round(y)))
else
Memo1.Lines.Add('s='+FloatToStrF(y,ffGeneral,8,2));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
end;
end. |
|
Все равно 0.
0
|
(
Сообщение от FIL
Сообщение было отмечено EragonJKee как решение
Спасибо большое)
