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

Вычислить выражение для заданных n, x

23.10.2013, 19:08. Показов 1940. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вычислить выражение для заданных n, x:
Название: af3f00a517a53f428f761703d05c0c64.jpg
Просмотров: 13

Размер: 2.4 Кб
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
23.10.2013, 19:08
Ответы с готовыми решениями:

Вычислить выражение для заданных n, m, p, k; решить, используя процедуру
Помогите написать программу через процедуру, пожалуйста. Вот условия - Вычислить выражение для заданных n, m, p, k: y=(Cpm*Ck-pn-m)/Ckn ...

Для заданных а и b, с вычислить z = max (min (a, b), с)
Решите,пожалуйста, задачу на языке Pascal ABC и составьте к ней блок-схему. Для заданных а и b, с вычислить z = max (min (a,...

Для заданных чисел m и n вычислить число сочетаний
Пожалуйста, помогите решить задачу! Для заданных чисел m и n вычислить число сочетаний

6
Модератор
Эксперт по математике/физике
 Аватар для VSI
5291 / 4073 / 1392
Регистрация: 30.07.2012
Сообщений: 12,490
23.10.2013, 19:26
Держите...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var x,y:real;
    k,n:integer;
    c:array[1..100] of real;
BEGIN
write('X = '); readln(x);
write('K = '); readln(k);
write('N = '); readln(n);
for k:=1 to n do
  c[k]:=random(1)+1;
y:=0;
for k:=1 to n do
  y:=y+power(x,k)/power(c[n],k);
writeln('Y = ',y:6:3)
END.
1
2 / 2 / 0
Регистрация: 21.09.2013
Сообщений: 34
23.10.2013, 19:33  [ТС]
Спасибо большое.
0
 Аватар для L_e_g_i_o_n
100 / 100 / 86
Регистрация: 20.10.2013
Сообщений: 186
23.10.2013, 19:34
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var  x,n,i,k: integer;
      y: real;
function fact(n: integer): integer;
 var f:integer;
begin
f:=1;
for i:=2 to n do
f:= f*i;
Fact:=f;
end;
begin
read(x);
readln(n);
for k:=1 to n do
 y:=y+power(x,k)*fact(k)*fact(n-k)/fact(n);
 writeln('y= ',y);
end.
0
 Аватар для L_e_g_i_o_n
100 / 100 / 86
Регистрация: 20.10.2013
Сообщений: 186
23.10.2013, 19:42
Число сочетаний из n по k вычисляется по формуле:
Изображения
 
0
 Аватар для L_e_g_i_o_n
100 / 100 / 86
Регистрация: 20.10.2013
Сообщений: 186
23.10.2013, 19:46
Цитата Сообщение от VSI Посмотреть сообщение
for k:=1 to n do
* c[k]:=random(1)+1;
а почему здесь массив?
0
1 / 1 / 0
Регистрация: 21.09.2015
Сообщений: 79
13.06.2016, 16:26
а можно этот же код только в c#
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
13.06.2016, 16:26
Помогаю со студенческими работами здесь

Для заданных с клавиатуры значений переменных x и n вычислить
для заданных с клавиатуры значений переменных x и n вычислить(номер 6): Y=1-3+3^2-3^3+...+3^10

Для заданных границ интегрирования a b вычислить значение определённого интеграла
Для заданных границ интегрирования а и b вычислите значение определенного интеграла следующего вида (надо использовать рекурсию): Люди...

Вычислить значения функции для заданных значений параметров q и z с заданной погрешностью
ВАРИАНТ 13 ПОМОГИТЕ ПОЖАЛУЙСТАА!!

Вычислить заданное выражение для типа integer
Используя оператор if, вычислить заданное выражение для типа integer B=2x-y+5 если

Вычислить значения функции для заданных значений параметров q и z с заданной погрешностью ę
Задание к работе : 1. Записать расчетные формулы для вычисления слагаемого и суммы. В предлагаемых задачах на суммирование рядов, чтобы...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru