|
Текст
программы:
program
N_Lab_Y1;
var
t,x,k,a,r,b,y,z:real;
n:integer;
begin
write('enter
x,a,b=');
readln(x,a,b);
t:=(x*x+a);
{OD3
1}
if
(b=0) or (x/b<0) then
writeln(‘ошибка
ОДЗ1: корень
из "x/b"
не корректный’)
else
begin
k:=sin(sqr(t));
n:=3;
{degree}
if (k=0) and (n=0)
then
begin
writeln
('ошибка: 0
в степени
0');
readln;
halt;
end;
if (k=1) or (n=0)
then
r:=1
else
if (k=0) or (n=1)
then
r:=k
else
begin
r:=exp(n*ln(abs(k)));
if (k<0) and
(n mod 2 <> 0) then
r:=-r
end;
{/degree}
y:=r-sqrt(x/b);
writeln('y=',y:8:4);
end;
{OD3
2}
if
a<=0 then
writeln('ошибка(ур.2):
корень из "a" не корректный')
else
begin
k:=a;
n:=4;
{radical}
if (k<0) and (n
mod 2 <> 0) then
begin
writeln('ошибка:
корень из "k" ; k - не корректна ');
readln;
halt;
end;
if
(k=0)
and
(n=0)
then
begin
writeln('ошибка:
0 в степени 0 ');
readln;
halt;
end;
if (n<=0) then
begin
writeln('ошибка:
степень корня <= 0');
readln;
halt;
end;
if
(k=0)
or
(n=1)
then
r:=k
else
begin
r:=exp(ln(abs(k))/n);
if (k<0) and
(n mod 2 = 0) then
r:=-r;
end;
{/radical}
z:=x*x/r+cos(sqr(x-b)*(x-b));
writeln('z=
',z:8:4);
end;
readln;
end.
|