Помогите решить уравнение в Pascal очень очень надо до завтра прошу помочь)

Question

Александр Экгардт · Accepted Answer

Ты хотя бы знаешь разницу между выражением и уравнением? !

var x,y,a,b:real;
begin
write('x y a b ? '); readln(x,y,a,b);
writeln(ord(y< -4)*2*x*ln(b*b+1)/(y+2)+ord(y>=-4)*ord(y<=5)*sqr(2*x+3*y+b*b)+
ord(y>5)*x*ln(b*b+10)/(y+1)); readln
end.

Ирина Петрашова · Answer

if (y<-4) 
z=(2x*ln*(b^2+1))/(y+2) 
else if y>5 
z=(x*ln*(b^2+10))/(y+1) 
else z=(2*x+3*y+b^2) 
 
На паскале не программирую, поэтому могу предложить только такой вариант. Обработайте сами. Но в целом выглядит всё это именно так.

Влад · Answer

var x,y,z,b:real; 
begin 
read(x,y,b) 
if y<-4 then z:=(2*x*ln(b*b+1))/(y+2); 
if -4<=y<=5 then z:=sqr(2*x+3*y+b*b); 
if y>5 then z:=(x*ln(b*b+10))/(y+1); 
write(z); 
read; 
end.