Вычислить произведение элементов последовательности, используя операторы цикла

@irka_potapova · Регистрация: 30.09.2014

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

Составить программу с использованием операторов цикла. Данные для вычисления должны вводиться с клавиатуры. При необходимости, выполнить проверку введенных данных. Вариант 11

11. Вычислить:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?(1+ \sin 0.1)(1+ \sin 0.2)(1+ \sin 0.3)...(1+ \sin 10)$

@Joy · 30.09.2014, 11:44

а что с клавиатуры то вводить в 11 варианте?

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

Pascal

var
  s,x:real;
begin
  s:=1;x:=0.0;
  while x<10 do
    begin
      x:=x+0.1;
      s:=s*(1+sin(x));
    end;
  writeln(s);
  readln;
end.

Добавлено через 16 минут
вот так похоже правильней будет в fpc.

Pascal

var
  s,x:real;
begin
  s:=1;x:=0.1;
  repeat
      s:=s*(1+sin(x));
            x:=x+0.1;
  until x>10;
  writeln(s);
  readln;
end.

@vint-81 · 30.09.2014, 12:34

Joy, это если x в радианах, если в градусах то x*pi/180

@Joy · 30.09.2014, 12:54

да вот в задании не упомянули что там за цифры радианы или градусы

@ildwine · 30.09.2014, 18:18

Joy, по умолчанию всегда радианы, градус - несистемная единица.

@Joy · 30.09.2014, 19:05

Так надо в радианы переводить или нет?

@volvo · 30.09.2014, 19:53

Joy, не надо. И циклов while/repeat тоже не надо:

Pascal

var
  p:real;
  i : integer;
begin
  p:=1;
  for i := 1 to 100 do p := p * (1 + sin(0.1 * i));
  writeln(p);
  readln;
end.

@Cyborg Drone · 01.10.2014, 06:32

Не по теме:

irka_potapova, пожалуйста, не размещайте фотографии текста на форуме, это запрещено. Также постарайтесь задания писать ясно и точно, и без излишеств. Согласитесь, никому не интересен номер варианта Вашего задания, а также что в иных заданиях (не в Вашем, замечу, задании), возможно, нужно вводить данные с клавиатуры и проверять их при необходимости на корректность. Понимаю, что бездумно скопировать текст задания и получить ответ проще, чего ж мозг напрягать, однако замечу, что такие Ваши действия наводят на мысль о том, что Вы используете форум как поликиборга для решения Ваших проблем, и меня лично эта мысль угнетает, поэтому я начинаю нехорошо думать о Вас. Ваш рейтинг в моих глазах, если Вы не предпримете адекватных действий, упадёт ниже плинтуса.

@irka_potapova 0 / 0 / 0 Регистрация: 30.09.2014 Сообщений: 6
		1
	Вычислить произведение элементов последовательности, используя операторы цикла 30.09.2014, 10:30. Показов 1871. Ответов 7 Метки нет (Все метки) Составить программу с использованием операторов цикла. Данные для вычисления должны вводиться с клавиатуры. При необходимости, выполнить проверку введенных данных. Вариант 11 11. Вычислить: $https://www.cyberforum.ru/cgi-bin/latex.cgi?(1+ \sin 0.1)(1+ \sin 0.2)(1+ \sin 0.3)...(1+ \sin 10)$ 0

@vint-81 охотник 1011 / 535 / 650 Регистрация: 29.09.2014 Сообщений: 1,083
	30.09.2014, 12:34	3
	Joy, это если x в радианах, если в градусах то x*pi/180 0

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	30.09.2014, 12:54	4
	да вот в задании не упомянули что там за цифры радианы или градусы 0

@ildwine Супер-модератор 6197 / 2945 / 1300 Регистрация: 04.03.2013 Сообщений: 5,790 Записей в блоге: 1
	30.09.2014, 18:18	5
	Joy, по умолчанию всегда радианы, градус - несистемная единица. 0

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	30.09.2014, 19:05	6
	Так надо в радианы переводить или нет? 0

@Cyborg Drone
	01.10.2014, 06:32 Вычислить произведение элементов последовательности, используя операторы цикла #8
	Не по теме: irka_potapova, пожалуйста, не размещайте фотографии текста на форуме, это запрещено. Также постарайтесь задания писать ясно и точно, и без излишеств. Согласитесь, никому не интересен номер варианта Вашего задания, а также что в иных заданиях (не в Вашем, замечу, задании), возможно, нужно вводить данные с клавиатуры и проверять их при необходимости на корректность. Понимаю, что бездумно скопировать текст задания и получить ответ проще, чего ж мозг напрягать, однако замечу, что такие Ваши действия наводят на мысль о том, что Вы используете форум как поликиборга для решения Ваших проблем, и меня лично эта мысль угнетает, поэтому я начинаю нехорошо думать о Вас. Ваш рейтинг в моих глазах, если Вы не предпримете адекватных действий, упадёт ниже плинтуса. 0