- . , , . . , ( ), . , , . , - , , .. , . 2.1 I.
. , . .
, , , . : , , , .
, , , .
2.2.
Program shapka3_procedura; { }
{ }
{....... }
Procedure Lin(Len:integer;Ch:Char); { }
{ : - Len, - Ch}
Var I:lnteger;
Begin { }
FOR l:=1 Len DO write(Ch);
writeln;
End; { }
BEGIN { }
writeIn (' 2.1');
Lin(40,=); { }
{....... }
{.. }
{....... }
Lin(40,=); {.. }
Lin(40,-); { . }
{ }
END. { }
. :
Lin(40,=),
40 - , = - .
, , , .. , . LEN 40, Ch = Char. , .. , .
( 2.2 I). , ( ), , .. . , , , . , , , . . 2.1 , .
|
|
I, J, 3 1,2. X, Y, Z 2,3 1, 3 . , , 2,3. . 2.2 . L , , !
L, 1, 2, 3, . L 3, 4 , L 3, 4 ( ). , , . . .
, .. , . VAR (-, . 2.6).
. , . ,
Y = 0.4343*Ln(X).
.
2.3.
Procedure LOG10(Argument:Real;Var LOG:Real);
Begin
LOG:= 0.4343 * LN(X)
End;
: LOG10 (X,Y);
Y X. , LOG VAR. VAR , . , .
- - . .
:
FUNCTION <> ( ):<>;
FUNCTION - ; - , ; - .
, < >:
PROCEDURE < >:<>;
.
. - . Function, , - , , .. . , , .
|
|
, -, , . , .
, .
2.4. tan(x) .
Function Tan(: real): real;
Var tangens: real;
BEGIN
tangens:= Sin(x)/Cos(x); tan:= tangens;
END;
, , , . , ,
Y:=Tan(x)/(1+Sqr(Tan(x));