Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Mr
1 / 1 / 0
Регистрация: 14.03.2012
Сообщений: 84
#1

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

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

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

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

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

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

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

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

Вычисление значения функции, заданной графически - Delphi
Написать программу, которая вычисляет значения функции, заданной графически используя, оператор if. код: writeln('vvedite x='); ...

5
Mr
1 / 1 / 0
Регистрация: 14.03.2012
Сообщений: 84
01.04.2012, 15:58  [ТС] #2
Может кто помочь?
0
BumerangSP
4287 / 1409 / 121
Регистрация: 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 / 121
Регистрация: 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
Привет! Вот еще темы с ответами:

Корни... - Delphi
Помогите пожалуста! нужна процедура извлекающая n-ный(отличный от 2) корень из числа(любого).... буду очень благодарен

корни функции - Delphi
нучно сделать программу для уточнения корней уровнения на отрезке с заданой точностю. сразу после компиляции и ввода n(количества...

Корни уравнения - Delphi
Здравствуйте. Помогите с решением, а то всё время выдаёт ошибку. Для чисел Х и У определить, являются ли они корнями уравнения...

Корни квадратного уравнения - Delphi
Помогите написать программу, вычисляющую корни квадратного уравнния ax2+bx+c=0. Исключить ввод символов вместо цифр, получение...


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

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

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