Помощь - Поиск - Пользователи - Календарь
Полная версия: фомула
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Izo
Напишите как эта формула в паскале будет записана... а то у меня подозрение, что я не правильно ее записал.

Добавлено через 5 мин.
Если кому интересно , вот сама задача :

Составить Паскаль-программу, позволяющую найти корень уравнения на заданном отрезке. Приближенное значение корня представлено в последнем столбце таблицы.
volvo
Цитата
а то у меня подозрение, что я не правильно ее записал.
Ну, вот и покажи, как записал. Тогда и посмотрим, правильно или нет...
Izo
ну типа вот:

f:=(sin(x)/cos(x))-1/3*(sqr(sin(x)/cos(x))*(sin(x)/cos(x)))+1/5*(sqr(sqr(sin(x)/cos(x)))*(sin(x)/cos(x)))-1/3
volvo
А что, разбить на 2 строки - никак?

t := sin(x) / cos(x); { <-- не забудь проверить на cos(x) <> 0 }
f := t - (1/3) * t * sqr(t) + (1/5) * t * sqr(sqr(t)) - (1/3);

Izo
хм...логично....я просто Pascal ток в этом семестре изучать начал...
Izo
чет у меня не так получается... Я так понял должно получаться 0,3333 приблизительно. По книге делал. Скажите че не так.

uses crt;
function f(x:real):real;
begin
f:=(sin(x)/cos(x))-1/3*(sqr(sin(x)/cos(x))*(sin(x)/cos(x)))+1/5*(sqr(sqr(sin(x)/cos(x)))*(sin(x)/cos(x)))-1/3
end;
Var
a,b,c,x,e:real;
Begin
clrscr;
a:=0;
b:=0.08;
write('e=');
readln(e);
repeat
c:=(a+b)/2;
if (f(a)*f©)<0 then
b:=c
else
a:=c;
until (b-a)<=e;
x:=(a+b)/2;
writeln('x=',x:5);
readkey;
End.
volvo
Ты интервал 0 .. 1 сделай (а не от 0 до 0,08 как у тебя сейчас), может и получится что-нибудь wink.gif
Izo
по заданию интервал такой...
данные задани в первом посте, второй добавленый рисунок.
volvo
По заданию интервал НЕ до 0.08, а в 10 раз больше, до 0.8...
Izo
хм...ну да...это я от недосыпа наверно...молодец,что увидел. Но всеравно прога чет не то выдает...
volvo
Меняешь формат вывода на
writeln('x=',x:10:5);
, и получаешь результат:
Цитата
e=0.01
x= 0.33203

Что именно не то?
Izo
да уж...эт видать я уже туплю...надо спать идти...спс за помощь smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.