Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
darkmesser
0 / 0 / 1
Регистрация: 04.11.2013
Сообщений: 148
#1

Описать программу - Turbo Pascal

08.02.2014, 12:56. Просмотров 325. Ответов 4
Метки нет (Все метки)

я не могу понять алгоритм программы разбиение числа n на k слагаемых
например, нужно разбить число 17 на 10 слагаемых, так, чтобы результат не зависил от порядка (1+2 тоже самое, что и 2+1; если уже есть 5+7+1, то 7+1+5 уже не надо записывать)

помогите, пожалуйста, описать алгоритм, что делает программа(подробно, с момента запуска до конца, какие переменные используются и для чего они нужны, рекурсия...)!

Описать программу
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.02.2014, 12:56
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Описать программу (Turbo Pascal):

Помогите описать программу
Помогите описать программу препод сказал что коментарии это одно , а описание...

Описать программу табулирования функции
uses crt; const a=-2; b=2; h=0.2; function y(x:real):real;...

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

Описать массив записей, который содержит информацию о нескольких деталях. Переделать исходную программу
Доброго времени суток! Необходимо описать массив записей, который содержит...

описать построчно программу
нужно построчно (правильно) описать программу...просто я незнаю как правильно...

Описать программу по блок схеме
Запишите на языке Паскаль фрагмент программы, соответствующей блок...

4
darkmesser
0 / 0 / 1
Регистрация: 04.11.2013
Сообщений: 148
08.02.2014, 12:58  [ТС] #2
Результат
Описать программу
0
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,072
08.02.2014, 18:58 #3
darkmesser, правило форума:
5. 18. Запрещено размещать задания и решения в виде картинок и других файлов с их текстом.
Кроме этого, на первой картинке ничего разобрать не удаётся.
0
darkmesser
0 / 0 / 1
Регистрация: 04.11.2013
Сообщений: 148
09.02.2014, 21:28  [ТС] #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var n,k: integer;
a:array [1..10000] of integer;
 
procedure rec (x,p,v: integer);
var i: integer;
begin
if ((x<>0) and (v<=k) or ((x=0) and (v>k))) then begin 
   if(x=0) and (v>k) then begin
      for i:=1 to k do
            write(a[i], ' ');
           writeln;
end
else
for i:=p to n do begin 
a[v]:=i;
rec(x-i,i,v+1);
end;
end;
end;
 
begin
 
readln(n,k);
rec(n,1,1);
 
end.
0
Cyborg Drone
10.02.2014, 17:33     Описать программу
  #5

Не по теме:

Не знаю. Плохо у меня с рекурсией.

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

Описать программу (комментарии ко всей программе)
Program sp_cikl; Uses crt; Type pInt = ^TElement; TElement =...

Описать тип записи и написать программу
Не выходит решить задачу.Опишите тип записи,содержащей информацию о книгах в...

С помощью рекурсивного определения описать функцию f и составить программу табулирования этой функции
С помощью рекурсивного определения описать функцию f и составить программу...

Описать объект, имеющий необходимые поля, конструктор, деструктор и перечисленные методы. Разработать тестовую программу для иллюстрации работы с объе
Описать объект, имеющий необходимые поля, конструктор, деструктор и...


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

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

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