Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
HoocH r76
2 / 2 / 0
Регистрация: 21.09.2013
Сообщений: 34
1

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

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

Вычислить выражение для заданных n, x:
Название: af3f00a517a53f428f761703d05c0c64.jpg
Просмотров: 8

Размер: 2.4 Кб
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2013, 19:08
Ответы с готовыми решениями:

Вычислить выражение для заданных n, m, p, k; решить, используя процедуру
Помогите написать программу через процедуру, пожалуйста. Вот условия -...

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

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

Для заданных границ интегрирования a b вычислить значение определённого интеграла
Для заданных границ интегрирования а и b вычислите значение определенного...

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

6
VSI
Модератор
Эксперт по математике/физике
3976 / 3111 / 974
Регистрация: 30.07.2012
Сообщений: 8,714
23.10.2013, 19:26 2
Держите...
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
HoocH r76
2 / 2 / 0
Регистрация: 21.09.2013
Сообщений: 34
23.10.2013, 19:33  [ТС] 3
Спасибо большое.
0
L_e_g_i_o_n
100 / 100 / 86
Регистрация: 20.10.2013
Сообщений: 186
23.10.2013, 19:34 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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 5
Число сочетаний из n по k вычисляется по формуле:
0
Изображения
 
L_e_g_i_o_n
100 / 100 / 86
Регистрация: 20.10.2013
Сообщений: 186
23.10.2013, 19:46 6
Цитата Сообщение от VSI Посмотреть сообщение
for k:=1 to n do
* c[k]:=random(1)+1;
а почему здесь массив?
0
Denis3961
1 / 1 / 0
Регистрация: 21.09.2015
Сообщений: 41
13.06.2016, 16:26 7
а можно этот же код только в c#
0
13.06.2016, 16:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2016, 16:26

Вычислить заданное целочисленное выражение для данных a, b в формате INTEGER
Вычислить заданное целочисленное выражение для данных a, b в формате INTEGER,...

Посчитать выражение при заданных значениях
Дано выражение B:= (w/v)+sqrt(abs((sin(t)*w)/cos(t)*v)) при w:=tg^2 t; v:=...

Используя оператор if, вычислить заданное выражение для данных типа Real
Помогите пожалуйста,если можно с устной пометкой) y=x^a\cdot \ln...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru