Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4010 / 2944 / 3686
Регистрация: 05.06.2014
Сообщений: 14,581
27.05.2015, 11:35 0

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

27.05.2015, 11:35. Просмотров 928. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2015, 11:35
Готовые ответы и решения:

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

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

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

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

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

1
Другие темы раздела
PascalABC.NET Методом бинарного поиска определить, содержит ли упорядоченный массив заданное число http://www.cyberforum.ru/pascalabc-net/thread1458791.html
Сформировать массив а, упорядоченный по возрастанию. Методом бинарного поиска определить, содержит ли он заданное число. Если элемент найден, то удалить его и следующий за ним элемент из массива.
PascalABC.NET Определить методом последовательного поиска, содержит массив заданное число Сформировать массив а, элементы которого выбираются случайным образом из интервала . Определить методом последовательного поиска, содержит он заданное число. Если элемент не найден, то вставить его... http://www.cyberforum.ru/pascalabc-net/thread1458789.html
Определить методом последовательного поиска, содержит массив заданное число PascalABC.NET
Помогите с решением задачи. Сформировать массив а, элементы которого выбираются случайным образом из интервала . Определить методом последовательного поиска, содержит он заданное число. Если элемент...
PascalABC.NET Вычисление выражения: Цикл не завершается
цикл не совершается, задача №4 на фото Вычислить и вывести на экран значение суммы членов следующего ряда: \frac{(x-2)(x-4)(x-6)...(x-n)}{(x-1)(x-3)(x-5)...(x-(n-1))} если x вводится с...
PascalABC.NET Найти самый популярный альбом группы и суммарное количество песен и клипов http://www.cyberforum.ru/pascalabc-net/thread1458667.html
Задача : Есть информация про альбомы, которые выпустила муз. группа : название, год выхода, количество песен, количество клипов, звукозаписывающая компания и тираж. Найти самый популярный альбом...
PascalABC.NET Встречено 'end', а ожидалось ';' Помогите! В 31 строке ошибка Встречено 'end', а ожидалось ';' :wall: const n=6;m=4; var a:array of real; i,j:byte; p,mn:real; begin repeat подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru