Физика сабаќтарында компьютерді пайдалану
y=sinx,y=cosx, y=tgx функциялары
жүктеу/скачать 2,49 Mb.
|
| 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. жүктеу/скачать 2,49 Mb. Достарыңызбен бөлісу:
|