1 Востаннє редагувалося podolets98 (13.02.2016 21:47:20)

Тема: Цикл, Межі, Факторіал

program unit13;
uses crt;
var K,n:integer;
    s,x:real;
begin
clrscr;
write('Введiть натуральне число n=');
readln(n);
write('Введiть дiйсне число x=');
readln(x);
S:=K;
for K:=1 to n do
s:=s+(exp(x*ln(k)))/((K*K+1)*(K*K+1));
writeln('S=',s:5:2);
writeln('_______________________');
readkey;
end.

Потрібна допомога, проблема виникає в обрахуванні суми вводимо n=2, x=3, результат s=0.75 за формулою має бути програма видає не вірний результат)

Post's attachments

Безымянный.png 3.14 kb, 171 downloads since 2016-02-13 

2

Re: Цикл, Межі, Факторіал

Питання №1: чому дорівнює K в рядку 11?
Питання №2: ви знаєте, що таке факторіал?
Питання №3: чому у вас у числівнику kx, а не xk?

Подякували: leofun011

3

Re: Цикл, Межі, Факторіал

збірник старих студрозрахунків, з факторіалом - дивись 'анаграми'.

4

Re: Цикл, Межі, Факторіал

Відповідь 1: K=0; зробив присвоєння тут просто не дописав код;
Відповідь 2: Факторіал
0! = 1
1! = 1
2! = 1·2 = 2
3! = 1·2·3 = 6
4! = 1·2·3·4 = 24
5! = 1·2·3·4·5 = 120
так знаю, але я не знаю як розписати його  в програмі;
Відповідь 3: Прогавив цю помилку признаю!

5

Re: Цикл, Межі, Факторіал

raxp написав:

збірник старих студрозрахунків, з факторіалом - дивись 'анаграми'.

Доступ заборонений!

6

Re: Цикл, Межі, Факторіал

...зазвичай у бан потрапляють рашен IP.

7

Re: Цикл, Межі, Факторіал

podolets98
В чисельнику факторіал від факторіалу. Його зазвичай циклом обчислюють або рекурсивною функцією. Тобто окрім того циклу, який у вас уже є, вам іще два треба. Але краще усе ж функцією, щоб не загромаджувати основний цикл.
І тут виникає іще одна проблема: факторіал від факторіалу - це досить велике число, навіть для малих K. В integer дуже велике число не влізе, тому усі проміжні результати краще зберігати в real.

Подякували: podolets981

8

Re: Цикл, Межі, Факторіал

Дякую!