: Delphi 6.0.
: , .
:
, If Case, Goto, . , Object Pascal, .
:
1. .
2. .
3. -.
4. .
.
:
1. ?
2. ?
3. If? ?
4. ?
5. Case. ?
6. Case?
7. If Case ?
8. ?
:
1. . , , . ( ) ( ) .
h =
procedure TForm1.Button1Click(Sender: TObject);
var a,b,x,h:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
x:=StrToFloat(Edit3.Text);
if x<a then
begin
h:=sqrt(sqr(cos(x)))+sqr(a);
Memo1.Lines.Add('h='+FloatToStr(h));
end
else
if x=a then
begin
h:=exp(abs(b+x));
end
else
begin
h:=ln(1+exp(3*ln(a))+sqr(x));
Memo1.Lines.Add('h='+FloatToStr(h));
end
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
end;
:
1
Z =
2
f =
3
W =
4
y =
5
u =
6
v =
7
g =
8
d =
9
h =
10
P =
11
Z =
12
S =
13
t =
14
y =
15
f =
16
Z =
17
u =
18
V =
19
W =
20
R =
21
P =
22
t =
.
2 , : 1) case; 2) if. , 4-7 .
|
|
:
, 1...3 .
Var a: integer;
Begin
a:=StrToInt (Edit1.text); //
case a of
1: Memo1.Lines.Add();
2: Memo1.Lines.Add ();
3: Memo1.Lines.Add ();
else Memo1.Lines.Add( 1, 2 3);
end;
end;
1. . .
2. . : .
3. . .
4. . .
5. . .
6. . .
7. . .
8. . .
9. . () .
10. . , .
11. . .
12. . .
13. 0..5. ( ) .
14. . .
15. . .
16. '. .
17. . .
18. 5..9. .
19. . .
20. . .
21. . .
22. . .