ПОМОГИТЕ ПОЖАЛУЙСТА - ПАСКАЛЬ! через IF С клавиатуры вводятся радиус шара, высота цилиндра. Радиус шара и радиус цилиндра одинаковы. На экран вывести какой объем фигур больше и на сколько. ФОРМУЛЫ объем цилиндра 2πR*h 4/3*πr2(в квадрате)
Var r,h:integer; v1,v2:real; begin writeln('Ввод радиуса: '); readln(r); writeln('Ввод высоты цилиндра: '); readln(h); v1:=2*pi*r*h; v2:=4/3*pi*(r*r); if v1>v2 then write('Объем цилиндра больше') else write('Объем шара больше'); end.
Спасибо большое!!!
Это с каких пор объем шара выражается в квадратных единицах? r*r - это единицы в квадрате, а не в кубе.
Учитель по информатике так сказал задачу
Точно так же и объем цилиндра у Вас в квадратных единицах? v1:=2*pi*r*h; ?
А учитель информатики математику в школе не учил ?
Это из разряда "Что сказали, то делаем". Смысла это обсуждать не вижу
Объем шара V = 4/3pi*r^3, объем цилиндра V = pi*r^2*H