(1.2),
/ ( / , , ). (1.2) .
A=(1; -1; 2; -2; 4; -4), X=(0,5; 2).
program Project1_2;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var
A, B, C, X, Y1, Y2: Real;
begin
{ }
Write(' X A: ');
ReadLn(X,A);
B:=A/2;
C:=Sqr(B);
{ }
{ - }
Y1:=(Power(B,X)-Log10(B+1))/C/(B-1);
{ - (1.2)}
Y2:=(Power(A/2,X)-Log10(A/2+1))/(IntPower(A/2,3)-Sqr(A/2));
{ }
WriteLn(' Y1 Y2 ');
WriteLn(Y1:12:7,' ',Y2:12:7);
ReadLn;
end.
(. 2), : , , Enter. ( 2) , , .
program Project1_2;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var
A, B, C, X, Y1, Y2: Real;
begin
{ }
Write(' X A: ');
ReadLn(X,A);
B:=A/2;
C:=Sqr(B);
try
{ }
{ - }
Y1:=(Power(B,X)-Log10(B+1))/C/(B-1);
{ - (1.2)}
Y2:=(Power(A/2,X)-Log10(A/2+1))/(IntPower(A/2,3)-Sqr(A/2));
except
{ }
on EZeroDivide do
begin
WriteLn(' " 0" ');
WriteLn(' Y A =',A,' X =',X);
WriteLn(' Enter .');
ReadLn;
Halt; //
end;
on EInvalidOp do
begin
WriteLn(' " " ');
WriteLn(' Y A =',A,' X =',X);
WriteLn(' Enter .');
ReadLn;
Halt; //
end;
on EOverflow do
begin
WriteLn(' '
, " " ');
WriteLn(' ');
WriteLn(' Enter .');
ReadLn;
Halt; //
end;
end;//try except
{ }
WriteLn(' Y1 Y2 ');
WriteLn(Y1:12:7,' ',Y2:12:7);
ReadLn;
end.
,
WriteLn(' Enter .');
ReadLn;
Halt;
on ( except on, ).