Консультация № 132281
15.04.2008, 10:47
0.00 руб.
0 6 1
Здравствуйте! Помогите пожалуйста написать такую программу на паскале: http://img144.imageshack.us/img144/8356/form10he2.png
X - какое-то число. Вроде все просто... В цикле крутил, но ничего хорошего не получилось...
Подскажите пожалуйста как это правильно написать.

Обсуждение

давно
Старший Модератор
31795
6196
15.04.2008, 11:36
общий
это ответ
Здравствуйте, Upgrader!

Программа в приложении.
Удачи!

Приложение:
const e=0.0000001; var x,y,r,w:real; z:integer; {рабочая функция} function F(a:integer):real; begin {F:=exp(ln(x)*a)*cos(a*x);} F:=w*cos(a*x); end; {функция контроля} function C:real; begin C:=(1-x*cos(x))/(1-2*x*cos(x)+x*x); end; begin {вводим Х} repeat write(‘X:‘); readln(x); until abs(x)<1; r:=0; z:=0; w:=1; {цикл суммирования ряда} while abs(F(z)-F(z+1))>e do begin r:=r+F(z); inc(z); w:=w*x; end; {выводим результат} writeln(‘R:‘,r:20:10); writeln(‘C:‘,C:20:10); writeln(‘Z:‘) end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Старший Модератор
31795
6196
15.04.2008, 11:46
общий
Число повторений находится в переменной Z.При таком способе возведения в степень число Х должно быть положительным.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Старший Модератор
31795
6196
15.04.2008, 12:06
общий
Заменил в ответе программу для любого знака.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
16.04.2008, 03:00
общий
Зенченко Константин Николаевич,Прокомментируйте пожалуйста эту программу по строкам, для окончательного понимания таких простых вещейХотя почти все и так ежу понятно.А за программу Спасибо с большой буквы, больше таких тупых вопросов надеюсь не будет.
Неизвестный
16.04.2008, 03:48
общий
Подскажите плз. почему это записано именно так:abs(F(z) - F(z+1))А конкретнее, для чего используется вычитание? (и нет ли других способов сделать тоже самое?)И еще один вопрос. Зачем цикл на вводе Х, для фильтрации вводимых данных? Он действительно там нужен?
давно
Старший Модератор
31795
6196
16.04.2008, 10:37
общий
из задания:Диапазон изменения |X| < 1, цикл нужен для контроля вводимых значений(всегда найдется клоун, котроый введет 2-а, как говорится на пользователя надейся, а сам не плошай);Такое вычитание нужно для достижения нужной погрешности.В принципе можно оставить только abs(F(z)) < E, но тогда цикл суммирования будет дольше крутиться.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа