НРКмания

Помогите пожалуйста!!!

Что-то такое?
----------------------

program zfunc;
function ufunct(u, t:real ):real;
begin
if u>0 then
begin
ufunct := u+sin(t);
end
else
begin
ufunct := u+t;
end;
end; { ufunc }
var a,b,z : real;
begin
a := -3.14;
b := 31.2;
z := ufunct(sin(b), a)+ufunct(sin(b)*sin(b),a-1)+ufunct(sin(b), a*a-1)
+ ufunct(sin(a)*sin(a)-1, cos(b)+a);
writeln('The result is ', z);
end. { zfunc }

очень похожее)

_________________
Как объяснить ребенку, что в его комнате нет монстров, кроме него самого.

Этот код компилируется FreePascal'ем и работает нормально, насколько я могу судить. У Паскаля есть несколько диалектов, Вы не сказали, какой Вам нужен. Мой код -- на классическом Паскале Вирта.
Кроме того, есть несколько неясностей в постановке задачи. Вот например, в формуле для функции
"... sin квадратный a - 1" -- это sin^2(a-1) или sin^2(a) - 1?

Но, я думаю, Вы поправите, если что. Удачи!

Это turbo Pascal =)) Мы уже сделали на уроке, спасибо за помощь!

_________________
Как объяснить ребенку, что в его комнате нет монстров, кроме него самого.