Алгоритмические языки и программирование. Игошина Л.В. - 34 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

{Студенты гр. ....}
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:8:3,' y= ',y:8:3);
end;
x:=x+H;
end; { Конец For}
END.
Варианты самостоятельных заданий
1. Y = xSinx/Cosx; A = -1.6, B = 1.6, H = 0.2
2. Y = tgx
2
+ ctgx
2
; A = -2, B = 2, H=0.5
3. Y = Ln(x
2
-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/(x
2
-3); A = -4, B = 4, H = 0.5
10. Y = 1/Ln(x
2
/8); A = -3, B = 3, H = 0.6 
             {Студенты гр. ....}
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:8:3,' y= ',y:8: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

Страницы