0 / 0 / 0
Регистрация: 14.09.2014
Сообщений: 35
1

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

27.11.2014, 22:53. Показов 2634. Ответов 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.
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
Модератор
3490 / 2613 / 741
Регистрация: 19.09.2012
Сообщений: 7,974
28.11.2014, 09:26 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;
При условии, что купюры продавца отсортированы по возрастанию.
1
0 / 0 / 0
Регистрация: 14.09.2014
Сообщений: 35
28.11.2014, 20:05  [ТС] 3
Большое спасибооо вам))Выручили очень)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.11.2014, 20:05
Помогаю со студенческими работами здесь

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

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

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

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


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

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

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