Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
16
Добавлен:
06.02.2016
Размер:
725 б
Скачать
uses crt;
const e=0.000001;
var a,b,x1: real;
i: integer;
t: boolean;
c: array [0..300] of real;
function f(x: real): real;
begin
result:=0.1+0.01*x-sin(x);
end;
function f1(x: real): real;
begin
result:=-cos(x)+0.01;
end;
function f2(x: real): real;
begin
result:=sin(x);
end;
begin
clrscr;
a:=0; b:=1;
c[0]:=a;
t:=true;
i:=0;
x1:=f1(c[i]);
while t=true do
begin
c[i+1]:=c[i]-f(c[i])/f1(c[i]);
if abs(f(c[i+1]))>E then
begin
inc(i);
x1:=f2(c[i]);
continue;
end
else
begin
writeln('C=',c[i+1]);
t:=false;
break;
end;
end;
writeln('Iteratsiy: ',i);
writeln('f(x)=',f(x1));
readln;
end.
Соседние файлы в папке 4