11.
(, , , , ..), .
:
1.
2.
3.
4.
. uses. Unit
Unit ;
interface. , , , , , .. . .
implementation. . , , , , . .
end .
1.
, .
z:
a b.
Unit Power;
Interface
{ n x}
Function IntPower(x: real; n: integer): real;
{ n x}
Function Root(x: real: n: integer):real;
{ y x}
Function RealPower(x, y: real): real;
Implementation
Function IntPower(x: real; n: integer): real;
var P: real; i: integer;
begin
P:=1;
For i:=1 to n do
P:=P*x;
IntPower:=P;
end;
Function Root(x: real: n: integer):real;
var y: real;
begin
y:=x;
repeat
y:=(n-1)/n*y+x/(n*IntPower(y, n-1));
until abs(IntPower(y, n)-x)<1.0E-4;
Root:=y;
end;
Function RealPower(x, y: real): real;
begin
RealPower:=exp(y*ln(x));
end;
end.
:
program Powerz;
Uses Power;
var a, b, x, y, z: real;
begin
write(a, b=);
readln(a,b);
y:=2*a-sqrt(b);
x:=Root(sqr(a)+IntRower(b,4)), 4);
z:=RealPower(abs(x), a) - IntRower(y, 3);
writeln(z=,z:10:4);
readln;
end.
1.
2. .
3. implementation.
4. interface.
5. .
.
1. , .
MaxText .
|
|
NewPos
Convers
MyCopy .
MyLen
. . , .
2. , .
WordN N-
MyMove
CountWord
MyInsert
. . .
3. , .
CountWord
WordN N-
DeleteAll
DivEnd -
. . 4 . : . . .
4. , .
MoveEnd - .
MyPos
WordN N-
CountWord
Sovpad ,
. . , , . .
5. , .
NewCopy
NewDelete
MyPos
MyDown() .
. . ,
6. , .
Inicial , ,
MyReplace
NewPos
CountStr
DeleteStr - k-
. , . . !. !.
7. , .
Abrev
NewPos
MyReplace
NewRight
|
|
. . . . , .. .
8. , .
MyNumber ( ) .
MyLeft .
MyDelete
. , ( 6 ). .
. . , .
9. , .
MyVal
NewCopy
MyPos
MyLen
. , . : 70 , 7 . 30 . 103,40. , . .
10. , .
MyPos
ReplaceAll -
Rubl
MyPropose() - .
. , , / . . . . .
11. , .
ReplaceAll -
NewPropose() .
TrimAll .
MyStr .
. . .
, , . . , .
12. , .
MoveBeg
CountWord
WordN N-
DivBegin
. . , . . - , .