Дано натуральное число N. Вычислить Р=(1-1/2^2)*(1-1/3^2)*...*(1-1/n^2), где N>2 Запускает, но не считает,0.000000000Е 0000 в
Дано натуральное число N. Вычислить Р=(1-1/2^2)*(1-1/3^2)*...*(1-1/n^2), где N>2
Запускает, но не считает,0.000000000Е 0000 выводит. В чём ошибка?
program lab51; {$APPTYPE CONSOLE} uses SysUtils, Math;
var s,u:real; n,k:byte; begin writeln('vvedite n'); readln(n); s:=1; if n>2 then begin for k:=2 to n do s:=s*u; //inc(k); u:=1-(1/sqr(k)); end; writeln(s); readln; end.
У вас переменная u не определена при первом запуске цикла, поэтому программа берет u=0, и в итоге выходит тоже ноль. Поставьте после фора сразу:
u:=1-(1/sqr(k));а потом уже:
s:=s*u;