Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:lab_inf / LAB3
.PAS Program lab3a;
{laboratornay rabota 3}
Var
a,b,x1,x0,delta,eps:real;
N:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite eps');
readln(eps);
x0:=(a+b)/2; N:=0;
repeat
x1:=1/(3+sin(3.6*x0));
N:=N+1;
delta:=ABS(x1-x0);
x0:=x1
until delta<eps;
writeln('korenb=',x1:9:4);
writeln('chislo iteraciy=',N:5);
end.
{laboratornay rabota 3}
Var
a,b,x1,x0,delta,eps:real;
N:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite eps');
readln(eps);
x0:=(a+b)/2; N:=0;
repeat
x1:=1/(3+sin(3.6*x0));
N:=N+1;
delta:=ABS(x1-x0);
x0:=x1
until delta<eps;
writeln('korenb=',x1:9:4);
writeln('chislo iteraciy=',N:5);
end.