..., . ..
1 2007, 1
. ..., .
_______________ ..
1. . 4
2. .. 4
2.1 . 6
3. .. 7
4. . 8
5. . 10
6. .. 12
7. .. 13
8. .. 14
9. - . 15
9.1 .. 15
9.2 . 17
10. . 18
.
. :
1. , .
2. "" ( ). , "?" . .
3. - ( , ..)
, . .
.
.
Delphi , WHILEDO. :
WHILE DO
;
BOOLEAN. . ( ). , ( " "), " ", WHILE..DO, , . , , , .
: , .
WHILE. 1+2+3+ , 100. :
VAR s:WORD; { }
i: WORD; { }
BEGIN
s:=0; { !!! }
i:=1; { }
WHILE s<100 DO
BEGIN
s:=s+i;
i:=i+1
END;
Label1.Caption:=' 100 i='+IntToStr(i)
|
|
end;
, 100 i=15, . BEGIN..END. (, , BEGINEND ).
. 1. -.
- , . . - , . 1.
Pentium IV !
.
. , "". , Ctrl+C Ctrl+Break. :
s:=0;
WHILE s<100 DO
i:=i+1;
i:=i+1. s, , , 100. .
: 6 .
, .
.
, , . . : () , , 1+2+3, 10=1+2+3+4.
REPEAT.. UNTIL. :
REPEAT
1
n
UNTIL ;
, REPEAT UNTIL. BEGIN..END .
REPEAT , . , . , WHILE - , .
. , 1 3 (, , : ). , 4 0? :
VAR a:BYTE;
BEGIN
REPEAT
a:=StrToInt(LabeledEidit1.Text)
UNTIL (a>=1) AND (a<=3);
[1;3]. , , .
- . 2.
. 2. -.
|
|
.
.
. , WHILE. , 10 20 . :
VAR i: BYTE; s: WORD;
BEGIN
i:=10;
s:=0;
WHILE i<=20 DO
BEGIN
s:=s+i;
i:=i+1
END;
, . FOR..TO. :
FOR := TO DO
;
FOR c 1 . , FOR .
, FOR:
VAR i: BYTE; s: WORD;
BEGIN
s:=0;
FOR i:=10 TO 20 DO
s:=s+i;
. , , .
, , ? - , 10,100,1000 . , 0.1 1.2 0.1:
VAR i:BYTE; s:REAL;
BEGIN
s:=0.0; { 0.0, 0 }
FOR i:=1 TO 12 DO
s:=s+i/10;
. FOR , , . Delphi , . , TO DOWNTO:
FOR i:=20 DOWNTO 10 DO
- , . 3.
. 3. -.
, .
.
: BREAK CONTINUE. BREAK . , 1+2+3+ , 100. BREAK :
VAR s:WORD; { }
i: WORD; { }
BEGIN
s:=0; { !!! }
i:=1; { }
WHILE TRUE DO { ?! }
BEGIN
s:=s+i;
i:=i+1;
IF s>100 THEN
BREAK
END;
Label1.Caption:=' 100 i='+IntToStr(i)
end;
BREAK WHILE TRUE DO. s>100 BREAK.
CONTINUE, , . . , 1 100, 3. :
VAR i:BYTE
BEGIN
FOR i:=1 TO 100 DO
BEGIN
IF (i MOD 3=0) THEN
CONTINUE;
Memo1.Lines.Add(IntToStr(i))
END;
. MOD . , 10 MOD 3=1. , . IF CONTINUE. FOR. i , .
|
|
BREAK CONTINUE , .
, .
, .. "" . . 10´20. . :
VAR i, j: WORD;
BEGIN
FOR i:=1 TO 10 DO
FOR j:=1 TO 20 DO
Memo1.Lines.Add('X='+IntToStr(i)+', Y='+IntToStr(j))
BEGINEND : FOR j:=1 TO 20. , .
- (. 4):
. 4. -.
,
, .
. . .
. , REAL, INTEGER, BOOLEAN Delphi ( ), Delphi . TYPE, VAR. TYPE , , VAR , .
Delphi . , . , , n n , (. . ! .).
TYPE "" :
TYPE _ = ARRAY [] OF __;
_ ( "", ), __ , .
, . (). imin..imax ( , !). imin , imax . imax-imin+1.
, 10 REAL:
TYPE TA=ARRAY [1..10] OF REAL;
:
VAR a:TA;
, . 64.
, , : a[1], a[i], a[j+2-1]. . a:=10 . , . , :
|
|
CONST Nmax=10; { }
TYPE TA=ARRAY[1..Nmax] OF REAL;
VAR a:TA; i:BYTE;
BEGIN
FOR i:=1 TO Nmax DO
a[i]:=RANDOM
...
, Nmax. , , .