2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Вычислить произведение первых n сомножителей 1/2*3/4*5/6*...
Сообщение18.02.2012, 16:36 
Аватара пользователя
Дано натуральное число n. Вычислить произведение первых n сомножителей $\frac12 \cdot \frac34 \cdot \frac56...;$
Использовать оператор цикла с параметром. Массивы не использовать.
Используется синтаксис Pascal
var ch,n,i:integer; {pr-произведение, ch-числитель}
     pr:real;
 
BEGIN
    readln(n);
    pr:=1;
    ch:=1;
    for i:=1 to n do
       Begin
          pr:=pr*(ch/(2*i));
          ch=ch+2;
       End;
END.
 

Не совсем уверен, что это правильное решение.

 
 
 
 Re: Вычислить произведение первых n сомножителей 1/2*3/4*5/6*...
Сообщение18.02.2012, 17:41 
А почему не уверены?
Не хватает только вывода результата.

 
 
 
 Re: Вычислить произведение первых n сомножителей 1/2*3/4*5/6*...
Сообщение18.02.2012, 19:24 
Аватара пользователя
venco в сообщении #540201 писал(а):
А почему не уверены?
Не хватает только вывода результата.

Потому что
Используется синтаксис Pascal
var n,i:integer;
    pr:real;
BEGIN
readln(n);
pr:=1;
for i:=1 to n do
 pr:=pr*((i*2-1)/(i*2));
writeln(pr);{путь будет вывод}
readln;
END.
 

 
 
 
 Re: Вычислить произведение первых n сомножителей 1/2*3/4*5/6*...
Сообщение18.02.2012, 20:37 
shady в сообщении #540236 писал(а):
venco в сообщении #540201 писал(а):
А почему не уверены?
Не хватает только вывода результата.

Потому что ...
Так тоже можно.

 
 
 
 Re: Вычислить произведение первых n сомножителей 1/2*3/4*5/6*...
Сообщение18.02.2012, 22:09 

(Мимо пробегал.)

Отступы и пробелы, мягко говоря, ужасны. Выделение begin и end из остальных ключевых слов тоже странно.

 
 
 [ Сообщений: 5 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group