pascal做1-1/3+1/5-1/7.前100项的和急,用for语句做,直接要答案.
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/25 18:56:24
![pascal做1-1/3+1/5-1/7.前100项的和急,用for语句做,直接要答案.](/uploads/image/z/5426944-16-4.jpg?t=pascal%E5%81%9A1-1%2F3%2B1%2F5-1%2F7.%E5%89%8D100%E9%A1%B9%E7%9A%84%E5%92%8C%E6%80%A5%2C%E7%94%A8for%E8%AF%AD%E5%8F%A5%E5%81%9A%2C%E7%9B%B4%E6%8E%A5%E8%A6%81%E7%AD%94%E6%A1%88.)
pascal做1-1/3+1/5-1/7.前100项的和急,用for语句做,直接要答案.
pascal做1-1/3+1/5-1/7.前100项的和
急,用for语句做,直接要答案.
pascal做1-1/3+1/5-1/7.前100项的和急,用for语句做,直接要答案.
Program seq;
Var tmp: Double ;
Begin
tmp := 1.0;
For i:=1 to 99 do
tmp := tmp + 1.0/(2*i+1)*(((i+1) mod 2)-(i mod 2));
Writeln( "Resault = ", (tmp) );
Readln;
End.
//----------------------------
// 1 - 1/3 + 1/5 - 1/7 ...
//----------------------------
//输出结果:
//Resault = 0.78289822588964
//----------------------------
Program seq;
Var tmp: Double ;
Begin
tmp := -1.0;
For i:=1 to 99 do
tmp := tmp + 1.0/(2*i+1);
Writeln( "Resault = ", (-tmp) );
Readln;
End.
//----------------------------
// 1 - 1/3 - 1/5 - 1/7 ...
//----------------------------
//输出结果:
//Resault = -1.2843421893016
//----------------------------