Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
walonau
0 / 0 / 0
Регистрация: 26.05.2015
Сообщений: 4
#1

Создать модуль, который вычисляет площадь боковой поверхности конуса

26.05.2015, 17:52. Просмотров 905. Ответов 1
Метки нет (Все метки)

Создать модуль, содержащий процедуры и/или функции:

− площадь боковой поверхности конуса;

− площадь полной поверхности конуса;

− объем конуса.

Написать программу, демонстрирующую работу созданного модуля.

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2015, 17:52
Ответы с готовыми решениями:

По ребру найти площадь грани,площадь боковой поверхности и обьем куба
По ребру найти площадь грани,площадь боковой поверхности и обьем куба.

найти объем, площадь боковой поверхности и полную площадь прямой призмы с высотой h
Доброго вечера нужно найти объем, площадь боковой поверхности и полную площадь...

Определить площадь боковой поверхности цилиндра с основанием R и высотой H
Задание 2. Составьте блок-схему к алгоритму решения следующей задачи: ...

Найти объем куба и площадь его боковой поверхности
Надо решить задачи на паскале 1. Даны действительные числа x, y, z...

Найти объём куба и площадь его боковой поверхности
12. Дана длина ребра куба (целое число). Найти объём куба и площадь его боковой...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3860 / 2846 / 3632
Регистрация: 05.06.2014
Сообщений: 13,948
27.05.2015, 11:35 #2
Лучший ответ Сообщение было отмечено walonau как решение

Решение

Модуль:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
unit
  konus;
 
interface
 
function SBok(r,h:real):real;
function SPoln(r,h:real):real;
function Obyom(r,h:real):real;
 
implementation
 
function SBok(r,h:real):real;
begin
  SBok:=pi*r*sqrt(r*r+h*h);
end;
 
function SPoln(r,h:real):real;
begin
  SPoln:=pi*r*(r+sqrt(r*r+h*h));
end;
 
function Obyom(r,h:real):real;
begin
  Obyom:=1/3*pi*sqr(r)*h;
end;
 
begin
end.
Программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses
  konus;
var
  r,h:real;
begin
  write('Введите радиус и высоту конеуса: ');  readln(r,h);
  writeln('Площадь боковой поверхности конуса: ',sbok(r,h):0:2);
  writeln('Площадь полной поверхности конуса: ',spoln(r,h):0:2);
  writeln('Объем конуса: ',obyom(r,h):0:2);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2015, 11:35

Найдите длину стороны основания и площадь боковой поверхности призмы
Hellp Основанием прямой призмы служит ромб, длины диагоналей призмы равны a и...

Найти площадь грани, площадь полной поверхности и объем куба
4. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и...

Найти площадь грани, площадь полной поверхности, и объем куба
тоарищи программисты их мозги помогите пожалуста бедной студенке над...


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

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

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