Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Mr
1 / 1 / 0
Регистрация: 14.03.2012
Сообщений: 84
1

Отделите корни графически

31.03.2012, 12:19. Просмотров 524. Ответов 5
Метки нет (Все метки)

Помогите кто-нибудь написать пожалуйста
Задача:
Отделите корни графически и уточните один из них методом половинного деления с точностью до 0.001
x-sinx=0.25
Зарание блогодарен!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2012, 12:19
Ответы с готовыми решениями:

Написать процедуру, вычисляющую корни квадратного уравнения. Корни должны выводиться на экран в процедуре
Написать процедуру, вычисляющую корни квадратного уравнения. Корни должны...

Графически изобразить значения массива
есть одномерный массив c. Подскажите ,пожалуйста, как можно реализовать...

Вычисление значения функции, заданной графически
Написать программу, которая вычисляет значения функции, заданной графически...

Вычислить значение функции, заданной графически
Дано действительное число a. Вычислить f(a), где f-периодическая функция с...

Вычислить значение функции, заданной графически
Помогите написать программу, которая по введенному значению аргумента вычисляет...

5
Mr
1 / 1 / 0
Регистрация: 14.03.2012
Сообщений: 84
01.04.2012, 15:58  [ТС] 2
Может кто помочь?
0
BumerangSP
4287 / 1409 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
01.04.2012, 16:42 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
Type TFunc=function (x: real): real;
procedure DrawGraph (f: TFunc; a: real; b: real; c: TCanvas);
var
 x,y,dx: real;
 fsize: real;
 Xo,Yo,q: integer;
begin
 fsize:=(c.ClipRect.Right)/(b-a);
 dx:=1/fsize;
 Xo:=c.ClipRect.Bottom div 2;
 Yo:=c.ClipRect.Right div 2;
 with c do
  begin
   Brush.Color := clwhite;
   pen.Width:=1;
   pen.Style:=pssolid;
   Pen.Color:=clblack;
   MoveTo(0, Yo);
   LineTo(c.ClipRect.Right, Yo);
   MoveTo(Xo, 0);
   LineTo(Xo, c.ClipRect.Bottom);
   TextOut(285, 305, '0');
   TextOut(580, 287, '>');
   TextOut(293, 0, '^');
   TextOut(550, 280, 'x');
   TextOut(305, 20, 'y');
   MoveTo(295, 230);
   LineTo(300,230);
   MoveTo(23, 295);
   LineTo(23,290);
   q:=50;
   repeat
    begin
     MoveTo(295, 217+q);
     LineTo(300,217+q);
     q:=q+25;
    end;
   until q=500;
   q:=50;
   repeat
    begin
     MoveTo(295, 280-q);
     LineTo(300,280-q);
     q:=q+25;
    end;
   until q=300;
   q:=25;
   repeat
    begin
     MoveTo(23+q, 295);
   LineTo(23+q,290);
     q:=q+25;
    end;
   until q=700;
  end;
 x:=a;
 y:=f(x);
 c.Pen.Color:=clred;
 c.MoveTo(Xo+round(fsize*x), Yo-round(fsize*y));
 while x<=b do
  begin
   y:=f(x);
   c.LineTo(Xo+round(fsize*x), Yo-round(fsize*y));
   x:=x+dx;
  end;
end;
 
Function f(x: real): real;
Begin
 Result:=x-sin(x)-0.25;
End;
 
procedure TForm1.Button1Click(Sender: TObject);
var a,b,E,c: real;
    k: integer;
    t: boolean;
begin
 DrawGraph (f, -12, 12, Image1.Canvas);
 k:=0;
 a:=0;
 b:=2;
 e:=0.001;
 t:=true;
 while t=true do
  begin
   c:=(a+b)/2;
   if abs(f(c))>E then
    begin
     if f(a)*f(c)>0 then
      begin
       a:=c;
       inc(k);
       continue;
      end
       else
        begin
         b:=c;
         inc(k);
         continue;
        end;
    end
     else
      begin
       t:=false;
       break;
      end;
  end;
  label1.caption:='Корень = '+floattostrf(c,fffixed,5,4)+' Итераций: '+inttostr(k);
end;
Сам проект:
1
Вложения
Тип файла: rar PolDel.rar (3.5 Кб, 17 просмотров)
Mr
1 / 1 / 0
Регистрация: 14.03.2012
Сообщений: 84
01.04.2012, 16:45  [ТС] 4
BumerangSP
спасибо большое,но файл не открывается
0
BumerangSP
4287 / 1409 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
01.04.2012, 16:49 5
Mr, перезалил.
1
Вложения
Тип файла: rar PolDel.rar (3.5 Кб, 19 просмотров)
Mr
1 / 1 / 0
Регистрация: 14.03.2012
Сообщений: 84
01.04.2012, 16:50  [ТС] 6
BumerangSP, вот теперь все,спасибо большое
0
01.04.2012, 16:50
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.04.2012, 16:50

Вычислить значение функции, заданной графически.
Помогите, пожалуйста, написать код: Дано действительное число а. Для функций...

Вычисление значения функции, заданной графически
Написать программу, которая по введенному значению аргумента вычисляет значение...

Электронные часы. Цифры реализуются графически через набор прямоугольников, а не в текстовом виде
Необходимо разработать программу, которая реализует электронные часы.Цифры...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru