почему делфи так коряво выводит число:
Допустим последняя строка. f= -34996.182. Что за бред? В должна быть в диапазоне от -10 до 10. Сам код:
program laba1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var // îïèñàíèå ïåðåìåííûõ öåëîãî òèïà
X,F,Sum : real ;
K:integer;
begin
X:=0.6;
While X<=1 do //ãðàíèö û äëÿ x
begin
Sum:=0; //íåñêîëüêî ïîâòîðåíèé
for K:=1 to 15 do
begin
Sum:=Sum+sqrt(exp(k*x)-k*exp(ln(x)*(k+1)))/sqr(sin(k*x)); //âû÷èñëåíèÿ
If K>=10 then
begin
writeln(F);
F:= -Sum+(sin(x)/cos(x))+sqrt(exp(ln(k*x)*(1/3))); //÷òî íóæíî íàéòè è âûâåñòè
Writeln('n= ',K,' x= ',X:4:2,' f= ',F:0:1); // âûâîä n,x, f ñ îïðåä. êîë-âîì ñèìâîëîâ ïîñëå çàïÿòîé
end;
end;
X:=X+0.05; //+ 1 øàã
end;
Readln;
end.
Я имею в виду, что F ДОЛЖНА быть от -10 до 10 ПО ИДЕЕ. Но выдает совсем не то