: , . , .
() . , .. , . :
-
for <:= > to <> do < >; (1)
-
for <:= > downto <> do < >; (2)
:
- . 1 ( ) 1 ( ) <> <>. , , <> <> .
(1) = (-)+1, <= , 0 . :
for i:= 1 to 3 do : i 1 2 3
begin a 2 4 6
a:= i*2; b:= i*2+1 b 3 5 7
end;
(2) = (-)+1, >= , 0 . :
for i:= 3 downto 1 do : i 3 2 1
begin a 6 4 2
a:= i*2; b:= i*2+1 b 7 5 3
end;
< > . break. continue .
- , ( ). , . . , . () : , , . . , , . : , . , ( ), .
|
|
7. , :
Function Sum (a,b: real48): real48; //
Var s:real48;
Begin
S:= sqr(2)+sqr(b);
Sum:= s
End; {Sum}
Function Sum (a,b: real48): real48; //
Begin
Result:= sqr(2)+sqr(b);
End; { Sum }
:
Var x,y,rez: real48;
.......
Readln(x,y);
rez:= Sum(x,y); writeln(Sum(x,y)); //
Result , , . . Result .
: , [ a, b] n > 100. , : , , , ( , ). . 5,7,10-17,20,21,23,24 .
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25