1. Вычислить радиус окружности, зная длину окружности. Написать программу в...

Question

1. Вычислить радиус окружности, зная длину окружности. Написать программу в паскале. с=31.4000 2. Напишите программу, которая вычисляет площадь и периметр прямоугольника по длинам двух его сторон. Очень нужно.

Comments

а формула есть какая-то для радиуса через длину окружности? Мне просто лень искать ;)

---

Радиус представляет собой отношение длины окружности к удвоенному числу π )

---

Спасибо, с геометрией у меня не очень)

Answer 1

1.

program rad;

var

 c : real;

begin

 writeln('Введите чему равна длина окружности: ');

 readln(c);

 writeln( 'Радиус окружности равен ' ,c /(2 * PI))

end.

2.

program per;

var

a,b : real;

begin

  writeln('Введите чему равны стороны прямоугольника: ');

  readln(a,b);

  writeln('Площадь прямоугольника равна: ', a * b);

  write('Периметр треугольника равен: ', 2*a+2*b);

end.