Переделать из pascal в c++ uses crt; var e, l, xk, yk, a, b, x: real; k: integer; function f(x: real): real; begin f: =sin(x)*x; //искомая функция end; begin l: =1; k: =0; //количество итераций a: =0; //интервал от b: =6; // до e: =0.001; //точность repeat xk: =(a+b)/2.0-e; //начальная yk: =(a+b)/2.0+e; //точка if f(yk)> =f(xk) then b: =yk; if f(yk) a: =xk; inc(k); until l< (b-a); x: =(a+b)/2.0; writeln('xm = ', x: 3: 2, ' f(xm) = ', f(x): 3: 2); writeln('итераций: ', k); end.

Математическая модель (а также программа; зависит от того, что понимать под этапом формализации).

В учебнике выделяют такие этапы решения задачи на компьютере:

Исходные данные (результат - словесная информационная модель)Формализация (математическая модель)Алгоритмизация (алгоритм)Программирование (программа)Отладка, тестирование (уточнение модели)Выполнение расчетов (получение результатов)

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

Uses GraphABC; 
procedure Draw(x, y, l, u : Real; t : Integer);

procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);
begin
Draw(x, y, l, u, t);
x := x + l*cos(u);
y := y - l*sin(u);end; 
begin
if t > 0 then
beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1);
Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end
else
Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end;
begin
SetWindowSize(425,500);
SetWindowCaption('Фракталы: Снежинка Коха');
Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4);
Draw(210, 8, 400, -pi/3, 4);end.