Лаба Паскаль

[Excellent69]

Условие прикрепляю пикчей. Вообще не понимаю, как делать, помогите, пожалуйста

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

А что вам конкретно непонятно? Вы хотя бы сделайте наброски кода, наработки, опубликуйте их здесь. Вам помогут.

Кстати, вот вам совет. Чтобы было легче писать программу, сохраняйте значения частей вашего выражения в отдельных переменных. То есть, подвыражения заменяйте переменными, которым присваиваете значения этих подвыражения. Например, числитель - в одну переменную, знаменатель - в другую, подкоренное выражение - в третью, сумму, которая считается с помощью знака СИГМА (хотя сигма - это буква) - в четвёртую переменную. Так вам будет легче писать, у вас не будет выражений вроде

f := (1 - cos(ln(1 + atan(x*sin(x)*sin(x) - t + 2*p - 1.25478)))) / (1.2547 - sin(cos(ln(atan(x + x*x + x*x*x + x*x*x*x + sqrt(14.5524))))));

Выражение взято "с потолка", оно не имеет никакого отношения к вашему заданию

[newerow1989]

uses Math;

function f1(z:real;k,i:integer):real;
begin
   Result:=Exp((i-k)/2)/(z*z*z+Power(i*i+k*k,1/3));
end;

function f(z:real;k:integer):real;
var i:integer;
    r1:real;
begin
   r1:=0;
   For i:=1 to 6 do
      r1:=r1+f1(z,k,i);
   Result:=Sqr(Cos(z/k))/(Power(z,k)-LogN(6,k))-r1;
end;

const z=1.873;
var s:real;
    k:integer;
begin
   s:=0;
   For k:=1 to 4 do
      s:=s+f(z,k);
   Writeln(s:5:5);
   Readln;
end.