For
- n. : n=(b-a)/h+1. , . n , , n . Round.
 | |||
 | |||
 | |||
 | |||
{ }
{ FOR}
{ .....}
Uses crt;
Var x,y,A,B,H:real;
n,i: integer;
BEGIN Clrscr;
Writeln(' A B H'); read(A,B,H);
n:= Round((B-A)/H)+1;
x:=A;
For i:=1 To n Do
begin
if (6*x*x-x*x*x)<=0 then
Writeln(' x= ',x:5:3,' ')
else
begin
y:= Exp(1.0/3.0*Ln(Abs(6*x*x-x*x*x)));
Writeln(' x= ',x:2:3,' y= ',y:2:3);
end;
x:=x+H;
end; { For}
END.
1. Y = xSinx/Cosx; A = -1.6, B = 1.6, H = 0.2
2. Y = tgx2 + ctgx2; A = -2, B = 2, H=0.5
3. Y = Ln(x2 -9)/x; A = -6, B = 6, H = 1
4. Y = xLn(Cosx); A = -3, B = 3, H = 0.3
5. Y = tgx/x; A = -2, B = 2, H = 0.2
6. Y = Sinx/(x-5); A = -6, B = 6, H = 0.5
7. Y = x/(1-Cosx); A = -4, B = 4, H = 0.5
8. Y = 1/xtg(x/2); A = -3, B = 3, H = 0.5
9. Y = 1/(x2 -3); A = -4, B = 4, H = 0.5
10. Y = 1/Ln(x2/8); A = -3, B = 3, H = 0.6
11. Y = 1/x ctg(x/3); A = -4, B = 4, H = 0.5
12. Y = Ln(16-x2)/x ex; A = -6, B = 6, H = 0.5
13. Y = x tg x/ Lnx; A = -3, B = 3, H = 0.5
14. Y = x2Ln|x|/Sinx; A = -2, B = 2, H = 0.2
15. Y = x/Sinx+ Ln(x2 - 4); A = - 6, B = 6, H = 0.5
16. Y = x2Cosx/Ln(x2-1); A = -2, B = 2, H = 0.1
17. Y = xSinx/Ln(x2-9); A = -5, B = 5, H = 0.5
18. Y = x2/(Cosx+Ln(x2-1)); A = -2, B = 2, H = 0.2
19. Y = (x2+ tgx)/Ln(x2-4); A = -4, B = 4, H = 0.8
20. Y = (x2- Cosx)/xLn(x2-1); A = -2, B = 2, H = 0.2
