Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program Example;
- Const pi = 3.1415;
- begin
- var a : real;
- var b : real;
- var eps : real;
- var z : real;
- var d : real;
- writeln('Введите левый конец промежутка (для задачи 1 левый конец должен быть равен -10)');
- readln(a);
- writeln('Введите правый конец промежутка (для задачи 1 правый конец должен быть равен 10)');
- readln(b);
- writeln('Введите точность (для задачи 1 точность должна быть равна 0.0001)');
- readln(eps);
- writeln('Введите удельную плотность дерева (для задачи 1 плотность должна быть равна 0.8)');
- readln(d);
- while (b-a>eps) do begin
- z:=(a+b)/2;
- if (a-Sin(a)-2*pi*(1-d))*(z-Sin(z)-2*pi*(1-d))>0 then begin
- a:=z
- end
- else begin
- b:=z;
- end
- end;
- writeln('В формуле погружения бруска x = ', z);
- writeln('Введите радиус бревна (для задачи 1 радиус бревна должен быть равен 0.2)');
- readln(a);
- b:=a+a*Cos(z/2);
- writeln('Ответ к задаче: ', b);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement