Линейный процесс. Составление программы вычисления указанных величин при произвольных значениях исходных величин, страница 4

-5

Введите значение y=

-10

Точка (x=-5.00;y=-10.00) не принадлежит области

Введите значение x=

-1

Введите значение y=

1

Точка (x=-1.00;y= 1.00) принадлежит области

Проверка

Задача 5 Разработать программу, которая вычисляет для целых значений аргумента одну из заданных функций в указанной точке.

         а) если x равен –4, 6, то

         б) если x равен 0, 1, 2, 3, 4, 5, то

         в) если x равен –5, 1, 9, то 

         г) в остальных случаях 

Точки счета –6, -4, 0, 1, 10

         1 способ с помощью условного оператора

{Самоленков С. В. ТНГ-06-2 Вариант 6}

{Вычисление функций для целого значение аргумента}

{Вариант а с помощью условного оператора}

Program Zadacha5;

Uses Crt;

Var x, y : real;

Begin

 WriteLn('Введите значение x=');

 ReadLn(x);

 if (x=-4) or (x=6) then y:=sqrt(abs(x)) else

  if (x=0) or (x=1) or (x=2) or (x=3) or (x=4) or (x=5) then y:=2/(1+sin(x)) else

   if (x=-5) or (x=1) or (x=9) then y:=exp(ln(15+sqr(x))/4) else y:=x;

 writeln ('x=',y:6:4,' y=',y:6:4);

 WriteLn;

 End.

Результат

Введите значение x=

-6

x=-6.0000 y=-6.0000

Введите значение x=

-4

x=2.0000 y=2.0000

Введите значение x=

0

x=2.0000 y=2.0000

Введите значение x=

1

x=1.0861 y=1.0861

Введите значение x=

10

x=10.0000 y=10.0000

            2 способ с помощью оператора выбора

{Самоленков С. В. ТНГ-06-2 Вариант 6}

{Вычисление функций для целого значение аргумента}

{Вычисление с помощью оператора выбора}

Program Zadacha5;

Uses Crt;

Var x : integer; y : real;

Begin

 WriteLn('Введите значение x=');

 ReadLn(x);

 Case x of

  -4, 6: y:=sqrt(abs(x));

  0..5: y:=2/(1+sin(x));

  -5, 1, 9: y:=exp(ln(15+sqr(x))/4);

  Else y:=x;

  End;

  writeln ('x=',y:6:4,' y=',y:6:4);

writeln;

End.

Результат

Введите значение x=

-6

x=-6.0000 y=-6.0000

Введите значение x=

-4

x=2.0000 y=2.0000

Введите значение x=

0

x=2.0000 y=2.0000

Введите значение x=

1

x=1.0861 y=1.0861

Введите значение x=

10

x=10.0000 y=10.0000