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 :