Поиск количества граммов в общем асорти

[kim-im]

Нужна помощь в решении задачи. Условие таково:
Есть два вида печенья. "Бурратино" стоит P руб/кг, "Наполеон" N - руб/кг. Продавец решил продавать ассорти из этих видов печенья, для этого он смешал два вида печенья. Стоимость ассорти стала стоить А руб/кг.
Зная, значения P, N, А, нужно найти сколько грамм "Бурратино" содержится в ассорти (с точностью до десятых), иначе вывести -1, если определить невозможно.
Задача как бы проста, на определение процента, но вот мой код что-то лишь проходит 1 тест из 12.

var p,n,a,a1,m,m1,m2:real;
begin
  read(p,n,a);
   a1:=p+n;
   m:=(a/a1)*2;
   m1:=m*(a-n)/(p-n);
   m2:=m-m1;
   write (m2*1000:0:1);
end.

Идея такова
A1=P+N (цена за 1 кг)
m = A/A1 (всего кг)
m1 +m2 =m => m2=m-m1
m1*P+(m-m1) *N = m*A =>m1:=m*(a-n)/(p-n)>0, если <0 то невозможно
код я написал без учёта -1, но все равно что-то не работает. В программе как бы считает.
Спасибо за помощь

[evg_m]

A1=P+N (цена за 1 кг)всего лиць СТОИМОСТЬ ДВУХ кг смеси и вполне определенной к тому же.
"полтора землекопа" ©В стране невыученных уроков

[kim-im]

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

A1=P+N (цена за 1 кг)всего лиць СТОИМОСТЬ ДВУХ кг смеси и вполне определенной к тому же

спасибо за поправку

[Serge_Bliznykov]

или я ошибаюсь, или Вы перемудрили.

формула же:
X = (A-N)/(P-N);

проверьте такой код:

program ideone;
var p,n,a:real;
begin
  read(p,n,a);
  if (abs(p-n)<0.001) and (abs(a-p)<0.001) then WriteLn(500.0:0:1)
  else
  if (p<=n) or (a<n) or (abs(a-n)>abs(p-n)) then WriteLn(-1)
  else writeLn((a-n)/(p-n)*1000:0:1);
end.

p.s. Внимание! Насчёт того, что проверки у меня написаны верно - не уверен!

[Аватар]

А зачем там m в уравнении? Наверно так Px+N(1-x)=A -> x=(A-N)/(P-N), где x<=1
если P=N, то решение возможно только если A=N и x любой от 0 до 1кг
иначе если A=N, то решение x=0
иначе решение только для положительного результата не большего 1

[Serge_Bliznykov]

Сообщение от Аватар

если P=N, то решение возможно только если A=N и x любой от 0 до 1кг

точно. это я упустил. если P=N нужно выводить -1

[kim-im]

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

или я ошибаюсь, или Вы перемудрили.

Спасибо. Точно перемудрил
Вот работающий код:

var p,n,a:real;
begin
  read(p,n,a);
   if (p=n) then WriteLn(-1)
  else writeLn((a-n)/(p-n)*1000:0:1);
end.

Ещё раз все спасибо, кто помог

[Аватар]

для a=100, p=40, n=10 он не работающий )) Проверки не все сделал

[Serge_Bliznykov]

Сообщение от kim-im

Вот работающий код:

Точно? Работающий?

Ну, значит, ребята с исходными данными для теста не сильно заморочились.

попробуйте посчитать для
10 5 100 (это P, N и A соответственно)

или попробуйте посчитать для
10 20 1

всё корректно получилось?

но, впрочем, дело хозяйское. Главное, чтобы код приняли.
А дальше, правильный он или нет, только разных гиков и педантов интересует

добавлено
Аватар опередил!

[kim-im]

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

Точно? Работающий?

Спасибо за подбор тестов, но программа сдала все 12 тестов. Видать преподы не сильно заморачивались с тестами для задачи.
Впрочем мне нужен был результат и вы мне его дали. Большое спасибо ещё раз