1 это задача срочно в паскаль

0 голосов
36 просмотров

1 это задача срочно в паскаль


image

Информатика (17 баллов) | 36 просмотров
Дан 1 ответ
0 голосов

program first;

const a = 4;

     b = 2.5;

var x, u, f: real;

begin

   writeln('Введите "х":');

   readln(x);

   if x <= 2.5 then begin</p>

       u := (sqr(a) * abs(x) + exp(-x) * sin(b*x)) / (exp(a*ln(b)) - exp(-x) * sqr(cos(5*x)));

       f := exp(2*x) * (a+x) - exp(3*x*ln(b)) * ln(b-x);

       writeln('Результат выражения u: ', u:4:6);

       writeln('Результат выражения f: ', f:4:6);

   end

   else writeln('Ошибка, невозможно вычислить логарифм, "х" должен быть меньше 2.5!');

end.

(154 баллов)