Question

Известна длина окружности. Найти площадь круга ограниченного этой окружностью PASCAL
И чтобы не получался минус при в вводе отрицательных чисел
+коментарии ​

Answer 1

Ответ:

program Round;

var

 C, R, S: Real;  // C-длина окружности, R-радиус, S-площадь круга

begin

 Write ('Введите длину окружности: ');  // вывод на экран сообщения

 ReadLn (C);   // ввод длины окружности

 if C < 0 then begin // проверка на отрицательное значение

   WriteLn ('Введено отрицательное значение');

   ReadLn;  // ждать нажатия Enter

   Exit;    // выход из программы

 end;

 R := C / 2/ Pi;  // расчет радиуса из длины окружности

 S := Pi * R * R; // расчет площади круга

 WriteLn ('Площадь круга = ', S);  // вывод результата

 ReadLn;                           // ждать нажатия Enter

end.

Объяснение: в комментариях к программе