Пример разработки программы

 Задача.

Подсчитать сколько потребуется банок с краской для покраски бака для бензина, имеющего форму цилиндра, радиус основания которого R, а высота H, если одной банки краски достаточно для покраски площади 236 кв.ед.

 

Математическая постановка задачи:  

1. Исходные данные:

            R – радиус цилиндра;

            H – высота цилиндра;

            S1 - площадь, которую можно покрасить 1 банкой краски.

Дополнительные переменные:

            S - площадь поверхности бака;

            OST - остаток площади, на которую не хватило краски;

            BOOL - логическая переменная для проверки есть ли остаток площади.

2. Результат:

B - число банок необходимых для покраски

3. Метод решения задачи:

            Последовательные вычисления по формулам:

S=pR2 + 2pR H; {площадь поверхности бака}

B= S DIV S1; {число банок необходимых для покраски}

         Ost= S MOD S1; { остаток площади, на которую не хватило краски }

Bool=(Ost <> 0) {Если остаток от деления , то число банок увеличивается на 1

B= B+1}.

Program painter;

Uses Crt;

Const Pi=3.14;

Var R, S,S1,H,Ost : Real; Bool : Boolean; B: Integer;

Begin

            ClrScr;

            Write(‘ Радиус цилиндра>‘); Readln(R);

            Write(‘Высота цилиндра>‘); Readln(H);

            S1:= 236;

            S:= 2*Pi*Sqr(R)+2*Pi*R*H;

            B:=S DIV S1;  Ost:= S - S1*B;

            Bool:= Ost <> 0;

   if  Bool then B:=B+1;

            Writeln(‘ необходимо купить ‘, B, ‘банок’);

            readkey;

End.