0 / 0 / 0
Регистрация: 03.12.2016
Сообщений: 20
1

Функция определения площади круга и площади кольца

11.01.2017, 16:32. Показов 1675. Ответов 2
Метки нет (Все метки)

Написать функцию определения площади круга и найти площадь кольца, заданного двумя радиусами.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2017, 16:32
Ответы с готовыми решениями:

Функция: нахождение площади круга
Описать функцию, находящую площадь круга радиуса R (R — вещественное). С помощью этой функции...

Определите размер шара, используя сумму трехзначных чисел в качестве площади круга, окружности круга и радиуса
Определите размер шара, используя сумму трехзначных чисел в качестве площади круга, окружности...

Разработать подпрограмму для вычисления площади кольца
Разработать подпрограмму для вычисления площади кольца. Использовать разработанную подпрограмму...

Функция Circles: нахождение площади круга радиуса R
Помогите пожалуйста... Описать функцию Circles(R) вещественного типа, находящую площадь круга...

2
58 / 16 / 26
Регистрация: 07.02.2015
Сообщений: 346
11.01.2017, 17:53 2
Лучший ответ Сообщение было отмечено Ctepun как решение

Решение

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
29
30
31
32
33
34
program geometric;
 
const
  PI = 3.14;
 
function square(D: integer): double;//площадь круга
var
  rad: double;//радиус для площади круга
begin
  rad := (PI / 4) * (D * D);
  square := PI * (rad * rad)
end;
 
function squarering(rd1, rd2: double): double;//площадь кольца
begin
  squarering := PI * (Power(rd1, 2) - Power(rd2, 2));
end;
 
var
  rad: double;//радиус для площади круга
  D: integer;//Диаметр
  rd1, rd2: double;//радиусы для нахождения площади кольца
 
begin
  writeln('Введите диаметр');
  readln(D);
  writeln('Площадь круга равна:');
  writeln(square(D):4:2);
  writeln('Введите Внешний и внутренний и радиусы');
  readln(rd1, rd2);
  if (rd2 > rd1) then writeln('Ошибка!Внешний радиус должен быть больше внутреннего');//Проверка-Внешний радиус должен быть больше чем внутренний иначе ошибка
  writeln('Площадь кольца с 2-мя радиусами:');
  writeln(squarering(rd1, rd2));
end.
0
Почетный модератор
64256 / 47556 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
11.01.2017, 18:01 3
Цитата Сообщение от Ctepun Посмотреть сообщение
площадь кольца, заданного двумя радиусами.
Нафига в функции диаметр?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2017, 18:01
Помогаю со студенческими работами здесь

Вычисление площади кольца
Составить программу вычисления площади кольца по знахапия внутреннего и внешнего радиусов,...

Вычисление площади кольца. Оптимизировать код
program plKOLC; uses crt; const pi=3.141592653; var R1,R2,S1,S2:real; Begin...

Составить программу для нахождения площади кольца
Составить программу для нахождения площади кольца, внешний радиус которого R1, внутренний - R2.

Вычислить площади круга R и эллипса с полуосями а и b
Вычислить площади круга ® и эллипса с полуосями а и b


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru