Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень)



Уроки 8 - 10
§1.3. Приближенное решение уравнений




Содержание урока

1.3.1. Графические и численные методы решения уравнений
1.3.2. Приближенное решение уравнений на языке Visual Basic
1.3.3. Приближенное решение уравнений на языке Turbo Delphi

Задача

Проект «Приближенное решение уравнения» на языке Turbo Delphi. Графический метод

Проект «Приближенное решение уравнения» на языке Turbo Delphi. Численный метод половинного деления

Контрольные вопросы

1.3.4. Приближенное решение уравнений в электронных таблицах

1.3.3. Приближенное решение уравнений на языке Turbo Delphi


Проект «Приближенное решение уравнения» на языке Turbo Delphi
Графический метод


Графический метод (рис. 1.14)

1. Ввести в начало программного кода в оператор uses модуль Math, который обеспечивает подключение математических функций (Cos (), Tan () и т. д.).


uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Math;

2. Ввести событийную процедуру TForm1.ButtonlClick (Sender: TObject) графического решения уравнения.


var
X, Y; real;
N: integer;
procedure TForm1.ButtonlClick(Sender: TObject);
begin
with Image1.Canvas do
begin
//график функции X: =-3;
while X < 3 Do
begin
X:=X+0,001;
Y;=X*X*X-Cos(X);
Pixels[Round(100*X)+200, 200-Round (20*Y)]:=clBlack;
end;
MoveTo(0,200); LineTo(500,200!; //Ось X
MoveTo(250,0); LineTo < 250,500); //Ось Y
//Шкала оси X
N: =0;
while N < 500 do
begin
N:-N+100;
MoveTo(N,190); LineTo (N,210);
TextOut(N,200,FloatToStr(Round(N-250)/50));
end;
//Шкала оси Y
N; =0;
while N < 400 do
begin
N;=N+100;
MoveTo(245,400-N); LineTo(255,400-N);
TextOut(245,400-N,FloatToStr (Round((N-200)/10))) ;
end;
end;
end;

3. График функции пересекает ось X один раз, следовательно, уравнение имеет один корень. По графику грубо приближенно можно определить, что x ≈ 0,8 (см. рис. 1.14).

Рис. 1.14. Графическое решение уравнения



Следующая страница Проект «Приближенное решение уравнения» на языке Turbo Delphi. Численный метод половинного деления



Cкачать материалы урока





Наверх