PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Рекурсия: переставить элементы массива всеми возможными способами https://www.cyberforum.ru/ pascalabc-net/ thread2584951.html Дан одномерный массив, все элементы которого различны. Переставить элементы массива всеми возможными способами с помощью рекурсии.	PascalABC.NET Как сделать прозрачной модель игрока? uses ABCObjects,GraphABC,Timers; const clPlayer = Color.BurlyWood; var kLeftKey,kRightKey: boolean; kSpaceKey: integer; /// Игрок Player: PictureABC;
PascalABC.NET Program1.pas(6) : Встречено ';', а ожидалось '.' Program z4; var n: integer; begin writeln('введите, сколько прошло минут'); reanln(a); writeln:('сейчас ',((n div 60) mod 24),' часов ',(n mod 60),' минут'); end. https://www.cyberforum.ru/ pascalabc-net/ thread2584640.html	PascalABC.NET Нельзя преобразовать тип real к array of real Никак не могу понять, в чём проблема. Подскажите что нужно исправить в коде что бы данная ошибка не появлялась Program N247; Type ArrReal=array of real; Var x,y: ArrReal; i:integer; b,a:integer; function Calcul(a,b: integer; x:ArrReal):ArrReal; Var i: integer; begin https://www.cyberforum.ru/ pascalabc-net/ thread2584524.html
PascalABC.NET Определить средний балл каждого студента Вводится информация об итогах зимней сессии на 1 курсе. Сведения о каждом студенте(всего их 25) заданы в виде следующего текста: фамилия, имя, отчество, год рождения, номер группы, оценка 1, оценка 2, оценка 3, причем первая оценка - за экзамен по высшей математике, вторая по физике, третья по программированию, форма обучения(бюджетная, договорная). Сведения о студентах отделены друг от друга...	PascalABC.NET Передача данных вне локальной сети https://www.cyberforum.ru/ pascalabc-net/ thread2584385.html Хочу узнать, как устроить обмен информацией двух компьютеров ВНЕ одной локальной сети, т.к. в запросе "Передача данных вне локальной сети паскаль" яндекс игнорирует слово "не".
PascalABC.NET Вместо квадратиков вывести определенные картинки персонажей https://www.cyberforum.ru/ pascalabc-net/ thread2584229.html Подскажите как сделать чтобы вместо квадратиков в этой программе была определенные картинки персонажей(они скачаны на рабочий стол) uses GraphABC; var x,y,z,u,dx,dy,fx,fy,fz,fu,s:integer; procedure Friuts; begin if (x>=fx) and (z<=fz) and (y>=fy) and (u<=fu) then begin Window.Clear; fx:=random(800);	PascalABC.NET В массиве n=10 из отрезка [-15;15] найти и вывести на экран среднее арифметическое элементов кратных четырем В массиве n=10 из отрезка найти и вывести на экран среднее арифметическое элементов кратных четырем
PascalABC.NET Написать программу, определяющую попадает ли точка с координатами (x, y) в заштрихованную область https://www.cyberforum.ru/ pascalabc-net/ thread2583714.html	PascalABC.NET Написать программу Футбольный матч "Спартак Футбольный матч "Спартак" - "Динамо". Вводится, сколько мячей забила каждая команда. Написать программу, которая выводит результат матча на экран в виде: «Спартак выиграл со счетом 1 : 0» или «В матче "Спартак" - "Динамо" ничья». https://www.cyberforum.ru/ pascalabc-net/ thread2583696.html
Написать программу которая будет выводить Грузоподъемность Змея-Горыныча PascalABC.NET Грузоподъемность Змея-Горыныча определяется количеством его голов (вводится с клавиатуры): одна голова - может поднять 50 кг, две - 100 кг, три - 150 кг и т.д. Написать программу, которая определяет, сможет ли он поднять Ивана-Дурака, масса которого вводится с клавиатуры.	PascalABC.NET Написать программу, которая считает рост удава в попугаях, мартышках и слонятах Шаг попугая равен 10 см, мартышки - 20 см, слоненка - 100 см. Написать программу, которая считает рост удава в попугаях, мартышках и слонятах в зависимости от введенного с клавиатуры в сантиметрах. https://www.cyberforum.ru/ pascalabc-net/ thread2583688.html

JuriiMW

5059 / 2633 / 2346

Регистрация: 10.12.2014

Сообщений: 9,997

17.02.2020, 09:11

Ограниченный перебор через рекурсию - PascalABC.NET - Ответ 14259326

17.02.2020, 09:11. Показов 290. Ответов 1

Метки (Все метки)

Ответ

Pascal

const участники : array of String = ('Коля','Вася','Петя','Саша','Игорь','Толя','Гена','Миша','Лёша');
var a : array of Integer := (-1,-1,-1);
procedure перебор(n:Integer);
begin
  if n=3 then a.Select((x,n)->$'{n+1}:{участники[x]}').Println else for var x := 0 to участники.Length-1 do if Not a.Contains(x) then begin a[n]:=x;перебор(n+1);a[n]:=-1;end;
end;
begin
  перебор(0);
end.

Вернуться к обсуждению:
Ограниченный перебор через рекурсию PascalABC.NET

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.02.2020, 09:11

Готовые ответы и решения:

НОД через рекурсию
Дано a и b. Найти НОД введённых чисел. Через рекурсию.

Рисунок через рекурсию
(Пример, n=4.)

Сумма цифр через рекурсию
Найти сумму всех цифр введённого числа через рекурсию.

Вычислите f (95) через рекурсию
Дана рекурсивная функция: function f(n: integer): integer; begin if n>100 then f:=n-10 else...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.02.2020, 09:11

Помогаю со студенческими работами здесь

Реализовать перебор поддиректорий через рекурсию
Необходимо реализовать перебор поддиректорий через рекурсию Выводит только с первой папки: ...

Выручайте. Перебор трех чисел двумя нажатиями! похоже на банальную рекурсию
Вроде бы глупая рекурсия, но все не так просто как мне казалась. Идея заключается в следующем...

Ограниченный доступ к сети через 5 минут теряется доступ к интернету
Добрый день,требуется помощь. У меня через роутер tp-link по wifi подключен ноутбук. Но через 5...

Определитель через рекурсию
Требуется написать функцию для вычисления определителя. Я написала рекурсивный алгоритм с...

Наверх