.


:




:

































 

 

 

 


. -




: , . , .

() . , .. , . :

-

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

 





:


: 2018-10-15; !; : 476 |


:

:

,
==> ...

1755 - | 1523 -


© 2015-2024 lektsii.org - -

: 0.012 .