.


:




:

































 

 

 

 


4. .

:

 

1. .

2. .

3. .

4. .

 

.

Goto , . :

goto <>,

 

<> - 0 9999, label.

- , .. . , .

Break .

Continue , .

Exit .

Halt (n), ( n - ) n.

 

.

 

. ,

- , , . (if , else - ).

, . , - .

 

 

:

 

 

1)

 

2)

 

3)

 

4)

1) IF THEN ;

2) IF THEN 1 ELSE 2;

3) IF THEN BEGIN

1;

2;

N;

END;

4) IF THEN BEGIN

1;

2;

N;

END ELSE

BEGIN

1;

2;

N;

END;

 

. . . :

 

begin

;

end

";". begin () end (), , . , end , , ";" . end ";". , end , . , .

, .

 

: .

var b: integer;

Begin

Readln(b);

If b=5 then Writeln(' ') else

If b=4 then Writeln(' ') else

If b=3 then Writeln(' ') else

If b=2 then Writeln(' ') else

Writeln (' ');

End.

 

.

. , . , . (, , ), .

case, of, else, end . if, else .

:

 

Case of

1: begin 1; 2; ; N; end;

2: begin 1; 2; ; N; end;

M: begin 1; 2; ; N; end;

else begin 1; 2; ; N; end;

end;

 

case .

, , , , . , else. , else , case , , case. ,

a..b ( a b).

:

 

case DayOfWeek of

1..5: writeln(' ');

6,7: writeln(' ');

end;

 

: .

 

var b: integer;

Begin

Readln(b);

Case b of

5: Writeln(' ');

4: Writeln(' ');

3: Writeln(' ');

2: Writeln(' ');

else Writeln(' ');

end;

end.

.

. , . , , . . , begin... end;. .

, , , .

 



<== | ==>
3. | .
:


: 2018-10-18; !; : 548 |


:

:

, , .
==> ...

998 - | 762 -


© 2015-2024 lektsii.org - -

: 0.02 .