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