Free Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Free Pascal Программа для рисования графиков https://www.cyberforum.ru/ free-pascal/ thread761729.html Нужно приспособить программу под данную формулу f(x) = Sinx/1+Sin2x/2+SIn3x/3+Sin4x/4+Sin5x/5 Область определения . Program Conrol; Uses Graph, Crt; Var BeginX, BeginY : LongInt; {экранные коорднаты начала и конца} mX, mY : Real;{число натурльных единиц в 1 пикселе} Dx, Dy : Real;{расстояние между делениями по осям в натур.ед.}	Изменение кода,игра собиратель,наподобие уничтожения города Free Pascal Отбивалка переделанная под собирателя,как сделать чтобы враг которого ловит дойдя до нижней части экрана исчезал,типо игра закончена.Подобие уничтожения города
Free Pascal Дано натуральное число n. Получить последовательность b1, ., bn, где при i = 1, 2, ., n значение b i равно: Дано натуральное число n. Получить последовательность b1, ..., bn, где при i = 1, 2, ..., n значение b i равно: 2^i + 3^(i+1) https://www.cyberforum.ru/ free-pascal/ thread761528.html	Free Pascal Вычислить бесконечную сумму с заданной точностью ε (ε > 0) https://www.cyberforum.ru/ free-pascal/ thread761525.html Вычислить бесконечную сумму с заданной точностью ε (ε > 0). Считать, что требуемая точность достигнута, если вычислена сумма нескольких первых слагаемых и очередное слогаемое оказалось по модулю меньше, чем ε, - это и все последующие слагаемые можно уже не учитывать. Вычислить:
Free Pascal Дано натуральное число n. Вычислить: Дано натуральное число n. Вычислить:	Free Pascal Даны целые числа a1,a2,. Известно, что a1 > 0 и что среди a2,a3,. есть хотябы одно отрицательное число Даны целые числа a1,a2,... Известно, что a1 > 0 и что среди a2,a3,... есть хотябы одно отрицательное число. Пусть a1,..., an - члены данной последовательности, предшествующие первому отрицательному члену (n заранее неизвестно). Получить: max(a1^2,....,an^2); https://www.cyberforum.ru/ free-pascal/ thread761504.html
Free Pascal Описать рекурсивную логическую функцию Sym(S, i, j), проверяющую, является ли симметричной часть строки S https://www.cyberforum.ru/ free-pascal/ thread761479.html Описать рекурсивную логическую функцию Sym(S, i, j), проверяющую, является ли симметричной часть строки S, начинающаяся i-м и кончающаяся j-м ее элементами.	*Free Pascal Дан многочлен P(x)= Pnx^n + P(n-1)x^(n-1) + . + P1x + P0 найти производную** Помогите решить задачу. Дан многочлен P(x)= Pnx^n + P(n-1)x^(n-1) + ... + P1*x + P0 найти производную, и вывести все коэффициенты при x в производной. Неплохо бы было выложить хотя бы код процедуры, по выводу массива коэффициентов при x в производной.
Free Pascal Задачка по основам програмирования Кто сделает, буду очень признателен!Текстовая часть задания должна быть набрана вручную https://www.cyberforum.ru/ free-pascal/ thread761206.html	Free Pascal Типизированые файлы: Создать выборку студентов, у которых совпадает имя и год рождения https://www.cyberforum.ru/ free-pascal/ thread761045.html Создать выборку, состоящую из 30 человек, студентов у которых совпадает имя и год рождения. Записать в файл и сохранить. Помогите пожалуйста.
Найти целое число из интервала от A до B с максимальной суммой делителей. На pascale Free Pascal Найти целое число из интервала от A до B с максимальной суммой делителей.	Free Pascal Дано целое число n. Чему равна сумма его цифр кратных 3. на pascal Дано целое число n. Чему равна сумма его цифр кратных 3. https://www.cyberforum.ru/ free-pascal/ thread760660.html

volvo

Супер-модератор

33006 / 21309 / 8183

Регистрация: 22.10.2011

Сообщений: 36,614

Записей в блоге: 8

15.01.2013, 11:58

Дано целое число n и вещественное число а. Вычислить s=sin1+sin1sin2+.+sin1sin2.sinN - Free Pascal - Ответ 4003992

15.01.2013, 11:58. Показов 2445. Ответов 1

Метки (Все метки)

Сообщение было отмечено уфаупу как решение

Решение

Зачем тут A, интересно, если его нигде в формуле нет...

Pascal

var
   p, s : double;
   i, n : integer;
begin
   write('N = '); readln(n);
   p := 1; s := 0;
   for i := 1 to n do
   begin
      p := p * sin(i);
      s := s + p;
   end;
   writeln(s:12:7);
end.

Вернуться к обсуждению:
Дано целое число n и вещественное число а. Вычислить s=sin1+sin1*sin2+.+sin1*sin2*.*sinN Free Pascal

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

15.01.2013, 11:58

Готовые ответы и решения:

Вычислить сумму ряда (1/sin1)+(1/sin1+sin2)+.....+(1/sin1+sinn);
2.Дано натуральное n. Вычислить: (1/sin1)+(1/sin1+sin2)+.....+(1/sin1+sinn); если можно более...

Дано вещественное число X (|X|<1) и целое число N (>0)
Дано вещественное число X (|X|<1) и целое число N (>0). Найти значение выражения 1 + X/2 −...

Дано натуральное число N. Вычислить: (1/sin1)*(1/sin1+sin2)*.*(1/sin1+sin2+.+sinN)
Дано натуральное число N. Вычислить: (1/sin1)*(1/sin1+sin2)*...*(1/sin1+sin2+...+sinN) Помогите...

Не понимаю как составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ., sinN
Составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ..., sinN Задачу мне...

	15.01.2013, 11:58

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

15.01.2013, 11:58

Помогаю со студенческими работами здесь

Описать функцию Sin1(x, ε)
Описать функцию Sin1(x, ε) вещественного типа (параметры x, ε — вещественные, ε > 0),...

Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1+A+A^2+...+A^N.
1) Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1+A+A^2+...+A^N....

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму 1 + A + A^2 + A^3 + ... + A^N.
Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму 1 + A + A^2 +...

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти значение выражения 1 - A + A^2 - A^3 + ... + (-1)^N*A^N.
Дано вещественное число A и целое число N (> 0). Используя один цикл, найти значение выражения 1...

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

Наверх

Дано целое число n и вещественное число а. Вычислить s=sin1+sin1*sin2+.+sin1*sin2*.*sinN - Free Pascal - Ответ 4003992

Решение

Дано целое число n и вещественное число а. Вычислить s=sin1+sin1sin2+.+sin1sin2.sinN - Free Pascal - Ответ 4003992