Новичок,помогите написать програму

[Андрей3443]

Как это сделать? Помогите!

[Вадим Мошев]

а чему равно b и p?
И вообще, в чём трудности?

[Андрей3443]

а что за ошибка?

[Stilet]

Как это сделать?1

Оч. просто:
После того как ответишь на вопрос Вадика напиши вот такое:

a:=cos(b)+0.0051;
write(exp(
 (
    exp(5*ln(a))+sin(a*b)
 )
/
 (
   sqrt(a*b)+tan(b);
 )
)+p
);

а что за ошибка?

Отказано в доступе. За подробностями надо жать на кнопку Details.

[Вадим Мошев]

А я ещё понтанусь и переведу английский текст сообщения:

В вашем приложении произошло необработанное исключение. Если вы нажмёте "продолжить", то приложение проигнорирует эту ошибку и попытается продолжить работу. Если вы нажмёте "выход", то приложение немедленно закроется.

[Donald Ervin Knuth]

Сообщение от Андрей3443

Как это сделать? Помогите!

program test2;
var
a,w,b,p,v:real;
function stall(x:real;s:integer):real; { }
var
ast:real;
k:integer;
begin
if s=0 then stall:=1 { отсекаем в степени ноль }
else
begin
if s>0 then
        begin { вычисляем положительную степень }
          ast:=x;
          for k:=1 to s-1 do
            ast:=ast*x;
          { полученный результат }
            stall:=ast;
        end
        else { вычисляем отрицательную степень}
        begin 
          ast:=x; s:=abs(s);
          for k:=1 to s-1 do
          ast:=1/(stall(x,s)); { рекусрсивный вызов этой же функции }
          stall:=ast;
        end
end;
end;
begin { вычисление форумулы }
  writeln('Задайте значение p');readln(p);
  writeln('Задайте значение b');readln(b);
  { Предположил что p,b необходимо задать  }
  { далее все просто}
  a:=cos(b)+5.1*stall(10,-3);write(a);
  w:=(stall(a,5)+sin(a*b))/(sqrt(a*b));
  v:=exp(a*w);
  writeln('V=  ',v);
end.