Помогите пожалуйста
ЛБ-
72 Разработайте алгоритм для вычисления площади
поверхности цилиндра: s
= 2πr(h + r); где r
– радиус основания,
h – его высота.
ВБ-
69 Разработайте схему
алгоритма для нахождения min(a, b, c) целых чисел a, b, c.
ЦА-12
Разработайте
схему алгоритма для вычисления суммы S целых
четных чисел на отрезке [a,b]. Текущее значение целого числа имеет имя i.
Ответы
Ответ дал:
0
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.
Площадь боковой поверхности цилиндра: 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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад