Задача для прогера Опции

[Alhoy]

№ - номер раствора
NPK - [N]Натрий;[P]Фосфор;[K]Калий (содержание веществ измеряемых в милиграммах в 1мл раствора)

Код

          N         P        K
№1:    25     4,36     58,1
№2:    40       0        16,6
№3:     0      21,8      33,2

К примеру если взять 2.6мл первого раствора + 1,3мл второго и 1,3мл третьего то получим следующую концентрацию:

Код

          N         P        K                            N         P            K
№1:    25     4,36     58,1         *2,6  =   65    11.336    151.06
№2:    40       0        16,6         *1,3  =   52        0        21.58
№3:     0      21,8      33,2         *1,3  =   0      28.34     43.16

Теперь складываем получившиеся значения N: 65+52=117
P: 11.336+28.34=39.676
K: 151.06+21.58+43.16=215.8
Получаем Конечный Результат: N=117
P=39,6
K=215,8

Нужно найти оптимальную пропорцию раствора в мл (пример 2.6-1.3-1.3)
Максимально приближенных к Значению конечного результата 250-100-350 и к другому значению 100-100-220
Первого выполнившего эту работу ждет денежная награда

Сообщение отредактировано: klem4 - 22.05.2008 13:26

[dream-x]

Это тебе на Pascal'e сделать надо?

[Гость]

Это тебе на Pascal'e сделать надо?

Не обязательно

[klem4]

перенесено в Задачи на заказ

[dream-x]

Не обязательно

тогда держи на паскале))

Program fre;
const
     nmax=10;
     l=3;
var
   c:array[1..nmax,1..nmax] of real;
   b:array[1..nmax] of real;
   i,j:integer;
   n,p,k,s1,s2,s3,r:real;
Begin
     Writeln('rastvor = ');
     for i:=1 to l do
         for j:=1 to l do
         readln(c[i,j]);
     writeln('ñêîëüêî 1 ðàñòâîðà');
     read(n);
     writeln('ñêîëüêî 2 ðàñòâîðà');
     read(p);
     writeln('ñêîëüêî 3 ðàñòâîðà');
     read(k);
     
     i:=1;
     for j:=1 to l do
         c[i,j]:=c[i,j]*n;
     i:=2;
     for j:=1 to l do
         c[i,j]:=c[i,j]*p;
     i:=3;
     for j:=1 to l do
         c[i,j]:=c[i,j]*k;
     r:=0;
     
     for j:=1 to l do
     begin
     for i:=1 to l do
         begin
         r:=r+c[i,j];
              writeln®;
         end;
     b[j]:=r;
     r:=0;
     end;
     writeln('otvet');
     for j:=1 to l do
         writeln(b[j]);
     end.

[Гость]

давай спишемся в ICQ 242-154-959

[Гость]

Вобщем смысл задачи в том чтобы найти из задаваемого пользователем "конечного результата" необходимое кол-во каждого из 3х растворов в мл.Ответ не обязательно должен быть точным,он должен быть максимально приближен к задаваемым параметрам и не превышать их.