программирование циклов с параметрами

[Kasia]

Условие задачи: В пункты А и В прибыло по 15 вагонов одного в того же продукта. Эти вагоны требуется доставить в пункты потребления С и D: в С - десять вагонов, D - двадцать. Транспортировка од¬ного вагона в пункты С и D стоит соответственно из пункта А: М и N денежных единиц, из В - Р и R единиц. Составить план транспортировки, минимальный по стоимости.

[ex.cluz]

Наработки ваши где?

[Kasia]

Program Vagony;
var n,m,p,r,k,k1,k2,k3: integer;
begin
writeln ('Цены транспортировки с одной станции должны быть попарно больше цен с другой');
repeat
readln (m);
readln (n);
readln (p);
readln (r);
until (m>p) and (n>r) or (p>m) and (r>n);
k:=0;
k1:=0;
k2:=0;
k3:=0;

if m>p
then
begin
for p:=0 to 14 do
k:=k+1;
for m:=0 to 4 do
k1:=k1+1;
for n:=0 to 9 do
k2:=k2+1;
end
else
begin
for m:=0 to 14 do
k1:=k1+1;
for p:=0 to 4 do
k:=k+1;
for n:=0 to 9 do
k3:=k3+1;
end;
writeln ('Из А в С',k,' вагонов. Из А в D ', k1, ' вагонов. Из В в С ',k2,'вагонов. Из В в D ',k3, 'вагонов');
readln
end.

[Valio]

Как этот код связан с условием задачи из первого поста?

[Ghost of Night]

Сообщение от Kasia

Условие задачи: В пункты А и В прибыло по 15 вагонов одного в того же продукта. Эти вагоны требуется доставить в пункты потребления С и D: в С - десять вагонов, D - двадцать. Транспортировка од¬ного вагона в пункты С и D стоит соответственно из пункта А: М и N денежных единиц, из В - Р и R единиц. Составить план транспортировки, минимальный по стоимости.

Из А в С 10 вагонов, потом из А в D пять вагонов и из B в D 15 вагонов, и считаете стоимость доставки.
Только условие не полное, как можно посчитать стоимость, не зная цены за доставку?

[Kasia]

блин, не то окно открыто было, не то скопировала))
сейчас

[Kasia]

всё, исправила.
там ошибка в том, что сравнивала цены парами. из-за этого выходит, что в пункты С и D доставляется не то количество вагонов, что требуется в условии

[Ghost of Night]

А код оформлять пробовала?

Program Vagony;
var 
 n,m,p,r,k,k1,k2,k3: integer;
begin
 writeln ('Цены транспортировки с одной станции должны быть попарно больше цен   с другой');
 repeat
  readln (m);
  readln (n);
  readln (p);
  readln (r);
 until (m>p) and (n>r) or (p>m) and (r>n);
 k:=0;
 k1:=0;
 k2:=0;
 k3:=0;

 if m>p then
  begin
   for p:=0 to 14 do
    k:=k+1;
   for m:=0 to 4 do
    k1:=k1+1;
   for n:=0 to 9 do
    k2:=k2+1;
  end
 else
  begin
   for m:=0 to 14 do
    k1:=k1+1;
   for p:=0 to 4 do
    k:=k+1;
   for n:=0 to 9 do
    k3:=k3+1;
  end;
 writeln ('Из А в С',k,' вагонов. Из А в D ', k1, ' вагонов. Из В в С ',k2,'вагонов. Из В в D ',k3, 'вагонов');
 readln;
end.

[Kasia]

извините, ещё не освоилась.
можете помочь с задачей - помоги, пожалуйста.

[Kasia]

уже не надо
написала сама