请教一道题 — 编程爱好者社区

您所在位置：社区首页 — 信息学奥赛 — 请教一道题

回帖发新帖刷新版面

主题：请教一道题

天水 [专家分：320] 发布于 2005-07-09 17:46:00

用pascal怎么编:  S=1+1/2+1/3+...1/n  输入n,程序算出S.

                                                  谢谢

本帖地址： http://bbs.pfan.cn/post/89580.html

回复列表（共14个回复）

11 楼

天水 [专家分：320] 发布于 2005-07-23 21:13:00

多谢各位大虾:D 小弟在此拜过各位.

                  \\\!///
                  (@_ @ )
    ------------ooo0----0ooo--|
                              |
                                多谢,多谢!

12 楼

天水 [专家分：320] 发布于 2005-07-23 21:14:00

hao

13 楼

天水 [专家分：320] 发布于 2005-07-23 21:39:00

再次谢谢大家,请问7楼的zcyspace,你的pascal为什么能输入中文??我的却不能?? :(
pascal的图标下有一个小箭头,是表示快捷方式吗? 那有了pascal安装版怎么安装呢?

14 楼

海上飞洪 [专家分：520] 发布于 2005-07-27 11:35:00

PROGRAM recsum(INPUT,OUTPUT);
VAR
i,n:integer;
sum:real;
BEGIN
readln(n);
sum:=0;
FOR i:=1 TO n DO
sum:=sum+1/n;
writeln('sum=',sum);
END.

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：请教一道题

回复列表（共14个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：请教一道题

回复列表 （共14个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共14个回复）