и так, поскольку паскакаль подзабыт, то опишу функцию и процедуру, а точне их внутренний код:
function F(a,b,c)
var
f:real;
begin
f=2*a-b-(sin©)/(5+abs©);
{по моему так, но не уверен и глянуть негде}
end; 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;
Поскольку уже не помню праил оформления кода в паскале придется самому растолкать все. первую функцию и первую процедуру выносишь в отдельную область, а эту пишешь в теле проги