Найти количество суммируемых членов ряда и вывести на экран нечётные члены ряда

@OverlordKZ · Регистрация: 11.05.2011

Author24 — интернет-сервис помощи студентам

Вобщем не успел решить задачу на зачете. Препод сказала что на перездаче даст уже другую задачу, но для себя хочу узнать решение этой. Помогите пожалуйста!
Вот условие:
Дан ряд, $https://www.cyberforum.ru/cgi-bin/latex.cgi?X+\frac{{X}^{3}}{3}+\frac{{X}^{5}}{5}+\cdot\cdot\cdot$ найти количество суммируемых членов ряда и вывести на экран нечётные члены ряда, пока сумма не достигнет значения, равное 200.
Нужно срочно!Надеюсь на вашу помощь!Заранее спасибо огромное!

@napasik · 24.11.2011, 18:13

Pascal

var x,s:real;
    a,k:byte;
 
begin
 
write('x=');readln(x);
 
a:=1; s:=0; k:=0;
 
Repeat
 
s:=s+((exp(a*ln(x)))/a);
a:=a+2;
k:=k+1;
 
Until s>=200;
 
write('Кол-во членов ряда=',k);
 
end.

@V@D!k · 24.11.2011, 18:16

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

s:=s+((exp(a*ln(x)))/a);

а разве тут real подойдет?

@napasik · 24.11.2011, 18:20

Сообщение от V@D!k

а разве тут real подойдет?

а почему нет?

@OverlordKZ · 24.11.2011, 18:20 **[ТС]**

Вроде там нужно ставить ложное условие,т.е. s <=200,и выводить нечетные члены ряда!Но все равно спасибо,хоть немного начинаю понимать принцип!
Мб еще кто нить поможет?

@V@D!k · 24.11.2011, 18:21

экспонента не будет ругаться?

@OverlordKZ · 24.11.2011, 18:24 **[ТС]**

Сообщение от V@D!k

экспонента не будет ругаться?

Обьясните новичку,почему она должна ругаться?

@V@D!k · 24.11.2011, 18:27

не , я перепутал маленько) это логарифм мог ругаться если было бы отрицательное число, хотя лучше всего степень писать через функцию

Добавлено через 2 минуты
тут х ты можешь вводить тлько положительное

@OverlordKZ · 24.11.2011, 18:29 **[ТС]**

Ну главное сама формула написана правильно?

@V@D!k · 24.11.2011, 18:32

да правильно

@OverlordKZ · 24.11.2011, 18:33 **[ТС]**

Вобщем я ее немного подредактировал:

Delphi

Program zadacha;
var x,s,n:real;
begin
writeln ('x= ');
readln(x);
n:=1;
s:=0;
repeat
s:=s+((exp(n*ln(x)))/n);
n:=n+2;
until s<=200;
writeln ('Summa previsila 200');
readln;
end.

@napasik · 24.11.2011, 18:35

Если выводить нечетный член, тогда так:

Pascal

var x,s,r:real;
    a,k:byte;
begin
 
write('x=');readln(x);
 
a:=1; s:=0; k:=0;
 
Repeat
 
r:=((exp(a*ln(x)))/a);
s:=s+r;
a:=a+2;
k:=k+1;
if odd(k) then write(r:1:1,' ');
 
Until s>=200;
 
writeln;
write('Кол-во членов ряда=',k);
 
end.

А насчет ложного условия, это если бы был цикл с предусловием (While ... do), а в цикле с предусловием(Repeat ... Until) выход осуществляется по значению true.

@V@D!k · 24.11.2011, 18:36

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

riteln ('Summa previsila 200');

что ты тут выводишь?? ты ж не посчитал колличество)

@napasik · 24.11.2011, 18:37

У вас выход из цикла будет осуществляться после первой итерации, т.к. условие выхода из цикла - true, как я уже написал выше.

@V@D!k 249 / 249 / 98 Регистрация: 26.07.2010 Сообщений: 1,685
	24.11.2011, 18:32	10
	да правильно 0

@napasik 38 / 38 / 24 Регистрация: 29.09.2011 Сообщений: 99
	24.11.2011, 18:37	14
	У вас выход из цикла будет осуществляться после первой итерации, т.к. условие выхода из цикла - true, как я уже написал выше. 1

@OverlordKZ 0 / 0 / 0 Регистрация: 11.05.2011 Сообщений: 25
		1
	Найти количество суммируемых членов ряда и вывести на экран нечётные члены ряда 24.11.2011, 18:00. Показов 1946. Ответов 13 Метки нет (Все метки) Вобщем не успел решить задачу на зачете. Препод сказала что на перездаче даст уже другую задачу, но для себя хочу узнать решение этой. Помогите пожалуйста! Вот условие: Дан ряд, $https://www.cyberforum.ru/cgi-bin/latex.cgi?X+\frac{{X}^{3}}{3}+\frac{{X}^{5}}{5}+\cdot\cdot\cdot$ найти количество суммируемых членов ряда и вывести на экран нечётные члены ряда, пока сумма не достигнет значения, равное 200. Нужно срочно!Надеюсь на вашу помощь!Заранее спасибо огромное! 0

@V@D!k 249 / 249 / 98 Регистрация: 26.07.2010 Сообщений: 1,685
	24.11.2011, 18:16	3
	Сообщение от napasik s:=s+((exp(a*ln(x)))/a); а разве тут real подойдет? 0

@napasik 38 / 38 / 24 Регистрация: 29.09.2011 Сообщений: 99
	24.11.2011, 18:20	4
	Сообщение от V@D!k а разве тут real подойдет? а почему нет? 1

@OverlordKZ 0 / 0 / 0 Регистрация: 11.05.2011 Сообщений: 25
	24.11.2011, 18:20 [ТС]	5
	Вроде там нужно ставить ложное условие,т.е. s <=200,и выводить нечетные члены ряда!Но все равно спасибо,хоть немного начинаю понимать принцип! Мб еще кто нить поможет? 0

@V@D!k 249 / 249 / 98 Регистрация: 26.07.2010 Сообщений: 1,685
	24.11.2011, 18:21	6
	экспонента не будет ругаться? 1

@OverlordKZ 0 / 0 / 0 Регистрация: 11.05.2011 Сообщений: 25
	24.11.2011, 18:24 [ТС]	7
	Сообщение от V@D!k экспонента не будет ругаться? Обьясните новичку,почему она должна ругаться? 0

@V@D!k 249 / 249 / 98 Регистрация: 26.07.2010 Сообщений: 1,685
	24.11.2011, 18:27	8
	не , я перепутал маленько) это логарифм мог ругаться если было бы отрицательное число, хотя лучше всего степень писать через функцию Добавлено через 2 минуты тут х ты можешь вводить тлько положительное 0

@OverlordKZ 0 / 0 / 0 Регистрация: 11.05.2011 Сообщений: 25
	24.11.2011, 18:29 [ТС]	9
	Ну главное сама формула написана правильно? 0

@V@D!k 249 / 249 / 98 Регистрация: 26.07.2010 Сообщений: 1,685
	24.11.2011, 18:36	13
	Сообщение от OverlordKZ riteln ('Summa previsila 200'); что ты тут выводишь?? ты ж не посчитал колличество) 1

Найти количество суммируемых членов ряда и вывести на экран нечётные члены ряда

Решение