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

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

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

Составить программу с использованием операторов цикла. Данные для вычисления должны вводиться с клавиатуры. При необходимости, выполнить проверку введенных данных. Вариант 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
1
2
3
4
5
6
7
8
9
10
11
12
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
1
2
3
4
5
6
7
8
9
10
11
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
1
2
3
4
5
6
7
8
9
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, пожалуйста, не размещайте фотографии текста на форуме, это запрещено. Также постарайтесь задания писать ясно и точно, и без излишеств. Согласитесь, никому не интересен номер варианта Вашего задания, а также что в иных заданиях (не в Вашем, замечу, задании), возможно, нужно вводить данные с клавиатуры и проверять их при необходимости на корректность. Понимаю, что бездумно скопировать текст задания и получить ответ проще, чего ж мозг напрягать, однако замечу, что такие Ваши действия наводят на мысль о том, что Вы используете форум как поликиборга для решения Ваших проблем, и меня лично эта мысль угнетает, поэтому я начинаю нехорошо думать о Вас. Ваш рейтинг в моих глазах, если Вы не предпримете адекватных действий, упадёт ниже плинтуса.

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@irka_potapova 0 / 0 / 0 Регистрация: 30.09.2014 Сообщений: 6

	Вычислить произведение элементов последовательности, используя операторы цикла 30.09.2014, 10:30. Показов 1990. Ответов 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
	Joy, это если x в радианах, если в градусах то x*pi/180 0

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

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

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

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