Написать формулы и алгоритм. Для определения: Можно ли перелить содержимое...

Question

Написать формулы и алгоритм.
Для определения: Можно ли перелить содержимое цилиндрического бака в прямоугольный контейнер без потери жидкости.

Answer 1

Объем цилиндра = πR²h, объем параллелепипеда = abh
Программа на паскале:
var r,h1,a,b,h2,v1,v2:real;
begin
writeln('Введите данные цилиндра:');
write('R = '); readln(r);
write('h = '); readln(h1);
writeln('Введите данные параллелепипеда:');
write('a = '); readln(a);
write('b = '); readln(b);
write('h = '); readln(h2);
v1:=pi*r*r*h1;
v2:=a*b*h2;
writeln('V1 = ',v1:5:2,' V2 = ',v2:5:2);
if v1 <= v2<br> then writeln('Yes') else writeln('No');
end.

Пример:
Введите данные цилиндра:
R = 3
h = 5
Введите данные параллелепипеда:
a = 4
b = 6
h = 5
V1 = 141.37 V2 = 120.00
No

Comments

Спасибо, но уже написал)