Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 14.03.2019
Сообщений: 5

Вычислить значения выражений.

15.03.2019, 00:34. Показов 1314. Ответов 21
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Составить программу вычисления выражения для заданных натурального числа n и действительного числа x. Значение выражения вычисляется при помощи операторов у. Начиная с задания N11 вычисления выражения проводится с некоторой точностью. При составлении программ необходимо использовать для организации циклов различные операторы цикла. Для задании с N1 по N10 вычислить выражение при заданных n и x.
https://www.cyberforum.ru/atta... 1552541882
https://www.cyberforum.ru/atta... 1552541882
Изображения
  
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.03.2019, 00:34
Ответы с готовыми решениями:

Вычислить значения выражений
Необходимо вычислить значения следующих выражений: а) succ (0)=pred (2); b) d>a; c) chr(25)>=chr(16); d) char(ord(5)+1)

Вычислить значения выражений
Вычислить значения выражений: \sum_{k=1}^{6}\frac{(-1)^{k+1}}{k(k+1)} \prod_{i=2}^{8}\left(1-\frac{1}{t^2} \right)^2

Вычислить значения выражений

21
 Аватар для ololo111
166 / 52 / 36
Регистрация: 13.04.2012
Сообщений: 620
16.03.2019, 01:49
Студворк — интернет-сервис помощи студентам
так что-ли?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  x,n,i,f,k:integer;
begin
  write('введите x:');
  readln(x);
  write('введите n:');
  readln(n);
    f:=1;
    var res: real := 1;
    for k:=1 to n do 
    f:=f*k;
    res *= (1 + (x + 1) ** k) / (f+(3))**2;
  writeln('ответ:',res);
end.
попробую в маткаде проверить

всё, вроде правильно

Добавлено через 9 минут
почти

Добавлено через 20 секунд
0.0161279661577104 против 0.059

Добавлено через 19 минут
если так сделать
Pascal
1
2
    f:=f*(k-1);
    res *= (1 + (x + 1) ** k) / ((f+(3))**2);
то ещё хуже получается,
27.1111111111111 против мадкадовских 0.059
0
 Аватар для JuriiMW
5096 / 2662 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
16.03.2019, 08:13
Pascal
1
2
3
4
5
6
7
8
9
10
11
begin
  var(x,n):=(ReadReal,ReadInteger);
  var(r,x1,f):=(1.0,1.0,1.0);
  for var k:=1 to n do
    begin
      x1*=(x+1);
      r*=(1+x1)/(f+3)**2;
      f*=k;
    end;
  WriteLn(r);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
16.03.2019, 08:13

Вычислить значения выражений
Все доброго времени суток. Мне задали ЛБ я ее сделал но не верные результаты помогите решить две задачи на Паскале. И так приступим

Вычислить значения заданных выражений
Привет помогите пожалуйста вычислить значения выражений уже 2 дня как ломаю голову стильно не ругайте раньше не работал в Паскаль...

Вычислить значения выражений
Ввести с консоли значения переменных x, y, z. Определить значения переменных a, b, c: a=\frac{3.2\cdot 10^{-5}\cdot e^{x^y}(x-\pi...

Вычислить значения выражений
дано вещественное число a, натуральное n. Вычислить значения выражений 1/a+1/a^2+1/a^4...+1/a^n.

Вычислить значения выражений
Доброго всем времени суток. Нужно составить написать программу решения задач на языке Паскаль. Даны x, y, z. Вычислить a, b, если: ...


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

Или воспользуйтесь поиском по форуму:
22
Ответ Создать тему
Новые блоги и статьи
Nekobox - outbounds[0].transport: unknown transport type: raw
damix 01.10.2026
Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru