Построить алгоритм, составить и отладить программу для нахождения произведения ряда

@SashaPl · Регистрация: 25.06.2014

Pascal

var i:integer;
n,p,u:real;
begin
i:=2; p:=1;
u:=exp((-4)*ln(10));
repeat
n:=n+(1/exp((2)*ln(i)));
P:=p*(1-n);
until n<u;
Writeln('P = ',p);
end.

Написано, что компиляция прошла успешно, но ничего не выводится.

@Puporev · 08.04.2015, 20:09

Допиши

Pascal

1 2	readln//это end.

@SashaPl · 08.04.2015, 21:09 **[ТС]**

все так же ничего не выводит.

@Puporev · 08.04.2015, 21:34

Так у тебя не код, а срач какой-то, программа просто зависает и не выходит из цикла.
Напиши лучше точное условие задачи.

@SashaPl · 08.04.2015, 21:47 **[ТС]**

Построить алгоритм, составить и отладить программу для нахождения произведения ряда:
P=(1-1/2^2 ).(1-1/3^2 ).(1-1/4^2 ).… c точностью до очередной дроби <10-4

Добавлено через 7 минут
Убрал прибавление n. Не помню зачем его поставил.
После until значение побольше, но ничего все равно не изменилось.

@Puporev · 08.04.2015, 21:53

Pascal

uses crt;
const e=1e-4;
var p,t:real;
    n:integer;
begin
clrscr;
t:=1/4;
p:=1-t;
n:=2;
repeat
n:=n+1;
t:=1/sqr(n);
p:=p*(1-t);
until t<e;
write('P=',p:0:4);
readln
end.

@SashaPl · 08.04.2015, 21:59 **[ТС]**

Pascal

1	const e=1e-4;

А что это? задается константа экспоненты или что?

@Puporev · 08.04.2015, 22:00

Это точность по условию.

Сообщение от SashaPl

c точностью до очередной дроби <10-4

@SashaPl 50 / 37 / 9 Регистрация: 25.06.2014 Сообщений: 406
	08.04.2015, 21:09 [ТС]	3
	все так же ничего не выводит. 0

@Puporev Почетный модератор 64277 / 47576 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	08.04.2015, 21:34	4
	Так у тебя не код, а срач какой-то, программа просто зависает и не выходит из цикла. Напиши лучше точное условие задачи. 0

@SashaPl 50 / 37 / 9 Регистрация: 25.06.2014 Сообщений: 406
	08.04.2015, 21:47 [ТС]	5
	Построить алгоритм, составить и отладить программу для нахождения произведения ряда: P=(1-1/2^2 ).(1-1/3^2 ).(1-1/4^2 ).… c точностью до очередной дроби <10-4 Добавлено через 7 минут Убрал прибавление n. Не помню зачем его поставил. После until значение побольше, но ничего все равно не изменилось. 0

@Puporev Почетный модератор 64277 / 47576 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	08.04.2015, 22:00	8
	Это точность по условию. Сообщение от SashaPl c точностью до очередной дроби <10-4 0

Опции темы