Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Программа на языке PASCAL 7.0

program metod_kasatel;{Название программы}

uses Crt; {Модуль дисплейных функций}

var {Блок описаний переменных}

xn,xn1,a,b,c,mx,y0,x0: real;

function f1(x1: Real): Real; {Основная функция}

begin

f1:= x1*x1*x1*(-0.5)-0.05*x1*x1+0.8*x1+0.6;

end;

function f2(x4:Real): Real; {Производная от основной функции}

begin

f2:= x4*x4*x4+0.5*x4*x4+0.1*x4*x4+0.4*x4–1.2;

end;

begin {Начало основного тела программы}

Clrscr; {Очистка экрана перед выполнением программы}

a:=0;b:=1;c:=0.00000001;

Writeln (' От A=',a,' до B=',b); {Вывод на экран}

Writeln (' Погрешность с=',c);

Readln; {Ожидание нажатия клавиши Enter}

xn:=b;

xn1:= f1(xn);

y0:=f2(b);

while ABS (y0)>c do {Проверка по точности вычисления корня}

begin {Тело цикла}

xn:=xn1;

Рекомендуем скачать другие рефераты по теме: создание реферата, реферат язык.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки