Вычислить длину окружности и площадь круга - Turbo Pascal
Формулировка задачи:
Радиус окружности равен 800. Вычислить длину окружности и площадь круга. Результаты печатать до 5-го знака.
uses Crt; Var r: integer; L, Pl: real; begin ClrScr; r:= 800; L:= 2 * Pi * r; Pl:= Pi * Sqr(r); WriteLn(' Длина окружности: ' , L:6:5); WriteLn(' Площадь круга: ' , Pl:6:5); ReadLn end.На выходе имеем:
Длина окружности: 5026.54825 Площадь круга: -48254.86316Что за чудеса – площадь круга неверная, да ещё и отрицательная. Очень интересно. Почему же так?
Код к задаче: «Вычислить длину окружности и площадь круга - Turbo Pascal»
Pl:= Pi * r * r;

Эта работа вам не подошла?
Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.
СДЕЛАЙТЕ РЕПОСТ
13 голосов, оценка 3.923 из 5
Похожие ответы