Функция пользователя паскаль exp(ln(a) * x);

[den4ik2000]

Нужно сделать с помощью функции пользователя Pascal

[Alex11223]

Тут не решатель задач. Если кто-то просто решит за вас, это вряд ли поможет вам разобраться.

покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[den4ik2000]

У меня есть вот такой вариант решения

program labt2; 

var
  x, y, z: Real;


begin
  write('введите x= ');
  read(x);
    y := ((exp(ln(2) * 3 * x + 2) + exp(ln(3) * 4 * x)) / (exp(ln(1 / 2) * x)) + (exp(ln(1 / 3) * 2 * x)));
    z:=sin(x/2)+(exp(ln(x+2)*2*x));
  writeln('y= ', y, ' z= ', z);
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

код написан с ошибками.
но в правильном направлении.
только Вы зря каждый раз расписываете что-то в степени, как exp( ln(что-то)* степень)
это можно (и нужно вынести в отдельную функцию дальше вызывать её:

Program lab2;

function pow(a, x : Real): Real;
begin
   pow := exp( x*ln(a))
end;

begin
    write('введите x= ');
    read(x);
    y := (pow(2, 3 * x + 2) + pow(3, 4 * x)) / (pow(1 / 2, x) + pow(1 / 3, 2 * x));
    z:=sin(x/2)+pow(x+2, x+1);