.


:




:

































 

 

 

 


Case <_> of <_> [else <_>] end




case, of, else, end (, , , );

<_> - ;

<_> - :

o <_>: <>;

<_> - ,

o <_>;

<> - .

. <_>, <_> , . , , . , , , else. else <_> , , .

, , :

Case of

Program dni_nedeli;
Var n: byte;
Begin
Readln(n);
Case n of
1: writeln( );
2: writeln( );
3: writeln( );
4: writeln( );
5: writeln( );
6: writeln( );
7: writeln();
else writeln( , n,);
end;
end.

, .

, , . , y Y , n N .

Case of

Var ch: char;
Begin
Readln(ch);
Case ch of
N, n: writeln( );
Y, y: writeln( );
End;
End.

, , . , , .

 


 

Pascal-

Pascal-

( ) , . , n :

Y= 1+ 1/2+ 1/3 + + 1/ n

, n. , n=5 :

Y:= 1+1/2+1/3+1/4+1/5

n , , ( , ), . Y:= 1+1/2+1/3++1/ n .

. . , : ( 1), ( ), , .

( )

n , , n .

: y=0 ( y:=0), y:= y+1/ i i= 1,2,, n. y . , : y:= y+1/i , .. , i.

; ,

( n, );

, ( i, 1 n).

. :

For V:= E1 to E2 do S,

for (), to ( ) do (, ) , V , , 1 2 , , S , , .

, do , , .

V , 1, , 2, .. V:= succ(V), S V. 1 2 , , V S. ( ), S .

, .

n :





:


: 2016-11-23; !; : 664 |


:

:

.
==> ...

1480 - | 1410 -


© 2015-2024 lektsii.org - -

: 0.012 .