.


:




:

































 

 

 

 





, BEGIN END. Pascal, ( GOTO).

Pascal :

BEGIN

BEGIN

BEGIN

END;

END;

END.

BEGIN END , BEGIN END

; .

, .

;;.

()

- , , . . . Pascal: Sin (x) ; cos(x) ; tan(x)- ; ln (x) ; exp (x) - e^x; sqr (x) - x; sqrt(x)- ; abs(x)- x. . , : Sh (x)=(exp (x)-exp (-x)) /2

:=2.5;=0.38. , p=sina cosb/2

Program lab;

Var a,b,p:real;

Begin

a:=2,5;b:=0.38;

p:=sin(a)*cos(b/2);

writeln(a,b,p)

end.

IF()

, . : IF "" Then "1" Else "2"; "" - ; "1" , (True), "2" , (False).

, , .

PROGRAM Minimum;

VAR a, b, min: real;

BEGIN

WRITELN(' ');

READLN(a, b);

IF a<b Then min:=a ELSE min:=b;

WRITELN(min);

END.

PROGRAM Rar;

VAR a, b, p: real;

BEGIN

WRITE(' b=');

READLN(b);

a:=sin(b/2);

IF a<0.3 Then p:=exp(a)+exp(1/3*ln(a+1))

ELSE p:=sin(a/2)/cos(a/2);

WRITELN(p=, p:9:6);

END.

 





:


: 2016-04-03; !; : 844 |


:

:

- - , .
==> ...

931 - | 974 -


© 2015-2024 lektsii.org - -

: 0.008 .