0 / 0 / 0
Регистрация: 09.12.2009
Сообщений: 3
1

Написать алгоритм для вычисления выражения

09.12.2009, 22:54. Показов 1707. Ответов 2
Метки нет (Все метки)

Здравствуйте! Помогите, пожалуйста, написать алгоритм для вычисления выражения : P=1*(2+3)*(4+5+6)*…*(56+57+…+66).
Понимаю, что кол-во чисел в суммах в цикле от 1 до 11, но не могу осознать как правильно описать каждую сумму. Заранее спасибо за помощь.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2009, 22:54
Ответы с готовыми решениями:

Разработать алгоритм для вычисления выражения, с указанными параметрами
Разработать алгоритм для вычисления выражения, с указанными параметрами: Расчётные...

Для заданного х составить алгоритм вычисления значения выражения
Для заданного х составить алгоритм вычисления значения выражения: 1^2 / 1 + 3^2 * 2^2 / 2 + 3^2 *...

Написать программу для вычисления значения выражения
мне осталось совсем немного,всего 3 задачи,но я никак не могу их решить,может быть вы сможете мне...

Написать программу для вычисления значений выражения...
Здравствуйте. Решаю задания и хотел бы спросить правильно ли я понял условия задачи, потому что я...

2
4117 / 994 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
09.12.2009, 23:02 2
Лучший ответ Сообщение было отмечено cosanostra как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var
s,i,j,k:integer;
p:real;
begin
k:=0;
p:=1;
for i:=1 to 11 do begin
s:=0;
for j:=1 to i do begin
k:=k+1;
s:=s+k;
end;
p:=p*s;
end;
writeln(p);
readln;
end.
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
09.12.2009, 23:38 3
Проблема в том, что получается число в степени 20, поэтому нужно либо длинную арифметику, либо тип extended. Он выдает 19-20 точных знаков. Поскольку последние цифры ноли, то это подойдет.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
{N+}
uses crt;
var i,j:integer;
    s,p:extended;
begin
clrscr;
p:=1;s:=1;
for i:=2 to 11 do
 begin
  s:=0;
  for j:=1 to i do
  s:=s+i*(i-1) div 2+j;
  p:=p*s;
 end;
write('P=',p:20:0);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2009, 23:38
Помогаю со студенческими работами здесь

Нужно написать программу для вычисления выражения
Нужна написать программы для решения в Pascal \left|sinx/3,12+cos x^2 \right|-8,3 sin3x

Написать функцию min для вычисления значения выражения
Даны значения c, d, m, k. Напишите функцию min для вычисления значения следующего выражения: ...

Написать программу для вычисления значения выражения вводимого с клавиатуры
Программа для вычисления значения выражения вводимого с клавиатуры.

Написать программу для вычисления заданного выражения и вывода на экран полученного значения
Написать программу для вычисления заданного выражения и вывода на экран полученного значения,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru