Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
2 / 2 / 0
Регистрация: 16.10.2017
Сообщений: 162

5. Подсчитать произведение членов ряда от 3 до 7 члена ряда, в котором каждый последующий член больше предыдущего на 33%

20.02.2018, 18:50. Показов 1280. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
5. Подсчитать произведение членов ряда от 3 до 7 члена ряда, в котором каждый последующий член больше предыдущего на 33% и меньше на 1. N(1) =9.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
20.02.2018, 18:50
Ответы с готовыми решениями:

Подсчитать разность 10 и 6 члена ряда, в котором каждый последующий член больше предыдущего на 10% и меньше на 2
Подсчитать разность 10 и 6 члена ряда, в котором каждый последующий член больше предыдущего на 10% и меньше на 2. N(1) =100.

Каждый член натурального ряда от 10 до 20 уменьшить в десять раз. Подсчитать произведение
Каждый член натурального ряда от 10 до 20 уменьшить в десять раз. Подсчитать произведение Добавлено через 1 час 36 минут ап ап ап ап

Найти сумму членов ряда. На экран вывести значение суммы, число членов ряда, вошедших в сумму, и последний член ряда
Помогите пожалуйста с заданием .

4
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
20.02.2018, 18:54
Цитата Сообщение от ander2014638 Посмотреть сообщение
м каждый последующий член больше предыдущего на 33% и меньше на 1.
Т.е. a[n]=a[n-1]*0.33-1?
0
2 / 2 / 0
Регистрация: 16.10.2017
Сообщений: 162
20.02.2018, 18:57  [ТС]
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var n,t:real;
    i:byte;
Begin
    n:=100;
    For i:=3 to 7 do
     if i=6 then
     Begin
       n:=n+n*10/33-1;
       t:=n;
     End
     else n:=n+n*10/33-1;
     writeln(n-t);
     readln;
End.
так а тоя сам не оч понимаю?)
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
20.02.2018, 19:34
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

А по моему так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var i:byte;
    a,s:real;
begin
s:=0;
for i:=1 to 7 do
 begin
  if i=1 then a:=9
  else a:=a*1.33-1;
  if i in [3..7] then s:=s+a;
 end;
write('s=',s:0:3)
end.
0
Модератор
10353 / 5639 / 3396
Регистрация: 17.08.2012
Сообщений: 17,209
22.02.2018, 01:48
Вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var i: byte;
    a, s: real;
begin
  a := 9;
  s := a;
  for i := 2 to 7 do
    begin
      a := a * 1.33 - 1;
      s := s + a
    end;
  write('s = ', s:0:3)
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
22.02.2018, 01:48
Помогаю со студенческими работами здесь

Найти произведение 12-ти членов ряда , общий член которого an=1/(3n-2)(3n+1)
Написать код на языке Паскаль Найти произведение 12-ти членов ряда , общий член которого an=1/(3n-2)(3n+1)

Списки, каждый последующий элемент на единицу больше предыдущего
Привет всем!Только начала изучать пролог,вроде получается,но вот с этими задачами не справляюсь!Помогите,пожалуйста,решить!Заранее всем...

Найти сумму S, общий член которого an=2(n!)^2/(3(2n)!). Суммировать до тех пор, пока последующий член ряда по модулю, не станет меньше у=10^-3.
1.Найти сумму S, общий член которого an=2(n!)^2/(3(2n)!). Суммировать до тех пор, пока последующий член ряда по модулю, не станет меньше...

По формуле члена ряда с номером k . Вычисление суммы всех членов ряда
По заданной формуле (k+2)/(k³+4) члена ряда с номером k составить программу вычисления суммы всех членов ряда, не меньших заданного числа E.

Вычисление суммы членов ряда с точностью до члена ряда, меньшего ε
Составить программу для вычисления суммы членов ряда с точностью до члена ряда, меньшего ε( по абсолютной величине). Первоначально...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru