[ЛюЧиЯ]

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

[The Shadow]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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.

[ЛюЧиЯ]

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