Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Task3;
- var x: real;
- function power(a, b:real):real;
- begin
- power:=exp(b * ln(a));
- end;
- function y(n:real):real;
- var ch,zn: real;
- begin
- ch:=power(n,3)+9*n+12;
- zn:=sqr(n)-6*n+15;
- if zn<>0 then
- y:= ch/zn
- else
- writeln('Error!');
- end;
- begin
- writeln('Type x:');
- readln(x);
- writeln('y(x)=', y(x):0:2);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement