Тема: "Организация итерационных циклических процессов"(Pascal)

program Project5A;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  n,x:real;
  s:word;
begin
  s:=0;n:=0;x:=2;
  While (3*sin(sqrt(x))+0.35*x-3.8=0) or (x<=3) do
   n:=3*sin(sqrt(x))+0.35*x-3.8;
   s:=s+1;
   x:=x+0.0001;
  end;
  if n>=0.0001 then
  begin
    Writeln(' Chislo iteracii= ',s);
    Writeln(' Korenb = ',n:5:5);
  end
  else
    Writeln(' koren ne naiden ');
  readln;
end.

uses crt;
function F(x:real):real;
begin
   F:=3*sin(x)+0.35*x-3.8;
end;
var eps,f1,f2,x,x1,x2,a,b:real;
    n,i:integer;
begin
clrscr;
a:=2;
b:=3;
eps:=0.0001;
if F(a)=0 then
  begin
     writeln('x=a=',a:10:7);
     readln;
     exit;
  end
else if F(b)=0 then
   begin
     writeln('x=b=',b:10:7);
     readln;
     exit;
   end
else if F(A)*F(B)>0 then WriteLn('Границы интервала заданы некорректно!')
else begin
n:=round((b-a)/eps);
x1:=a; f1:=F(x1);
for i:=1 to n do
  begin
   x2:=x1+(b-a)/n;
   f2:=F(x2);
   if f1*f2 <= 0 then writeln('Нуль функции на x = ', (x2 + x1)/2:0:8);
   x1:=x2; f1:=f2;
  end;
end;
readln
End.

program Project1;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  n,x:real;
  s:word;
 begin
  s:=0;n:=0;x:=2;
  While (n>=0.0001) or (x<=3) do
   begin
   n:=3*sin(sqrt(x))+0.35*x-3.8;
   s:=s+1;
   x:=x+0.0001;
  end;
if (x>=0.0001) then
 begin
    Writeln(' Chislo iteracii= ',s);
    Writeln(' Korenb = ',n:4:4);
 end;
 else
 writeln(' HET TAKIX ');
end;
  readln;
end.

 program Project1;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  n,x:real;
  s:word;
begin
 s:=0;n:=1;x:=2;
  While (n>=0.0001) or (x<=3) do
   begin
    n:=3*sin(sqrt(x))+0.35*x-3.8;
    s:=s+1;
    x:=x+0.0001;
    end;
   if (n<=0.0001) then
    begin
     Writeln(' Chislo iteracii= ',s);
     Writeln(' Korenb = ',n:4:4);
    end
   else
    writeln(' HET TAKIX ');
  readln;
end.