Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  uyen
Language: PASCAL
Code:
program tinh;
var  a, x,y ,an , ak, ha, xn, xk, hx, xx:real;
begin
writeln(' введите итервал an и  ak  :  ');       read( an, ak  );
writeln(' введите итервал xn   и xk :  ');        read( xn, xk  );
 writeln(' введите итервал  шаг ha :  ');        read( ha );
writeln(' введите итервал шаг  hx :  ');         read( hx );
      a:=an;     x:=xn; 
while (a<=ak) do
      begin
           while (x<=xk) do
      begin
           xx:=sqr(x) ;     if xx=4 then x:=x+hx;
       begin
           y:=a+1/(sqr(x) - 4);
           writeln (  'a= ', a:5:2, '   x= ',y:5:2, '    y= ', y:5:2 );
           x:=x+hx; 
      end;
      end;
          a:=a+ha;
      end;
end.

Comments: