Question

Помогите пожалуйста
 

ЛБ-
72  Разработайте алгоритм для вычисления площади
поверхности цилиндра: s
= 2πr(h + r); где r
– радиус основания,
h – его высота.

 


ВБ-
69 Разработайте  схему 
алгоритма для нахождения min(a, b, c) целых чисел a, b, c.

 

ЦА-12
Разработайте
схему алгоритма для вычисления суммы S целых 
четных чисел на отрезке [a,b]. Текущее значение целого  числа имеет имя  i.

Answer 1

1)Алгоритм решения задачи: Программа должна запрашивать у пользователя следующую информацию:диаметр бака;высота бака;расход краски (площадь поверхности, которую можно покрасить одной банкой краски).В результате программа должна выдавать количество требуемых банок. При получении дробного числа округление должно всегда происходить в большую сторону.Площадь крыши бака (круга) вычисляется по формуле p * d2 /4 (где p – число пи, d - диаметр).
Площадь боковой поверхности цилиндра: p * d * h (где h – высота).
Программа на языке Паскаль: 
const pi = 3.14;  
var d, h, b: real;
     top, wall, q: real;
     q_int: integer;  
begin write('Диаметр: ');
readln(d); write('Высота: ');
readln(h);
write('Окрашиваемая площадь одной банкой: ');
readln(b);  
     top := pi * sqr(d) / 4.0;
    wall := pi * d * h;
     q := (top + wall) / b;
    q_int := trunc(q) + 1;  
write('Количество банок: ', q_int);  
readln
end.