|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.06.2009, 13:22 | #1 |
Пользователь
Регистрация: 17.06.2009
Сообщений: 17
|
Помогите решить задачу на циклы на Паскале.
Напечатать все различные разбиения числа N на три натуральных слагаемых.
|
19.06.2009, 21:40 | #2 |
Пользователь
Регистрация: 17.06.2009
Сообщений: 17
|
Недоработанная программа выглядит так:
Program zadacha3_4; uses crt; Var N,a,b,c,i:integer; Begin clrscr; Writeln('Vvedite chislo N'); Readln(N); a:=0; b:=0; c:=0; repeat for a:=1 to n-2 do for b:=1 to n-a-1 do if c=n-a-b then writeln('Variant razbieniya:',a,',',b,',',c,' ') else c:=c+1; until a+b+c=n; Readln; end. Помогите доработатьб чтоб программа выдавала все варианты разбиения. |
19.06.2009, 21:50 | #3 |
пропагандирую жизЪ
Форумчанин
Регистрация: 19.03.2007
Сообщений: 950
|
Ты знаешь что чем больше число ты введешь, тем больше случаев будет?
Если тебе нужны все варианты, то такая программа при значении 20 скорее всего будет занимать весь экран...
Посторонним В.
|
19.06.2009, 21:55 | #4 |
Пользователь
Регистрация: 17.06.2009
Сообщений: 17
|
При значении 8 она выдает меньше вариантов, чем должна. Помогите найти ошибку в программе.
|
19.06.2009, 22:11 | #5 |
пропагандирую жизЪ
Форумчанин
Регистрация: 19.03.2007
Сообщений: 950
|
кажется так:
Код:
Посторонним В.
Последний раз редактировалось NSvirus; 19.06.2009 в 22:16. |
19.06.2009, 22:12 | #6 |
пропагандирую жизЪ
Форумчанин
Регистрация: 19.03.2007
Сообщений: 950
|
только здесь ноль не учитывается, если нужен-сделай сам
Посторонним В.
|
19.06.2009, 22:23 | #7 | |
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
|
Цитата:
На самом деле для 20 будет всего лишь 9 разбиений.. с учетом того, что разбиения (10,4,6) и (6,10,4) к примеру равнозначны... программа: Код:
Код:
Uguu~
Последний раз редактировалось __STDC__; 19.06.2009 в 22:27. |
|
19.06.2009, 22:25 | #8 | |
пропагандирую жизЪ
Форумчанин
Регистрация: 19.03.2007
Сообщений: 950
|
Цитата:
Разве не так? ------------------добавлено--------- Туплю, хотя судя по его коду так и нужно делать..,
Посторонним В.
Последний раз редактировалось NSvirus; 19.06.2009 в 22:30. |
|
19.06.2009, 22:29 | #9 | |
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
|
нет...
Цитата:
Uguu~
|
|
19.06.2009, 22:53 | #10 |
Пользователь
Регистрация: 17.06.2009
Сообщений: 17
|
Этот код выводит ошибку.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачу в Паскале? | ТолянPAVL | Помощь студентам | 3 | 15.06.2009 19:27 |
Помогите решить задачу в паскале | P@niSheR | Помощь студентам | 2 | 08.12.2008 18:48 |
Помогите решить задачу в ПАСКАЛЕ | triston | Помощь студентам | 3 | 17.11.2008 17:46 |