Консультация № 112756
07.12.2007, 06:19
0.00 руб.
0 1 1
Дано действительное число х. Последовательность a1, a2, ... образована по следующему закону

an= ((-1)в степени n * x в стипени 2n)/(n(n-1)(n-2))
сделать в Pascal 7.0

Обсуждение

давно
Старший Модератор
31795
6196
08.12.2007, 12:40
общий
это ответ
Здравствуйте, Николаев Денис!

Смотрите приложение.
(n(n-1)(n-2))-при n=1 и n=2 будет равно 0, т.е. при этих значениях n возникает ситуация "деление на 0".
Удачи!

Приложение:
program q112756; var a:real; b,c,d,e:integer; begin write(‘Enter X:‘);readln(a);{вводим Х} write(‘Enter N:‘);readln(b);{вводим максимальное кол-во в пследовательности} for c:=1 to b do{все елементы последовательности} if(c*(c-1)*(c-2))<>0 then{проверяем деление на 0} begin e:=1;{считаем степень -1} for d:=1 to c do e:=-1*e; {выводим значение} writeln(‘a‘,c,‘:=‘,(e*exp(ln(a)*2*c))/(c*(c-1)*(c-2))); end {сообщение деление на 0} else writeln(‘a‘,c,‘:=Div!0‘); end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа