перевести из Pascal на Scilab

[kat180396]

Перевести из Pascal в scilab

Program divide_half;
uses crt;
type T=real;
var a,b, c,х2, eps, x,:T,n,m:integer;
function f(x:T):R;*********** 
begin f:=sin(2*x)-lnx;
end;
Begin
**** clrscr;
**** writeln(’Введите a,b,eps’);**** read(a,b,eps);
**** repeat
************* c:=(a+b)/2;
************** if f(a)*f(c)<0 then b:=c else a:=c;

**** until b-a<=eps;
************ x:=(a+b)/2;
**************** if* x<0 then begin if n<0 then m:=0 else m:=n;
*********************************** writeln( ‘x=’, x-1E-10:7:m, ‘n=’, n);
***************** *****end;
************ else begin if n<0 then m:=0 else m:=n;
*********************************** writeln( ‘x=’, x-1E-10:7:m, ‘n=’, n);

* *end; end.

и вторая

Program separat_root;
uses crt;
var a,b, х1,х2, y1, y2,h:real;
function f(x:real):real;**** ******{уравнение вида F(x)=0}
begin f:=cos(x)-0.1*x;
end;
Begin
**** clrscr;
**** writeln(’Введите a,b,h’);** **read(a,b,h);
* * *k:=0; x1:=a; x2:=x1+h; y1:=f(x1);
**** while x2<b do
********** begin y2:=f(x2);
************** if y1*y2<0 then
****************** begin inc(k);
************************ writeln(k, ‘-й корень [‘,x1:4:1, ‘;’, x2:4:1,’]’);
****************** end;
***** *******x1:=x2; x2:=x1+h; y1:=y2;
* end;
end.

*

[Вадим Мошев]

kat180396
Это раздел для платных услуг. Вы готовы платить за выполнение этого задания?
P. S. Ко мне обращаться НЕ надо - Scilab не знаю и помочь НЕ смогу.