请各位大侠帮帮我吧~ 求数列的乘积问题~ 5555~~~

主题：请各位大侠帮帮我吧~ 求数列的乘积问题~ 5555~~~

0829 [专家分：0] 发布于 2007-12-13 14:39:00

我有个问题想请教大家一下 .因为老师催的很厉害我在中国的时候又没有学过所以请大家费心帮帮我吧 .PASCAL 语言编程 :让求a1, a2...a30这些随意输入数目大小的奇项数列的乘积拜托拜托一定帮忙..谢谢

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

回复列表（共5个回复）

沙发

angwuy [专家分：2280] 发布于 2007-12-13 18:15:00

把题目说的详细点

板凳

帅气小子 [专家分：0] 发布于 2008-07-23 13:23:00

var a:array[1..30]of longint;
    i,k:longint;
begin
  for i:=1 to 30 do
    readln(a[i]);
  k:=1;
  for i:=1 to 30 do
    begin
      if i mod 2<>0 then k:=k*a[i];
    end;
  writeln(k);
end.

3 楼

xuyifan [专家分：40] 发布于 2008-07-23 14:07:00

var a:array[1..30]of longint;
    i,k:longint;
begin
  for i:=1 to 30 do
    readln(a[i]);
  k:=1;
  for i:=1 to 30 do
    if odd(a[i])= true then  （运用判断函数odd，直接判断a[i]是否为奇数，比较简便）
    k:=k*a[i];
  writeln (k);
end.

（注意，30个数的乘积可能超过长整型，最后的值很可能出错，但程序是对的）

4 楼

g1021117 [专家分：40] 发布于 2008-08-05 10:05:00

加
点
高
精
度
，
不
就
可
以
了

5 楼

黄叶纷飞 [专家分：0] 发布于 2008-08-06 16:35:00

题目详细点。。。。。。

我来回复

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

主题：请各位大侠帮帮我吧~ 求数列的乘积问题~ 5555~~~

回复列表（共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：请各位大侠帮帮我吧~ 求数列的乘积问题~ 5555~~~

回复列表 （共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共5个回复）