[ЛюЧиЯ]

Delphi.Составить программу расчета числа зубьев ведущего и ведомого зубчатых колес Z1 и Z2, если Z1+Z2=S и передаточное отношение i=Z1/Z2 должно быть возможно ближе к P. Принять S=99, P=0.7
Спасибо.

[The Shadow]

Код:

var
  s, z1, z2: integer;
  p: real;
begin
  // вводим s, p
  z2:=trunc(s / (1 + p));
  z1:=s - z2;
  if Abs(z1 / z2 - p) > Abs((z1 - 1) / (z2 + 1) - p) then
  begin
    inc(z2);
    dec(z1);
  end;
  // вывод z1, z2
end.

[ЛюЧиЯ]

Большое спасибо! Искренне благодарю.