Форум программистов, компьютерный форум, киберфорум
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
Модератор
3490 / 2613 / 741
Регистрация: 19.09.2012
Сообщений: 7,974
28.11.2014, 09:26 0

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

28.11.2014, 09:26. Показов 2705. Ответов 2
Метки (Все метки)

Ответ

Наверное так:
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
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-N];
  i:=1;
  while (i <= M) and (b[i]<=S+1) do
    begin
      s:=s+b[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;
При условии, что купюры продавца отсортированы по возрастанию.

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

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

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

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

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

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

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

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

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

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

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