(/ // ). , . State , , . State 3 :
(Checked)
(Unchecked)
(Alignment)
. , , . , Checked.
. - .
:
IF <> THEN < 1> ELSE <.2>;
IF, THEN, ELSE - (, , )
<> - ,
<> - , .. .
:
1. <>.
2. TRUE (), 1, 2 .
3. - FALSE (), <.1> , <.2>.
. :
IF <> THEN <>;
. , :
| <> | <> |
| a>0 | k:=0; k:=k+1: // |
| a<0 | s:=0; s:=s+a; // |
| (a mod 2=0) 2, - | p:=1; p:=p*a; // |
IF <> THEN < 1> ELSE <.2>;
< > < > . , , .
:
else; ;
, (and) (or).
: x, y, z. , 5 10.
Var x, y, z, k: integer;
:
{ }
x:= StrToInt(Edit1.Text);
y:= StrToInt(Edit2.Text);
z:= StrToInt(Edit3.Text);
k:= 0;
{ }
if (x>5) and (x<10) then k:= k+1;
if (y>5) and (y<10) then k:= k+1;
if (z>5) and (z<10) then k:= k+1;
{ }
Memo1.Text:= IntToStr(k);
begin end.
: t m , k .
|
|
|
Var t, m, k: integer;
:
if (k mod 2 = 0) then
Begin
t:= t+1; m:= m+1;
end // else; !!!
else
Begin
t:= t-1; m:= m-1;
end;
: inc(<>);
- pred(<>); :
if (k mod 2 = 0) then
Begin
inc (t); inc (m);
end
else
Begin
pred(t); pred (m); end;
7
. CheckBox1 TForm1.CheckBox1Click(Sender: TObject);
: 1 .
Procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true
then Label1.font.Style:=font.style+[fsbold]
else Label1.font.Style:=font.style-[fsbold]
end;
, (if) , (then) 1 , (else) .
, .
| <> | <> |
| CheckBox1.checked | Memo1.Font.Style:=Memo1.Font.Style+[fsBold] |
| Memo1.Font.Style:=Memo1.Font.Style-[fsBold] |
:
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.checked then
Memo1.Font.Style:=Memo1.Font.Style+[fsBold]
else
Memo1.Font.Style:=Memo1.Font.Style-[fsBold]
end;
. : 1 .
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked=true then Label1.Font.Color:=clyellow
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked=true then Label1.font.Color:=clred
end;
:
1. , , .
2. (max) b.
3. (min) a, b, c.
4. x, y, z. .
5. x, y, z. .
6. a, b, c. , .
7. z=3x-4, 0<x<=1 z=|x-x2|, 1<x<=10
8. s=max(x,y), x<0 s=min(x,y), x>=0
9. , 1, 2, 3, 4 , . .
10. x y, . .
.
