Advertisement
Guest User

Untitled

a guest
Jan 25th, 2020
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.34 KB | None | 0 0
  1. program Task3;
  2. var x: real;
  3.  
  4. function power(a, b:real):real;
  5. begin
  6.  power:=exp(b * ln(a));
  7. end;
  8.  
  9. function y(n:real):real;
  10. var ch,zn: real;
  11. begin
  12.  ch:=power(n,3)+9*n+12;
  13.  zn:=sqr(n)-6*n+15;
  14.  if zn<>0 then
  15.   y:= ch/zn
  16.  else
  17.   writeln('Error!');
  18. end;
  19.  
  20. begin
  21.  writeln('Type x:');
  22.  readln(x);
  23.  writeln('y(x)=', y(x):0:2);
  24. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement