Вычислить значение выражения

@Алексей930 · Регистрация: 23.04.2014

Author24 — интернет-сервис помощи студентам

Составить блок-схему и программу вычисления функции У при заданных значениях a, b, x.

Pascal

var
x,y,a,b:real;
 
begin
readln(x,a,b); // может для каждой переменной с новой строки readln(перемменная), но уже не помню
y:=(A*(sqrt(exp(ln(exp(ln(x)*4)*(1/5))+(sqrt(b*(exp(4-x))))+(((a+b)/2)*ln((x+15,7)/(x+15,17)));
writeln(y:4:4);
end.

@Puporev · 20.05.2014, 18:00

Pascal

var a,b,x,c,d,y:real;
begin
writeln('Введите a,b,x');
readln(a,b,x);
c:=b*exp(4-x);
if c<0 then write('значение y не определено')
else
 begin
  if x+1.75=0 then write('значение y не определено')
  else
   begin
    d:=(x+15.7)/(x+1.75);
    if d<=0 then write('значение y не определено')
    else
     begin
      y:=a*sqrt(exp(ln(x*x*x*x)/5)+sqrt(c))+(a+b)/2*ln(d);
      write('y=',y:0:4)
     end
   end
 end;
readln
end.

	20.05.2014, 18:00