Вычислить и вывести на экран значение суммы членов следующего ряда

@Rinat1993 · Регистрация: 28.05.2012

Author24 — интернет-сервис помощи студентам

Вычислить и вывести на экран значение суммы членов следующего ряда $https://www.cyberforum.ru/cgi-bin/latex.cgi?S= \sum_{k=1}^{n}*(1 /\sum_{r=1}^{k}sin(r))$ . Значение n вводится с клавиатуры.

Добавлено через 2 минуты

Delphi

program lab4;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
var k, r,n:integer;
    s, h:real;
begin
readln(n);
  s:=0;
  for k:=1 to n do
  begin
    h:=0;
    for r:=1 to k do
      h:=h * sin(r);
    s:=s + (1/h);
  end;
  writeln(s);
  readln;
end.

вот я пытался немного сделать

Добавлено через 1 минуту
еще не знаете как в екселе это сделать?)

Комментарий модератора

Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".

Добавлено через 14 часов 28 минут
s:=s *(1/h);

Добавлено через 49 секунд
s:=s *(1/h);

@volvo · 04.06.2012, 08:58

Rinat1993, для начала формулу перепроверь. У тебя там для чего-то стоит знак умножения. Один множитель присутствует, а второго - нет. И потом, почему при вычислении h ты используешь умножение? Там же сумма, а не произведение.

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	04.06.2012, 08:58	2
	Rinat1993, для начала формулу перепроверь. У тебя там для чего-то стоит знак умножения. Один множитель присутствует, а второго - нет. И потом, почему при вычислении h ты используешь умножение? Там же сумма, а не произведение. 0

Опции темы