: 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. . .
