Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ задачка на цикл While
Автор: pan 22.05.2008 20:24
Вычислить сумму ряда:
x^3 x^5 x^(2n+1)
x=X+ ------- + -------- + ... + ---------------
x^3 x^5 (2n+1)
Считать что требуемая точность достигнута. если очередное слагаемое по модулю меньше E. E=10^(-3).
Моё решение:
ses crt;
var
x,E,s2,s3: real; n,s1,i: integer;
begin
clrscr;
n:=0;
write ('Введите X: ');
readln (x);
while n<0.001 do
begin
s1:=(2*n)+1;
s2:=1;
for i:=1 to s1 do
begin
s2:=s2*x;
end;
s3:=s3+(s2/s1);
writeln ('s3=',s3);
n:=n+1;
end;
writeln ('s3=',s3);
readln;
end.
ПОЖ-ТА!!! проверьте правильно ли я решил задачу!
Добавлено через 7 мин.
Вычислить сумму ряда:
x^3 x^5 x^(2n+1)
x=X+ ------- + -------- + ... + ---------------
x^3 x^5 (2n+1)
Считать что требуемая точность достигнута. если очередное слагаемое по модулю меньше E. E=10^(-3).
Моё решение:
ses crt;
var
x,E,s2,s3: real; n,s1,i: integer;
begin
clrscr;
n:=0;
write ('Введите X: ');
readln (x);
while n<0.001 do
begin
s1:=(2*n)+1;
s2:=1;
for i:=1 to s1 do
begin
s2:=s2*x;
end;
s3:=s3+(s2/s1);
writeln ('s3=',s3);
n:=n+1;
end;
writeln ('s3=',s3);
readln;
end.
ПОЖ-ТА!!! проверьте правильно ли я решил задачу!
вот нормальное условие задачи!
Эскизы прикрепленных изображений
Автор: pan 22.05.2008 23:20
что никто незнает правильно ли я решил или нет?
Автор: sintanial 23.05.2008 0:12
Ну вроде если написано в задании по модулю то нужно делать по модулю =), а я его у тебя вроде не нашел.
И если я не ошибаюсь тута нужно делать рекурентное соотношение насколько я знаю =). (но я точно не знаю, может я и не прав !)