Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.06.2020, 09:51   #1
София43
 
Регистрация: 17.03.2020
Сообщений: 4
По умолчанию Нахождение объема конуса. Паскаль

Нахождение объема конуса. Написать программу, которая запрашивает у пользователя высоту и радиус основания конуса, рассчитывает объем и выводит результат вычисления на экран. При составлении программы учесть, что высота и радиус основания конуса – положительные величины.
София43 вне форума Ответить с цитированием
Старый 30.06.2020, 09:56   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

И какие проблемы? Формула объёма - это вроде 7-й класс школы. Как ввести и вывести данные? Или что такое вообще оно - Паскаль ?
digitalis вне форума Ответить с цитированием
Старый 03.07.2020, 14:27   #3
challengerr
Участник клуба
 
Аватар для challengerr
 
Регистрация: 30.07.2008
Сообщений: 1,639
По умолчанию

Код:
program con;

var r,h,v,pi:real;

begin
r := -1;
h := -1;
while not ((r>0) and (h>0)) do begin
writeln('r: ');
readln(r);
writeln('h: ');
readln(h);
end;
pi := 3.14;
v := (pi*r*r*h)/3.0;
writeln(v);

end.
"SPACE.THE FINAL FRONTIER.This's a voyage of starship Enterprise. It's 5-year mission to explore strange new worlds,to seek out new life and civilizations,to boldly go where no man has gone before"
challengerr вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Тема Подпрограммы: Составить функцию нахождения объема цилиндра по его радиусу основания r и высоте (Паскаль) sanyok996 Помощь студентам 13 19.12.2013 22:56
паскаль. нахождение большего. Oda33 Помощь студентам 3 25.03.2011 23:22
нахождение MIN и MAX.Паскаль Яська Помощь студентам 4 21.01.2010 08:19
Паскаль.нахождение MIN и MAX Яська Помощь студентам 1 07.12.2009 19:12
Нахождение подпапок. Паскаль NikLik Помощь студентам 0 25.11.2007 21:51