Консультация № 136469
12.05.2008, 13:52
0.00 руб.
0 1 1
Вычислить длину окружности и площадь круга, если известен диаметр

Обсуждение

Неизвестный
12.05.2008, 21:51
общий
это ответ
Здравствуйте, Cobain!
Задача с пояснениями в приложении.
Площадь вычисляется так: s=П*r*r(П-число Пи). П можно получит с помощью функции Pi.
Окружность: l=2*П*r.
Радиус равен половине диаметра.
Удачи!!!


Приложение:
var {d-диаметр, s-площадь, l-длина,r-радиус} D, S, l, r: real;begin {Получаем диаметр} Write(‘Введите диаметр: ‘); ReadLn(D); {Вычисляем радиус, площадь и длину} r:=d/2; s:=Pi*r*r; l:=Pi*2*r; {Вывод} WriteLn(‘Длина окружности: ‘, l:3:3); WriteLn(‘Площадь круга: ‘, S:3:3); ReadLn;end.
Форма ответа