Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Как передать функцию в процедуру? https://www.cyberforum.ru/ delphi-beginners/ thread1313007.html
Как передать функцию в процедуру как параметр?
Delphi Блок-схема для программы
Программа по действия над множествами (объединение, пересечение, разница, симметрическая разница). Помогите составить блок-схему для программы. Внизу прилагается текст программы. Буду очень благодарна за помощь. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, Math, XPMan;
Delphi Плавное появление кнопки https://www.cyberforum.ru/ delphi-beginners/ thread1312935.html
Доброго времени суток! Помогите пожалуйста:cry: У меня при открытии программы появляется анимация и после её завершения должны появиться кнопки (2 кнопки) как сделать их появление (можно ещё плавное пояление сделать если не сложно) Заранее спасибо за ваши ответы :good:
Delphi Перенос переменной из одной формы в другую https://www.cyberforum.ru/ delphi-beginners/ thread1312885.html
есть форма2 в которой есть button и edit13 procedure TForm2.Button1Click(Sender: TObject); begin name:=edit13.text; fs:=TFileStream.Create(ExtractFilePath(Application.ExeName)+name+'.txt', fmCreate or fmOpenWrite); Form1.show; end; нужно перенести значение edit13.text на форму1 чтобы потом читать файл
Delphi Как отправить данные находящиеся в компоненте RichEdit на печать через компонент TPrintDialog?
У меня в меню есть кнопка Печать. На форме есть компоненты TRichEdit, TPrintDialog. Как отправить данные находящиеся в компоненте RichEdit1 на печать через компонент TPrintDialog.
Delphi Ввод арифметической прогресии в массив https://www.cyberforum.ru/ delphi-beginners/ thread1312809.html
РЕбята, не знаю ,как забить в программу, чтоб оно сразу первую строку мне забивало числами от 1971 по 1990. ВТорую строку я должен вводить сам, в ней оно вычесляет максимальный и минимальный елемент. ВОт код: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Delphi Тормоза при изменении цвета Delphi При нажатии мышкой на панель изменяет цвет - первое нажатие становится черной, второе нажатие становится белой, короче как переключатель, но вопрос - почему реагирует не на каждое нажатие мыши, получается кликнул, надо чуть подождать, потом второй раз, а если быстро "одиночно" кликать то получаются пропуски нажатий... Почему так? Как будто сильно тормозит приложение, что не успевает все клики... https://www.cyberforum.ru/ delphi-beginners/ thread1312772.html Delphi Из С++ в Delphi
Добрый вечер. Помогите из С++ код "перевести" в Delрhi. #include <iostream> #include <list> using namespace std; int main () { setlocale(LC_ALL, "Russian"); list<int> list;
Delphi Почему размер исполняемого файла в Delphi XE2 меняется при каждом билде Здравствуйте. Подскажите, почему размер исполняемого файла в Delphi XE2 меняется при каждом билде и компиляции (оптимизация отключена, режим - debug)? Заранее спасибо. https://www.cyberforum.ru/ delphi-beginners/ thread1312748.html Delphi Создать bat файл https://www.cyberforum.ru/ delphi-beginners/ thread1312707.html
Как в bat файле выполнить команду: d:\offzip.exe -a d:\offzip\Res.zlib d:\offzip\ 0 (d:\offzip.exe - исполняемый файл, -a - параметр, d:\offzip\Res.zlib - файл архива, d:\offzip\ - каталог для результата, 0 - смещение. В командной строке Totala эта команда работает. Нужен bat файл.....
Delphi Сделать, чтобы класс был в отдельном модуле и была программа, к которой он подключается
вот есть программа которая с помощью класса переводит кирилицу в латиницу.....но нужно чтобы класс был в отдельном модуле и подключался к программе ......помогите переделать вот эту программу так чтобы класс был в отдельном модуле и была программа к которой он подключается unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,...
Delphi Создать общий алгоритм программы Доброе время суток! Реализация на Delphi 7 Необходима помощь в составлении общего алгоритма и совет чем корректней реализовать некоторые узлы. Необходимо написать программу "Моделирование загрузки вычислительной сети с использованием СМО с постоянным временем обслуживания " В приложении схема и описание что необходимо получить. Вопросы: 1. Стоит ли в данном проекте использовать потоки. https://www.cyberforum.ru/ delphi-beginners/ thread1312644.html
0 / 0 / 0
Регистрация: 14.09.2014
Сообщений: 35
0

Найти максимальную стоимость товара Р, которую покупатель не может купить - Delphi - Ответ 6910669

27.11.2014, 22:53. Показов 2701. Ответов 2
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Покупатель имеет купюры достоинством A(1), ...,A(n), а продавец - B(1), .. ,B(m). Необходимо найти максимальную стоимость товара Р, которую покупатель не может купить, потому что нет возможности точно рассчитаться за этот товар с продавцом, хотя денег на покупку этого товара достаточно.
Программа работает,но когда меняешь B[1]:=50 на B[1]:=1 результат остается неизменным,Помогите в чем проблема
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
const
  N = 5;
  M = 6;
var
  Form1: TForm1;
  A : array[1..N] of cardinal;
  B : array[1..M] of cardinal;
procedure Kupira;
begin
  A[1]:=100;
  A[2]:=200;
  A[3]:=400;
  A[4]:=600;
  A[5]:=800;
  B[1]:=50;
  B[2]:=200;
  B[3]:=400;
  B[4]:=600;
  B[5]:=800;
  B[6]:=1000;
end;
      
 
procedure TForm1.BitBtn4Click(Sender: TObject);
var
  i : integer;
  s : integer;
  c : array[1..N+M] of cardinal;
  p : integer;
  sum : integer;
begin
  Kupira;
  s:=0;
  for i:=1 to M do
    Label4.Caption:=Label4.Caption+#13+IntToStr(b[i]);
  for i:=1 to N do
    begin
      c[i]:=a[i];
      Label3.Caption:=Label3.Caption+#13+IntToStr(a[i]);
    end;
  for i:=N+1 to M do
    c[i]:=b[i];
  i:=1;
  while (i <=N+M) and (c[i]<=S+1) do
    begin
      s:=s+c[i];
      inc(i);
    end;
  sum := 0;
  for i:=1 to N do
    sum := sum + a[i];
  if s>sum then Label5.Caption:='Покупатель может купить товар любой доступной ему стоимости'
  else
    p := sum -s-1;
    Label5.Caption:=Label5.Caption+#13+#13+IntToStr(p);
end;
 
end.


Вернуться к обсуждению:
Найти максимальную стоимость товара Р, которую покупатель не может купить Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.11.2014, 22:53
Готовые ответы и решения:

Известна сумма денег, имеющаяся у покупателя и стоимость одной единицы товара. Сколько единиц товара сможет купить покупатель и какова его сдача?
Известна сумма денег, имеющаяся у покупателя и стоимость одной единицы товара. Сколько единиц...

Сколько единиц товара покупатель может купить и какова сдача
Помогите пожалуйста решить, очень нужно. Дана сумма денег, имеющаяся у покупателя и стоимость...

Найти максимальную стоимость товара...
6.Покупатель имеет купюры достоинством А(1), ...,А(n), а продавец - В(1), ...,В(m). Необходимо...

Необходимо найти максимальную стоимость товара
Покупатель имеет купюры достоинством А(1),...,А(n),а продавец B(1),...,B(m). Необходимо найти...

2
27.11.2014, 22:53
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2014, 22:53
Помогаю со студенческими работами здесь

Сколько единиц товара сможет купить покупатель и какова его сдача?
1. Известна сумма денег, имеющаяся у покупателя и стоимость одной единицы товара. Сколько единиц...

Сколько единиц товара сможет купить покупатель и какова его сдача?
Известна сумма денег, что есть у покупателя и стоимость одной единицы товара. Сколько единиц товара...

Сколько товаров может купить покупатель
Помогите, пожалуйста, решить простые задачки. 2) Известна сумма денег S, имеющуюся у покупателя...

Покупатель приобрел А штук товара по цене B руб. Определите стоимость покупки и размер сдачи
Покупатель приобрел А штук товара по цене B руб. Определите стоимость покупки и размер сдачи

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru