y=sinx,y=cosx, y=tgx функциялары. program TregMahn;
uses crt;
Var
x,y,y1,Y2:real;
begin
writeln('x-tx engxz');
clrscr;
read(x);
y:=sin(x);{sin(x) funksiasw mahnxn esepteu,
d(y)=r,e(y)=[-1,1]}
y1:=cos(x);{cos(x) funksiasw mahnxn esepteu,
d(x)=r, e(x)=[-1,1]}
y2:=sin(x)/cos(x); {tan(x), funksiasw mahnxn esepteu,
d(x)=r x=3.14/2+3.14/2*n,n basqa bytxn sandar, e(x)=r}
writeln('y= ', y:2:2,' y1=', y1:2:2,' y2=',y2:2:2);
readln;
end.
Y=Ab ,Y=XA , Y=Ax функциялары .
Паскаль тілінде дәрежелеу амалы жоқ, сондықтан дере желеу жеке программада немесе xn дәрежесі exp(n*ln(x)) өрнегі арқылы табылады
Y=Abфункциясы Program ab;
Var
A,b,y:real;
Begin
Writeln ('a men b-nw engxz');
Read(a,b);
Y:=exp(b*ln(a));
Writeln ('y=',y:2:2);
Readln;
End.
y=xaфункциясының мәндерін есептеу program dahreje;
const a=10;
var
b,y:real;
begin
writeln('dahreje kohrsetkxcxn engxz');
read(b);
y:=exp(b*ln(x));
writeln('y=',y:4:2);
readln;
end.
y=axфункциясының мәндерін есептеу program kohrsetc;
const b=2;
var
a,y:real;
begin
writeln('dahreje kohrsetkxcxn engxz');
read(a);
y:=exp(x*ln(a));
writeln('y=',y:4:2);
readln;
end.
y:=trunc(x) функциясы нақты санның бүтін бөлігін алу программасы
program byttip;
var
x,y,y1:real;
begin
writeln('x-tx engxz'); { naqtw sannwnh byhtxn bohlxgxn alu}
read(x);
y:=trunc(x) ;{naqtw sannwnh byhtxn bohlxgxn alu}
y1:=round(x);{naqtw sandw byhtxnge deixn dohnhgelekteu}
writeln('y=',y:4 ,' y1=',y1:4 );
readln;
end.
