Даны действительные числа x, y.
Получить: f(x,-y,1.17)+f(2.2,x,x-y), tg(f(x+y,xy,y-x)+f(3.1,1.4,y-sinx)),
где
f(a,b,c)=2*a-b-sin©/ (5+abs©)

с использованием функции

Я ВКонтакте
Мой блог
534-861
Мой ЖЖ

Procedure inputCh;
Var
a,b,c:real;
Begin
writeln("input a");
readln(a);
writeln("input b");
readln(b);
writeln("input c");
readln©;
End;

Добавлено (2008-03-11, 1:54 Pm)
---------------------------------------------
а терь процедура которая все свяжет как нам надо:
procedure vych;
Begin
InputCh;
Fabc=f(a,-b,1.17)+f(2.2,a,(a-b));
writeln(Fabc);
Fabc=tg(f((a+b),(a*b),(b-a))+f(3.1,1.4,(b-sin(a)));
writeln(Fabc);
End;

Поскольку уже не помню праил оформления кода в паскале придется самому растолкать все. первую функцию и первую процедуру выносишь в отдельную область, а эту пишешь в теле проги