Delphi для начинающих

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

Войти

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

Другие темы раздела
Delphi Для каждой из двух матриц вычислить и вывести количество отрицательных элементов https://www.cyberforum.ru/ delphi-beginners/ thread606714.html Доброго времени суток, помогите пожалуйста с заданием: Для каждой из двух матриц А (N строк, M столбцов) и В (N1 строк, M1 столбцов) вычислить и вывести количество отрицательных элементов. Также... program Project1; {$APPTYPE CONSOLE} uses SysUtils; const n=3; m=3; n1=3;	Delphi Что нужно dxBar ? https://www.cyberforum.ru/ delphi-beginners/ thread606677.html Здравствуйте! Кто разбирается в нудном DevExpress подскажите, пожалуйста - при запуске программы в режиме построчной отладки видно, что при открытии форм (в основном использую MDIChild) постоянно...
Delphi перевод реализации алгоритма рунге-кутта из maple в delphi здравствуйте.есть реализация алгоритма рунге - кутта в среде maple. пытался перевести в delphi, но не смог. #Метод Рунге-Кутты для решения дифференциального уравнения > restart: > Digits:=40:... https://www.cyberforum.ru/ delphi-beginners/ thread606735.html	Где ошибка (есть ли в массиве хотя бы одно число кратное К) ? Delphi Задание определить есть ли в массиве хотя бы одно число кратное К. Написать то написал а вот находит через раз. var Form1: TForm1; a:array of integer; i,n,k:integer; implementation ... 1.Кратное - ,число, делящееся на данное целое число без остатка Поэтому это k mod a=0 вот так a mod k=0 2.На ноль делить нельзя,random генерирует числа от 0 до 19 Поэтому это a:=random(20);...
Delphi Зависание программы procedure TForm1.Button1Click(Sender: TObject); var reg:tregexpr; s:string; begin stop:=0; while i <=52576 do begin Memo2.Text:=''; s:='http://blogs.yandex.ru/top/yaru/?page='+IntToStr(i);... цикл раз 15-20 срабатывает предположу что яденкс так от DDos атак защищается. Ставьте таймер на 3-5 сек после каждой страницы https://www.cyberforum.ru/ delphi-beginners/ thread606711.html	Delphi Изменение размера формы Нужно Предоставить пользователю возможность изменять размер формы, расположение объектов на форме после изменения размеров не должно быть изменено. Решение просто: Добавляем два Edit и команды:... создать еще одну форму, при запуске которая будет запускаться, на ней 2 поля эдит и 2 кнопки, "принять" и "отклонить", при нажати на кнопку принять, будут введенные значения в эдиты переданы в... https://www.cyberforum.ru/ delphi-beginners/ thread606632.html
Delphi Текстовые файлы данных и опенДиалог https://www.cyberforum.ru/ delphi-beginners/ thread606584.html Всем привет! В общем у меня такая проблема: Мне нужно что бы AssignFile связывал переменную с файлом, выбранном в OpenDialog, вот мой отрыки из кода программы: procedure... Всем привет! В общем у меня такая проблема: Мне нужно что бы AssignFile связывал переменную с файлом, выбранном в OpenDialog, вот мой отрыки из кода программы: procedure...	Динамические массивы в Delphi Delphi Составить функцию, заменяющую все отрицательные элементы исходной матрицы их модулями и фиксирующую число таких замен. Применить эту процедуру для заданной матрицы NхM, причем в случае совпадения...
Delphi Сортировка чисел в массиве с выводом в stringGrid Проблема такая: нужно написать программу сортировки чисел по возрастанию и убыванию вывести нужно в stringgrid собственно как и вводить тоже в него))) то есть структура программы такова: ... Вот прога, всё в одном стринггриде.	Delphi Блокировка значения и параметров реестра программно(как в антивирусах) Привет! Помогите новичку как заблокировать значения и параметров реестре как в Антивирусных программ на пример ESET Nod32 блокирует реестр так при удалении его же параметров видала ошибку... https://www.cyberforum.ru/ delphi-beginners/ thread606601.html
Delphi idmessage1.recipients.EmailAddresses из TStringList https://www.cyberforum.ru/ delphi-beginners/ thread606640.html procedure TForm2.Button1Click(Sender: TObject); var Logins: TStrings; l: Integer; begin Logins:=TStringList.Create; Logins.LoadFromFile(Edit1.Text); listbox1.Items.Add(Logins.Strings); ...	Delphi Создание сообщения у меня но кнопки написан код: procedure TForm20.Button1Click(Sender: TObject); begin if (DBEdit1.Text='') or (edit1.text='') or (edit2.Text='') or (edit3.Text='') then showmessage('Заполните... Ко всем трем эдитам: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Not (Key in )then shomessage('Вводить можно только цифры'); end; https://www.cyberforum.ru/ delphi-beginners/ thread606608.html

vilag

70 / 69 / 13

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

Сообщений: 146

16.06.2012, 00:34

Способы выплаты суммы n с помощью монет достоинством 1,2,5,10 рублей - Delphi - Ответ 3172120

16.06.2012, 00:34. Показов 4940. Ответов 2

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

Сообщение было отмечено Дианка4567 как решение

Решение

Погугли "поиск в глубину".

Delphi
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
27
procedure Find(sum, ncoins: integer; coins:TIntegerDynArray);
var
  i: integer;
begin
  if sum < 0 then exit;
  if sum = 0 then begin
    for i := 0 to ncoins - 1 do
      write(coins[i], '+');
    writeln;
    exit;
  end;
 
  if length(coins) < ncoins + 1 then
    setlength(coins, ncoins + 1);
  coins[ncoins] := 1;
  if (ncoins = 0) or (coins[ncoins - 1] <= coins[ncoins]) then
    find(sum - 1, ncoins + 1, coins);
  coins[ncoins] := 2;
  if (ncoins = 0) or (coins[ncoins - 1] <= coins[ncoins]) then
    find(sum - 2, ncoins + 1, coins);
  coins[ncoins] := 5;
  if (ncoins = 0) or (coins[ncoins - 1] <= coins[ncoins]) then
    find(sum - 5, ncoins + 1, coins);
  coins[ncoins] := 10;
  if (ncoins = 0) or (coins[ncoins - 1] <= coins[ncoins]) then
    find(sum - 10, ncoins + 1, coins);
end;

Добавлено через 1 минуту
Первый вызов:

Delphi
1
Find(n, 0, coins);

где

Delphi
1
2
var
  coins: TIntegerDynArray;

Вернуться к обсуждению:
Способы выплаты суммы n с помощью монет достоинством 1,2,5,10 рублей Delphi

Следующий ответ

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

16.06.2012, 00:34

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

Определить число способов выплаты суммы n руб. с помощью монет достоинством 1, 2, 5 рублей
22. Дано натуральное число n(n<100). a) Определить число способов выплаты суммы n руб. с помощью монет достоинством 1,2,5 рублей и...

Все способы выплаты суммы n с помощью купюр достоинством 1, 5, 10, 20 и 100 долларов
Здравствуйте помогите пожалуйста решить следующую задачу. Ввести с клавиатуры натуральное число n. Определить все способы выплаты суммы n...

Циклы: определить все способы выплаты суммы n с помощью купюр достоинством 1, 5, 10, 20 и 100 условных единиц
Ввести с клавиатуры натуральное число n. Определить все способы выплаты суммы n с помощью купюр достоинством 1, 5, 10, 20 и 100 условных...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

16.06.2012, 00:34

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

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

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

Определить количество способов оплаты N рублей с помощью монет достоинством 1, 2, 5, 10 рублей
Дано натуральное число N (N<100). Определить количество способов оплаты N рублей с помощью монет достоинством 1, 2, 5, 10 рублей....

Требуется найти все способы выплаты n рублей монетами по 1, 2, 5 и 10 рублей
Требуется найти все способы выплаты n рублей монетами по 1, 2, 5 и 10 рублей. На вход программе дается одно натуральное число nn...

Определить сколько монет достоинством в 20 и 50 рублей и каковы их порядковые номера
В коллекции нумизмата не более чем 90 монет всех возможных достоинств.Определить сколько монет достоинством в 20 и 50 рублей и каковы их...

Новые блоги и статьи Все статьи Все блоги /
Простая нейросеть на КуМир: Создание и обучение EggHead 16.03.2025 Искусственные нейронные сети — удивительная технология, позволяющая компьютерам имитировать работу человеческого мозга. Если вы хотя бы немного интересуетесь современными технологиями, то наверняка. . .	Исполнитель Кузнечик в КуМир: Решение задач EggHead 16.03.2025 Среди множества исполнителей в системе КуМир особое место занимает Кузнечик — простой, но невероятно полезный виртуальный персонаж, который перемещается по числовой прямой, выполняя ваши команды. На. . .	Исполнитель Водолей в КуМир: Решение задач EggHead 16.03.2025 Разработка алгоритмического мышления — одна из ключевых задач для начинающих программистов, и система КуМир предлагает отличный способ погрузиться в этот процесс. Среди множества исполнителей в этой. . .	Исполнитель Чертежник в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы можете рисовать на бесконечной координатной плоскости, перемещая точку, которая оставляет след. По вашей команде она может поднять перо и двигаться, не оставляя следа, или. . .	Исполнитель Робот в КуМир: Решение задач EggHead 16.03.2025 КуМир (Комплект Учебных МИРов) — это учебная среда программирования, разработанная специально для обучения базовым концепциям алгоритмизации. Её главная фишка — использование русскоязычного. . .
Исполнитель Черепаха в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы впервые учитесь программировать, а перед вами стоит задача заставить маленькую виртуальную черепашку рисовать на экране. Звучит забавно? Эта идея зародилась ещё в 1967 году, когда. . .	Конвейеры данных с Apache Kafka Javaican 16.03.2025 В мире, где данные стали новой нефтью, Apache Kafka зарекомендовал себя как мощный инструмент для построения надежных и масштабируемых конвейеров данных. Созданный изначально командой LinkedIn в 2011. . .	Deno против Node.js: Будущее JavaScript рантайма run.dev 16.03.2025 За последнее десятилетие Node. js стал абсолютным лидером среди JavaScript-рантаймов и фактическим стандартом для серверной разработки на JavaScript. Но в 2018 году тот же разработчик, который создал. . .	SwiftUI или UIKit - что выбрать для нового приложения iOS? mobDevWorks 16.03.2025 Когда Apple представила SwiftUI на WWDC 2019, многим показалось, что дни UIKit сочтены. Новый декларативный фреймворк предлагал радикально иной подход к разработке интерфейсов. Вместо кропотливого. . .	Docker: Руководство для начинающих по созданию первого приложения Mr. Docker 16.03.2025 Docker — это платформа, которая упаковывает ваше приложение и все его зависимости в стандартизированные блоки, называемые контейнерами. Эти контейнеры изолированы друг от друга и от основной системы,. . .

Наверх