Вычислить длину окружности и площадь круга - 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;
13 голосов, оценка 3.923 из 5
СОХРАНИТЬ ССЫЛКУ
