1_8 (1185050)

Имя компонента (Name)

Для чего используется

Примечание

Form1

Для размещения компонент

Label1

Для размещения текста ‘ Исходные данные ’

Label2

Для размещения текста ‘ Результаты ’

Label3

Для размещения текста ‘ i>nmax, зацикливание ’

StringGrid1

Для ввода исходных данных

RowCount=2, ColCount=4

В верхней строке ( ‘шапке’ ) – A B Eps Nmax

StringGrid2

Для вывода результатов

RowCount=2, ColCount=3,

В верхней строке ( ‘шапке’ ) – Xn f(Xn) i

Button1

Для запуска проекта на решение

Button2

Для очистки всех компонент

Имя компонента

(Name)

Название

события

Описание

события

Реакция на событие

Имя соответствующей процедуры – обработчика события

Form1

OnActivate

Активизация формы

Заполнение ‘шапок’ таблиц

TForm1Activate

Button1

OnClick

Щелчок по мышке

Решение задачи c выводом результата

TForm1.Button1Click

Button2

OnClick

Щелчок по мышке

Очистка компонент

TForm1.Button2Click

Вид данного

Обозна-чение

Смысл

Тип

Примеч

Процедуры и функции

f

Заданная функция

Веществ. ф-ция одного аргумента

Исходные данные

x

Аргумент заданной функции

Веществ. (real)

| x | < 1

Eps

Точность вычисления корня

Веществ. (real)

Nmax

Предельно допустимое кол-во итераций

Целое (Integer)

Результи-рующие данные

Xn

Найденное значение корня

Веществ. (real)

i

Результирующее (и текущее) кол-во итераций

Целое (Integer)

Y

Значение функции f(XN)

Веществ. (real)

Промежу-точные данные

i

Текущее (и результирующее) кол-во итераций

Целое (Integer)

Xl

Левая граница текущего отрезка

Веществ. (real)

Xp

Правая граница текущего отрезка

Веществ. (real)

Xs

Середина текущего отрезка

Веществ. (real)

D

| Xp –Xl |

Веществ. (real)

Начало

ввод A, B, Eps

i :=0

Xl:=A

Xp:=B

Цикл

i := i + 1

Xs := (Xl+Xp)/2

Если (корень принадлежит отрезку [A, Xs] ) то

Передвигаем правую границу Xp:=Xs

Иначе

передвигаем левую границу Xl:=Xs

конец если

D:= | Xp –Xl |

до (D < =Eps или i =Nmax )

конец цикла

если ( |D| <= eps ) то

Xn:= (Xl+Xp)/2

Y := f(Xn)

Вывод Xn, Y, i

иначе

вывод ‘ i > nmax ’

конец если

конец

Примечание:

Если f(A) * f(Xs) < 0 , то корень принадлежит [A, Xs]

Procedure TForm1.Button1Click(Sender: TObject);

var

. . .

function f(x: real): real;

begin

f := . . .

end;

begin

. . .

i:=i+1;

. . .

repeat

i:=i+1;

. . .

D:= | Xp –Xl |

Until ( . . . )

. . .

№ пп

Что проверяется

Значения исходных данных

Ожидаемый результат

1

Реакция программы при i >nmax

nmax =2, eps = 0.01, A=0 , B=2

Текст ‘i>nmax’

2

i < nmax

nmax =50, eps = 0.01, A=0 , B=2

Xn=…, f(Xn)=…, i= …