输入X,按下面公式求COS(X):
COS(X)=1-x平方/2!+x四次方/4!-x六次方/6!。小妹编的如下:
program Project2;{$APPTYPE CONSOLE}uses
SysUtils;
var
x:double;m:double=0;
i:double=1;y:double=1;
p:Integer=-1;
begin
write('请输入x的值:');
Read(x);
while(i>=1e-6) do
begin
i:=i*x*x/(m+1)/(m+2);
y:=y+p*i;
m:=m+2;
p:=-p;
end;
Writeln('Cos(x)等于:',y);
Readln;
end.
不知道哪里错了,哪位高手教导下,谢谢!!!
COS(X)=1-x平方/2!+x四次方/4!-x六次方/6!。小妹编的如下:
program Project2;{$APPTYPE CONSOLE}uses
SysUtils;
var
x:double;m:double=0;
i:double=1;y:double=1;
p:Integer=-1;
begin
write('请输入x的值:');
Read(x);
while(i>=1e-6) do
begin
i:=i*x*x/(m+1)/(m+2);
y:=y+p*i;
m:=m+2;
p:=-p;
end;
Writeln('Cos(x)等于:',y);
Readln;
end.
不知道哪里错了,哪位高手教导下,谢谢!!!
解决方案 »
- 要离开Delphi和Borland一些日子了,述说下,散20分吧,别打我啊
- 请高手帮我把VC里调用DLL的.H文件转换为.PAS文件
- 请教高手:存储过程的几个基础问题,在线给分
- 请各位大侠帮帮忙,刚遇上一个奇怪的问题,不知道为何如此请指教!怎样解决Clientdataset的record not found or changed by another user
- (送分给伴水清清)怎样把16进制数(字符串)转换为浮点数并显示出来!
- COM VS CORBA
- SQL Server 2000 standard 注册码
- 怎么在程序中引用dll中的变量???在线等待!
- delphi 中关于动态数组指针的问题
- 一个关于三层结构数据库加锁的问题
- 电脑系统时间锁定
- TIDhttp上传问题
Writeln('Cos(x)等于:',y);
Readln;
Readln;