Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 30.10.2017
Сообщений: 16

Ряд и равенство в Паскале

21.10.2019, 08:15. Показов 1531. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Кто сможет написать программы к этим заданиям? На случай плохой видимости скриншота
Миниатюры
Ряд и равенство в Паскале  
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
21.10.2019, 08:15
Ответы с готовыми решениями:

Десять раз генерировать ряд случайных чисел от 0 до 99 . Каждый ряд также должен иметь произвольную длину . В каждом ряд
Десять раз генерировать ряд случайных чисел от 0 до 99 . Каждый ряд также должен иметь произвольную длину . В каждом ряде следует найти...

Положительные числа записать в ряд В, отрицательные в ряд С.
Просмотреть ряд А из 20 чисел. Положительные числа записать в ряд В, отрицательные в ряд С. Подсчитать количество цифр в обоих рядах. На...

Как работает join и split в Паскале? И есть ли такие аналоги Питону в Паскале?
a=input() #из ' Hello world ' делаю 'Hello, world' a.strip(' ') a=', '.join(a.split(' ')) В Паскале как такое сделать?

4
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
 Аватар для TAVulator
4191 / 1292 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
21.10.2019, 08:31
Цитата Сообщение от Ilya1992 Посмотреть сообщение
Кто сможет написать программы к этим заданиям?
Я смогу! )))
0
0 / 0 / 0
Регистрация: 30.10.2017
Сообщений: 16
21.10.2019, 08:39  [ТС]
Докажи) написав и скинув программы
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
21.10.2019, 08:58
Лучший ответ Сообщение было отмечено Ilya1992 как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const e=0.0001;//точность вычислений
var n:integer;
    t,s:real;
begin
n:=1;
t:=1;
s:=t;
while abs(t)/power(n,4)>e do
 begin
  n:=n+1;
  t:=-t;
  s:=s+t/power(n,4);
 end;
writeln('Сумма ряда=',s:0:4);
writeln('7pi^4/720=',7*power(pi,4)/720:0:4)
end.
Добавлено через 8 минут
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
var n,i:integer;
    s,p:real;
begin
write('n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+power(i,6);
writeln('Левая часть=',s:0:0);
writeln('Правая часть=',n*(n+1)*(2*n+1)*(3*n*n*n*n+6*n*n*n-3*n-1)/42:0:0)
end.
1
0 / 0 / 0
Регистрация: 30.10.2017
Сообщений: 16
21.10.2019, 09:01  [ТС]
Цитата Сообщение от Puporev Посмотреть сообщение
power
О, Великий модератор благодарствую)))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.10.2019, 09:01
Помогаю со студенческими работами здесь

Докажите равенство треугольников APD и AKB, и равенство углов BOP и BAD
BK и DP-высоты ромба ABCD, проведённые из вершин тупых углов соответственно на стороны AD и AB. Прямые BK и DP пересекаются в точке O....

Очень нужно подсчитать определитель на равенство/не равенство нулю
Здравствуйте. Мне очень нужно подсчитать данный определитель на равенство (или не равенство нулю), подскажите пожалуйста как мне его...

Вычисление приближенного значения tan(x) через ряд Тейлора/ряд Маклорена
Привет, CF. Задача: Вычисление приближенного значения tan(x) через ряд Тейлора/ряд Маклорена Проблема: не совпадают результаты...

Разложить функцию в ряд Тейлора. Найти предел с помощью разложения в ряд.
1.y={e}^{\frac{\sin x}{x}} 2.\lim_{x\rightarrow 0}\frac{\ln (1+\frac{x}{2})- \sqrt{1+\sin {x} +1}}{\sinh {x} - \arctan x} 1-е разложить...

Разложить в ряд Маклорена заданную фунцию f(x), используя ряд Макларена для ее производной
Разложить в ряд Маклорена заданную фунцию f(x), используя ряд Макларена для ее производной, и найти область сходимости полученного ряда...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru