Простенький линейный алгоритм? Опции

[OneDose]

Имеется такое задание:
Хозяин хочет оклеить обоями квартиру. Определить количество необходимых рулонов и затрат на их приобретение.

Мне очень стыдно, но не могу решить ее используя линейный алгоритм
Как я прнимаю, отношение площади стен к площади рулона даст количество рулонов, но количество рулонов должно быть целым числом...

Сообщение отредактировано: OneDose - 17.06.2010 15:26

[TarasBer]

> Не могли бы Вы объяснить, почему это решение будет неверно для S,S1 : real ?

Для этого типа не определена операция mod.
Тогда придётся писать N := upRound(S/S1); (вот это точно самый читаемый вариант).
Функцию upRound придётся отдельно определить:

function upRound(r: real): longint;
var
  res: longint;
begin
  res := round®;
  if res < r then inc(res);
  upRound := res;
end;

> TarasBer, не могли бы вы расписать Ваш вариант в констекте написанного выше кода, я, к сожалению, не совсем понимаю что Вы имеете ввиду...

Ну просто заменяешь 2 строчки

  if((S mod s1) <> 0) then N:=(S div S1)+1
  else N:=S div S1;

На одну:

  N := (S + S1 - 1) div S1;

Сообщение отредактировано: TarasBer - 18.06.2010 13:29