в Pascale решить: циклический алгоритм с параметрами. Найти сумму значений функции y=sin(1/x)+5(1/(x-3))+x, больших 2 для x изменяющегося на отрезке [-3;8] с шагом 1
var
i:integer;
summa:real;
function y(x:integer):real;
begin
y:=sin(1/x)+5*(1/(x+3))+x;
end;
begin
for i:=-3 to 8 do
begin
summa:=y(i);
//writeln('y(',i,')=',summa);
end;
writeln('y(',i,')=',summa:3:6);
readln;
end.
Добрый день. Меня заинтересовал ваш ответ "var
i:integer;
summa:real;
function y(x:integer):real;
begin
y:=sin(1/x)+5*(1/(x+3))+x;
end;
..." на вопрос http://www.liveexpert.org/topic/view/156200-paskal. Можно с вами обсудить этот ответ?