Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.01.2022, 19:47   #1
Evardel
Новичок
Джуниор
 
Регистрация: 21.01.2022
Сообщений: 1
По умолчанию Дали задание на информатике написать код

Дали на уроке задание написать код, скорее всего для решения этого уравнения. Вообще ничего в этом не понимаю. Но если кто-то понял что здесь нужно сделать, то напишите код для этого.
Заранее спасибо.
Изображения
Тип файла: jpg 2bUdriAAuLM.jpg (61.5 Кб, 1 просмотров)
Evardel вне форума Ответить с цитированием
Старый 22.01.2022, 08:26   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Без четкого ТЗ, результат ХЗ. Обычно так записывают член ряда. Но вариантов заданий на ряды существует уйма: найти сумму с точностью, найти сумму первых N членов, найти сумму членов с четными номерами и т.д. Так что лучше вам выяснить точную формулировку задания (хотя бы чтобы было легче гуглить готовые решения).
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 22.01.2022, 08:42   #3
Алексей1153
фрилансер
Форумчанин
 
Регистрация: 11.10.2019
Сообщений: 947
По умолчанию

бумагу не экономят (
Алексей1153 вне форума Ответить с цитированием
Старый 22.01.2022, 18:19   #4
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

Понять можно и так:
Код:
writeln('Введите номер ряда: ');
readln(k);
an := 1;
for i := 1 to k do
   an := an * i/3;
writeln('a',k, ' = ', an:10:3);
Только вот k должно быть небольшим, поскольку факториальный рост круче, чем степенной.
Т.е. довольно быстро можно получить переполнение.
Или так:
Код:
writeln('Введите номер ряда: ');
readln(k);
an := 1;
for i := 1 to k do begin
   an := an * i/3;
   writeln('a',i, ' = ', an:10:3);
end;
Результат:
Код:
a1 =      0.333
a2 =      0.222
a3 =      0.222
a4 =      0.296
a5 =      0.494
a6 =      0.988
a7 =      2.305
a8 =      6.145
a9 =     18.436
a10 =     61.454
PS: Полагаю, что как описать переменные вам знакомо. Но если что, то не стесняйтесь, читайте книжки и пробуйте.
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дали задание (добыть информацию с нужного сайта в сети) MagusYKT Общие вопросы по Java, Java SE, Kotlin 25 15.10.2015 09:38
Дали задание после армии HK-39 Помощь студентам 2 13.12.2014 10:59
Помогите дали задание!дисциплина: Технология обработки информации!! Mari777 Visual C++ 3 22.04.2014 14:38
Мне дали тестовое задание написать фреймворк fs444 JavaScript, Ajax 6 06.10.2012 18:23
Дали детям две задачки на олимпиаде по информатике O_O Каля-маля Помощь студентам 8 10.11.2008 17:29