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

[OneDose]

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

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

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

[OneDose]

volvo, я правильно Вас понял?

Program steny;
uses crt;
var S,S1:integer; {площадь стен, площадь рулона}
    N:integer;    {Необходимое количество рулонов}
    D,K:real;     {Стоимость рулона, общая цена}

Begin
  clrscr;
  writeln('Введите площадь оклеимаевой поверхности'); read(S);
  writeln('Введите площадь рулона'); read(S1);
  writeln('Введите цену рулона'); read(D);
  if((S mod s1) <> 0) then N:=(S div S1)+1
  else N:=S div S1;
  writeln('Необходимо ',N,' рулонов');
  K:=D*N;
  writeln('Затраты на приобретение необходимого количества рулонов: ',K:8:3);
  readln;
  readln;
end.  

Я начинающий и не знаю, можно ли назвать это линейным алгоритмом, или это алгоритм с ветвлением.
Не могли бы Вы объяснить, почему это решение будет неверно для S,S1 : real ?
Текст задачи -это все что есть, никаких вводных данных не прилагается

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

Есть вариант решения данной задачи, на который я не смею ссылаться ввиду отсутствия представления о принципах его работы( начиная с того, что я понятия не имею, откуда взялся раздел описания констант)

Спойлер (Показать/Скрыть)

Program Ex_1;
uses crt;
const
 d = 10; {длинна рулона и его стоимость}
 s1 =200;
var
 r1,r2,r3,r4 : real;{размеры стен}
 
 i,i1,i2 : integer;{количество стен и рулонов}
 d1,d2 : real;{размеры рулона}
 S,S1 : real;{стоимость обоев}
 
 k,k1,k2,k3:real;
 k4,k5,k6:real;
 
Begin;
  ClrScr;
  S:=0; k3:=0;
  Writeln('Введи размер стены');
  Read(r1,r2);
  Writeln('введи размер второй стены');
  Read(r3,r4);
  writeln('1 рулон');
  read(d1,d2);
  read(i1,i2);
   k :=r1 div d1;
   k1:=r2 div d2;
   k4:=r3 div d1;
   k5:=r4 div d2;
   k6:=k4 * k5;
   k3:=i1 * (k2/10)+i2*(k6/10);
  writeln('количество рулонов = ', k3);
   S:= S1*k3;
  writeln('стоимость рулона = ', S,'руб');
  readln;
End.

Спасибо за помошь и поддержку!

Сообщение отредактировано: OneDose - 18.06.2010 0:20