|
Вопрос # 4 329/ вопрос открыт / |
|
Здравствуйте уважаемые господа эксперты!
Помогите с заданием:
Решить уравнение вида f ( x)= 0 методом деления отрезка пополам (метод дихотомии). На каждой итерации отрезок [a,b] делится пополам и выбирается та из половин, на концах которой функция f ( x) имеет
значения разных знаков.
не понимаю в области программирование, придется доучиваться
Заранее выражаю благодарность, спасибо!!!
 |
Вопрос задал: Popov Dmitry (статус: Посетитель)
Вопрос отправлен: 15 июня 2010, 22:35
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: SMS-k@
Здравствуйте, Popov Dmitry!
f ( x)= 0 - не ясно что за функция...(
У меня есть подобная программа, со следующим условием:
Описать рекурсивную функцию которая методом деления отрезка
пополам находит с точностью Е корень уравнения f(x)=0 на отрезке [a,b] (Считать что Е>0, a
функция на отрезке [a,b] )
КОД:
Приложение: Переключить в обычный режим- program Project1;
- uses
- SysUtils;
- const
- E=0.0001;
- var
- y,a,b:real;
- function f(x:real):real;
- begin
-
- end;
- function root(a,b:real):real;
- var
- x,C:real;
- begin
- C:=(b-a)/2+a;
- if abs(f(C))<E then x:=C
- else
- begin
- if f(C)*f(A)>0 then A:=C
- else
- B:=C;
- x:=root(a,b);
- end;
- root:=x;
- end;
- begin
- write('nacalnoe znachenie = ');
- read(a);
- write('konechnoe znachenie = ');
- read(b);
- y:=root(a,b);
- writeln('x = ',y:4:2);
- readln;readln;
- end.
-
 |
Ответ отправила: SMS-k@ (статус: 1-ый класс)
Время отправки: 16 июня 2010, 06:10
Оценка за ответ: 5
Комментарий к оценке: Благодарю, по аналогии сделаю
|
Мини-форум вопроса
Всего сообщений: 7; последнее сообщение — 16 июня 2010, 12:53; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 15 июня 2010, 22:46 [#1]:
Это я тебя отправил на этот форум.
Что ты предлагаешь?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Popov Dmitry (статус: Посетитель), 15 июня 2010, 23:03 [#2]:
помогите в начальном написание программы
хотя бы основной текст написание процедур
|
|
|
min@y™ (статус: Доктор наук), 15 июня 2010, 23:10 [#3]:
Блин, там делов максимум на полчаса. Я бы сделал (уже делал когда-то), но есть одна проблема - ЧМ2010. Не могу оторваться, на каждый матч поставил. Втора я проблема - навалили работой на работе. По самые помидоры.
Может найдутся здесь робингуды, не фанатеющие от футбола?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Popov Dmitry (статус: Посетитель), 15 июня 2010, 23:14 [#4]:
до понедельника, возможно?
|
|
|
Popov Dmitry (статус: Посетитель), 15 июня 2010, 23:17 [#5]:
есть методичка, думаю смысла нету что она будет
|
|
|
min@y™ (статус: Доктор наук), 15 июня 2010, 23:56 [#6]:
Цитата (Popov Dmitry):
есть методичка, думаю смысла нету что она будет
До понедельника - возможно.
А свою методичку засунь... фтопку. И поцелуй меня в пачку! (© А. Волочкова).
Чортовы студенты! Я из-за вас плановую работу не могу закончить! Мне ж начальство мозг отформатирует!
Пиши завтра утром, попробую выкроить время.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Popov Dmitry (статус: Посетитель), 16 июня 2010, 12:53 [#7]:
f ( x)= 0, здесь просто f ( x)= 0, почему символы лишние без понятии
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
