program lol;
5-9 класс
|
var x,a,b,d,y,h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16:real;
program lol;
var y,h1,h2,h3,h4,h5,h6:real;
x,a,b,d:integer;
function pow(x:real; n:integer):real;
var sign:integer;
begin
if (x<0) and (n mod 2 <> 0) then sign := -1 else sign := 1;
pow := sign * exp(ln(abs(x))*n);
end;
begin
writeln('Введите значения');
{readln(x,a,b,d); }
x:=2;a:=1;b:=3;d:=3;
h1:=x*x*x*a*a;
h1:=3*pow(cos(h1),x);
h2:=x-pow(b,5);
h2:=pow(sin(h2),4);
h2:=abs(5*a*h2);
h2:=pow(sin(h2),2*x);
h2:=h1+h2;
h3:=a-pow(d,4);
h4:=abs(h3);
h5:=pow(sin(x+6),3);
h5:=7*a+h5;
h5:=sqrt(h5);
h5:=h4*h5+d;
h5:=sqrt(h2/h5);
h6:=pow(sin(x),3);
writeln(h1,h2,h3,h4,h5,h6);
y:=h5*h6;
writeln('y= ',y);
end.
накрутил ты там короче
а основная ошибка была в том что нельзя брать логорифм от отрицательного числа
Другие вопросы из категории
Читайте также
var
x: byte;
const
P = 12;
A = 6;
B = 10;
C =11;
begin
X:= (P*(P-A)*(P-B)*(P-C))^(1/2);
Writeln(x);
end.
Что в этой программе не так? Я хочу извлечь корень из х, а программа пишет "ОШИБОЧНЫЙ ИДЕНТИФИКАТОР".
Program tutor;
var
X, Z: byte;
const
P = 12;
A = 6;
B = 10;
C =11;
begin
X:= (P*(P-A)*(P-B)*(P-C))^(1/2);
Z:=sqrt(X);
Writeln(x,z);
end.
И через "sqrt"- оператор не хочет выдавать корень из Х. Что я не так делаю? подскажите.
a<5 do
writeln(a);
a:=a+1;
End.
2)Program z2;
var a,s:integer;
begin
a:=1; s:=0;
while a<10 do begin
s:=s+a/2;
end;
writeln(s);
end.
integer;
begin
m:= 0
for i: = 1 to 6 do
m: = m-6
writeln (m)
end.
2) program a6
var i, m: integer;
begin
m:= 0;
for i: = 3 to 7 do
m: = m-6+i;
writeln (m)
end.
пожалуйста решение в виде такого -Program sacha;и так далее помогите пожалуйста??????