Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 26.04.2012
Сообщений: 14
1

Цилиндр. Определить объем 5-ти цилиндров

29.05.2012, 23:31. Просмотров 762. Ответов 3
Метки нет (Все метки)


Определить объем 5-ти цилиндров. Радиус (R) первого равен 10 см, а высота его Н равна 25 см. Высота каждого следующего цилиндра уменьшается на 0,5 см...формула: √=πR[2]*H
помогите пожалуйста решить надо....
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.05.2012, 23:31
Ответы с готовыми решениями:

Определить объём каждого из 10 цилиндров
. Определить объём каждого из 10 цилиндров, для которых заданы радиусы оснований Rj (случай- ные...

Определить объём каждого из 4 цилиндров
Определить объём каждого из 4 цилиндров, для заданы радиусы оснований Rj (случайные числа от 1 ...

Определить общий объем всех заданных цилиндров
Помогите пожалуйста,Заданы N цилиндров радиусом R своего основания и высотой H. Определить общий...

Найти объем Vi каждого из n цилиндров, при заданных радиусах осно- ваний R1, R2, …, Rn и высотах H1, H2, …, Hn
Помогите плиз с программой одномерного массива

__________________
Помогаю в написании студенческих работ здесь.
3
2 / 2 / 2
Регистрация: 10.04.2012
Сообщений: 18
30.05.2012, 00:53 2
Это по-моему задача по арифметике, а не по информатике, не?
0
Почетный модератор
7955 / 3926 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
30.05.2012, 00:53 3
если [2]-это квадрат...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var r,h,v: real;
    i: byte;
begin
r:=10; h:=25;
for i:=1 to 5 do
    begin
    v:=pi*sqr(r)*h;
    writeln(i,' цилиндр. Радиус=',r:6:2,', высота=',h:6:2,', объем=',v:6:2);
    h:=h-0.5;
    end;
readln;
end.
2
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
30.05.2012, 01:00 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  i: integer;
  h,r: real;
begin
  r:=10; h:=25; 
  for i:=1 to 5 do
  begin
    writeln('Объем ',i,'-го цилиндра = ',pi*sqr(r)*h:8:3,' куб. см.');
    h:=h-0.5;
  end;
  readln;
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2012, 01:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Цилиндр. Найти объем
Помогите пожалуйста решить: 1)диагональ осевого сечения цилиндра составляет с плоскостью основания...

Вычислить объем фигуры, вписанной в цилиндр
Дорогие форумчане! Не смог с "лёту" найти правильное решение и решил обратиться к Вам) Есть...

Используя функцию, которая вычисляет объем цилиндра, найти в программе объемы трех цилиндров с указанными параметрами и выбрать среди них наибольшее з
Используя функцию, которая вычисляет объем цилиндра, найти в программе объемы трех цилиндров с...

В шар радиуса R вписан цилиндр высотой Н. Найти объем цилиндра и полную его поверхность
В шар радиуса R вписан цилиндр высотой Н. Найти объем цилиндра и полную его поверхность. Нужно...

Загрузочный бункер имеет вид усеченного конуса, поставленного на цилиндр. Найти объём бункера.
Загрузочный бункер имеет вид усеченного конуса, поставленного на цилиндр (рис. 6). Задавая диаметр...

Как можно определить количество головок и цилиндров на жестком диске?
Какой функцией можно определить количество головок и цылиндров на жорстком диске. Очень срочно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.