1.
1. ?
________________________________________________________________
2.
a. a b c 1.
___________________________________________________________
b. a 5 c b, c b2.
______________________________________________________
c. a 0 b 5, c 10, c 5 d b.
______________________________________________________
d. 1> a >3 c a c b.
______________________________________________________
3. 2 .
________________________________________________________________
4.
a, b, c.
________________________________________________________________
5. ?
a. a:=IntToStr(Edit1.text);
b. a:=StrToInt(Memo1.text);
c. a:=IntToStr(Memo1);
d. a:=StrToInt(Edit1.text);
6. ( )
a. If a>b then c:=d; else c:=b;
b. If a>b then c:=5 and d:=7;
c. If a>b then c:=5+s;
d. If a<10 then c:=1 else c:=0;
e. If a=1 and b=6 then k:=k+1;
f. If (a=5) or (b=5) then c:=5;
g. If a≠10 then s:=s+b;
h. If a≥1 then
begin
c:=4; b:=4;
else
c:=5; b:=5;
end;
i. if a>0 then
begin
c:=1; d:=1;
end else k:=1;
2*.
a. ( ). ________________________________________________________
2.
a. a b c .
___________________________________________________________
b. a b c a c b.
___________________________________________________________
c. a 10 b d, c a c b d a b.
______________________________________________________
d. 1> a >10 c c .
___________________________________________________________
3. 3 .
________________________________________________________________
4. x, y, z.
________________________________________________________________
5. ?
a. Memo1.Text:=IntToStr(a);
b. Edit1.Text:=StrToInt(a);
c. Memo1:=a;
d. Memo1.Text:=FloatToInt(a);
e. Memo1.Text:=FloatToStr(a);
f. Edit1.Text:=StrToFloat(a);
6. ( )
|
|
a. If x>y then c:=2; else c:=5;
b. If a>b then z:=2 and z:=2;
c. If a>1 then c:=sqr(s);
d. If a<=10 then c:=10 else c:=0;
e. If (a=1) and (b=6) then k:=k+1; z:=2; else k:=1; z:=z+2;
f. If (a=5) or (b=5) then c:=5;
g. If a≠10 then s:=sqrt(w);
h. If a≥1 then
begin c:=4; b:=4; end;
else c:=5; b:=5; end;
i. if a>0 then
begin c:=1; d:=1; end
else begin k:=1; z:=1 end;
Case if .
, , , ( ). if, else, .
:
Case <-> of
< 1>: < 1>;
< 2>: < 2>;
< N>: < N>
else <>
end;
, . . , .
.
:
1. .
Case i of
1..10: Memo1.Lines.Add (, I:4, 1-10);
11..20: Memo1.Lines.Add (, I:4, 11-20);
21..30: Memo1.Lines.Add (, I:4, 21-30)
else Memo1.Lines.Add (, I:4, ) end;
2. .
Case I of
1: z:=i+10;
2: z:=i+100;
end;
8
: , 1..3 .
Var a: integer;
:
Begin
a:=(Edit1.text); //
case a of
1: Memo1.text:=IntToStr();
2: Memo1.text:=IntToStr();
3: Memo1.text:=IntToStr();
else Memo1.text:=IntToStr( 1, 2 3);
end;
End;
:
1. , (1-12) .
2. , .
3. , 1-1000 .
4. k 1 99 k , k.