.


:




:

































 

 

 

 





 

:

1. ;

2. TurboPascal

3. .

4. - ;

5. .

 

1-8.

 

 

Y F x a b. x>=0. . F,Y x.

 

 

 
 

 


 

{ 1}

{ ...... }

{ }

{ }

Const a=2.0; b=3.0;

Var x,Y,F: real;

{ }

Begin

Writeln(' x>=0 '); { x}

Readln(x); { x}

{ Y F}

Y:= Exp (-a*x)*(x* Sin (a*x+b) -Sqrt (x)* Cos (b*x));

F:= Ln (Sqrt(Abs (a*x*x-b)))-1;

{ }

Writeln(' x = ',x,' Y = ',Y,' F = ',F);

End.

 

 

 

 

, , ,

.

:

IF <> Then < 1> Else < 2>;

- ;

1, 2 - .

: <> TRUE (), 1, 2 ; - FALSE (), 1 , 2.

1 2 , (Begin... end).

Else ( 2) . TRUE

1, , IF.

: Y, x.

:

If x>0 Then Y:=a*x+b Else Y:=a*x*x+b;

 

, , :

GOTO ;

Goto

.

:

- , Goto, Label ;

- End, Begin End;

- ( ), ; Goto ;

- goto . , , . , , , .

 

, (, ), . EXIT HALT.

Exit , .

Halt .

 

 

2

 





:


: 2016-11-18; !; : 552 |


:

:

.
==> ...

2089 - | 1835 -


© 2015-2024 lektsii.org - -

: 0.01 .