Вычислить длину окружности и площадь круга - 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»

textual
    Pl:= Pi * r * r;

13   голосов, оценка 3.923 из 5


СОХРАНИТЬ ССЫЛКУ