:
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