Главная | Информатика и информационно-коммуникационные технологии | Планирование уроков и материалы к урокам | 11 классы | Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень) | §1.3. Приближенное решение уравнений
Уроки 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
Численный метод половинного деления
4. Поместить на форму (рис. 1.15):
• два текстовых поля Edit1 и Edit2 для ввода числовых значений концов числового отрезка А и В;
• текстовое поле Edit3 для ввода точности вычислений;
• надпись Label1 для вывода значений корня;
• четыре надписи для вывода обозначений.
5. Поместить на форму кнопку Button2 и создать событийную процедуру TForm1.Button2Click (). Ввести программный код, позволяющий вычислить корень уравнения методом половинного деления с использованием цикла с постусловием, который будет выполняться, пока не станет истинным условие (В - А)/2 < Е:
var
А, В, С, E: real;
procedure TForm1.Button2Click(Sender:TObject);
begin
A:=StrToFloat(Edit1.Text);
B:=StrToFloat(Edit2.Text);
E:=StrToFloat(Edit3.Text);
Repeat
С:=(A+B)/2;
If (A*A*A-Cos(A))*(C*C*C-Cos(C))<0
Then В: =C
Else A: =C
Until (В-A)/2<E;
Label1.Caption:=FloatToStr((A+B)/2);
end;
6. Из графика функции видно, что корень находится на отрезке [0; 1]. Введем в текстовые поля значения концов числового отрезка, а также точность вычислений (например, 0,0001).
На надпись будет выведено значения корня: x ≈ 0,86541 (см. рис. 1.15).
Точность вычисления корня зависит не только от параметров используемого численного метода, но и от типа переменной. В нашем случае имеет смысл говорить о математической точности результата, которая не может превышать точность числового метода, т. е. x ≈ 0,86541.
Рис. 1.15. Проект «Приближенное решение уравнения» на языке Turbo Delphi
Следующая страница 
Контрольные вопросы
Cкачать материалы урока
