Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
milka495
2 / 2 / 0
Регистрация: 12.12.2013
Сообщений: 73
1

Используя рекурсию, напечатать по одному разу все последовательности из n нулей и единиц

28.12.2014, 23:54. Просмотров 884. Ответов 1
Метки нет (Все метки)

6. Используя рекурсию, напечатать по одному разу все последовательности из n нулей и единиц, содержащие ровно k единиц (k*≤*n).
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2014, 23:54
Ответы с готовыми решениями:

Напечатать все слова, которые встречаются в последовательности по одному разу
Очень нужно написать прогу, помогите кто может пожалуйста. Вот задание: Дана последовательность...

Напечатать все слова, которые встречаются в последовательности по одному разу
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных...

Напечатать все слова, которые встречаются в последовательности по одному разу
Здравствуйте. У меня такая проблема...вот задача: «Задана фраза-последовательность, содержащая от...

Напечатать все слова, которые встречаются в последовательности по одному разу
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных русских...

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

1
Joy
Эксперт Pascal/Delphi
2218 / 1231 / 1453
Регистрация: 29.08.2014
Сообщений: 4,490
29.12.2014, 08:53 2
Лучший ответ Сообщение было отмечено milka495 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var
  a:array[1..50] of boolean;
  n,k:integer;
procedure rr(i:byte);
var
 j:boolean;
 l,s:integer;
begin
  if i=n then for j:=false to true do begin a[i]:=j;s:=0;
    for l:=1 to n do if a[l] then s:=s+1;
    if s=k then begin for l:=1 to n do write(ord(a[l]),' ');writeln;end;
  end
  else for j:=false to true do begin a[i]:=j;rr(i+1);end;
end;
begin
  clrscr;
  repeat write('n,k='); readln(n,k);until (n>0) and (k<=n);
  rr(1);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.12.2014, 08:53

Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу.
Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по...

Напечатать все слова , которые встречаются в последовательности по одному разу.
Дана последовательность слов. Количество слов не отграничено. Слова разделены запятой, за последним...

Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу.
1.8. 2.Составить программу печати в возрастающем порядке всех цифр, входящих в десятичную запись...


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

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

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