Форум программистов, компьютерный форум, киберфорум
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
maksym08
0 / 0 / 0
Регистрация: 12.09.2012
Сообщений: 10
#1

Задача на целочисельное решение - C++

29.10.2012, 20:54. Просмотров 298. Ответов 0
Метки нет (Все метки)

У меня есть задача: дано уравнение x1+x2+...+xn=r. Известны n и r.
Посмотрите пожалуста мой код. Тут находит количество решений, а надо + все эти решения. Спасибо!

#include <iostream>
#include <iomanip>
#include <sstream>
#include <conio.h>
#include <cmath>
using namespace std;

int main()
{
cout.width(62);
cout<<"Znahodgennia rozvazkiv rivniannia X1+X2+...+Xn=r"<<endl<<endl;
long int n,r,K;
cout<<"Vvedit kilkist zminnyh n: ";
cin>>n;
if (n<1) {cout<<"Pomylka: n>=1 !";getche();return 0;}
cout<<"Vvedit cilu constantu r: ";
cin>>r;
if (r<0) {cout<<"Pomylka: r>0 !";getche();return 0;}
long int fv=1;
for (int i=1;i<=(n+r-1);++i)
fv*=i;
long int f1=1;
for (int i=1;i<=(n-1);++i)
f1*=i;
long int f2=1;
for (int i=1;i<=r;++i)
f2*=i;
K=fv/(f2*f1);
cout<<"Kilkist rozvazkiv = "<<K<<endl;

getche();
return 0;
}

Добавлено через 33 минуты
Цитата Сообщение от maksym08 Посмотреть сообщение
У меня есть задача: дано уравнение x1+x2+...+xn=r. Известны n и r.
Посмотрите пожалуста мой код. Тут находит количество решений, а надо + все эти решения. Спасибо!

#include <iostream>
#include <iomanip>
#include <sstream>
#include <conio.h>
#include <cmath>
using namespace std;

int main()
{
cout.width(62);
cout<<"Znahodgennia rozvazkiv rivniannia X1+X2+...+Xn=r"<<endl<<endl;
long int n,r,K;
cout<<"Vvedit kilkist zminnyh n: ";
cin>>n;
if (n<1) {cout<<"Pomylka: n>=1 !";getche();return 0;}
cout<<"Vvedit cilu constantu r: ";
cin>>r;
if (r<0) {cout<<"Pomylka: r>0 !";getche();return 0;}
long int fv=1;
for (int i=1;i<=(n+r-1);++i)
fv*=i;
long int f1=1;
for (int i=1;i<=(n-1);++i)
f1*=i;
long int f2=1;
for (int i=1;i<=r;++i)
f2*=i;
K=fv/(f2*f1);
cout<<"Kilkist rozvazkiv = "<<K<<endl;

getche();
return 0;
}
Вот правильное решение на паскале, но паскаль я не учил. Помогите пожалуста!
type list=^node;
node=record
el:integer;
next:list;
end;
procedure poisk(r,n:integer;l:list);
var d:list;
q:integer;
begin
if r<n then exit;
if (r=0)and(n=0) then begin
d:=l;
while d<>nil do begin
write(d^.el,' ');
d:=d^.next;
end;
writeln;
exit
end;
q:=r-n+1;
while q>=1 do begin
new(d);
d^.el:=q;
d^.next:=l;
poisk(r-q,n-1,d);
dispose(d);
d:=nil;
if n=1 then exit; {последний Х может принять только одно значение}
q:=q-1;
end;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.10.2012, 20:54
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Задача на целочисельное решение (C++):

Перевод числа из массива char в целочисельное значение int - C++
Приведу пример: char* pDigit = new char; cin&gt;&gt;pDigit; предположим человек вводит: &quot;432dollars&quot; как в данном случае достать...

Задача на строки(поправьте решение) - C++
Задание. Преобразовать строку, содержащую выражение на Си с операциями (=,==,!=,a+=), в строку, содержащую эти же операции с...

Правильное ли решение задачи? Лафоре. 3 глава 9 задача - C++
Представьте, что вы собираетесь пригласить к себе шестерых гостей, но за вашим столом могут разместиться всего лишь 4 человека Сколькими...

Задача Иосифа Флавия, решение циклическим списком - C++
http://andrei-sapeshko.blogspot.ru/2013/04/blog-post.html тут есть пример, но он немного непонятный. struct node { int item; ...

задача на функции со сменным числом параметров. подскажите, пожалуйста решение - C++
Дано натуральное число n (4 &lt;n &lt;10) и целые числа a1, a2, ... an. Посчитать: a1, -a1a2, a1a2a3 ..., (-1) ^ (n + 1) a1a2 ... an;

Решение СЛАУ методом простых итераций, задача решена, только написать код осталось - C++
решить СЛАУ с точностью е=10 в степени(-4) 4*x1-x2-x3=2 x1+5*x2-2*x3=4 x1+x2+4*x3=6 Система из 3-х уравнений, с 3...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.10.2012, 20:54
Привет! Вот еще темы с ответами:

Задача на решение функции - Free Pascal
Пожалуйста помогите решить задачку. Она на фото. Заранее спасибо! Вот как я сделал, но паскаль выдаёт ошибку помогите, что не...

Задача на решение принципом Дирихле - Теория вероятностей
Добрый вечер. Прошу помочь мне в решении одной задачи по принципу Дирихле. Другие решить сама смогла, а эту не выходит, не знаю как. Очень...

Задача в паскале, ищу решение - Pascal
Дело такое, поступил на заочное обучение... сейчас идет сессия, дали задачки по информатике... Вот она: Разработать, ввести в ЭВМ и...

задача по Ассемблеру, нужно решение - Assembler
Title Prim1 DDD Segment buf db 40 dup('#') ddd ends STD Segment Stack DB 64 DUP(?) STD ...


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

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

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