Программирование циклических вычислительных процессов с использованием операторов, реализующих базовые структуры цикла, страница 3

else y:=x*x*x;

Writeln;

WriteLn('x=',x:3,' y=',y:8:5);

End.

  1. Вид печати:

x=  2 y= 1.25992

x=  3 y= 0.47712

x=  4 y= 0.60206

x= 15 y=3375.00000

Program Pro4;

Var   x:integer;

      a,y:real;

Begin

WriteLn('Введите x');

ReadLn(x);

a:=x+9;

Case x of

-2..2:y:=(x/ABS(x))*EXP(ln(x)/3);

3..10:y:=Ln(x)/ln(10);

-4,4:y:=sin(a);

else y:=x*x*x;

end;

writeln;

Writeln('x=',x:3,' y=',y:8:5);

End.

  1. Вид печати:

x=  2 y= 1.25992

x=  3 y= 0.47712

x=  4 y= 0.60206

x= 15 y=3375.00000