Pascal, составить программу. Пожалуйста, помогите с задачей!
Компьютер запрашивает радиус круга и сторону квадрата. Надо определить, равные ли у них площади (ответ должен иметь вид: «Площади равные»). Если площади не равные, то выводится площадь меньшей фигуры.

Лучшиевсеглавное: Хелп ми, плиз!

asphyxik: c тя пицца пепперони

Лучшиевсеглавное: С меня пицца пепперони, оформлено! Ο°⊕⊕⊕

Ответы

Ответ дал: asphyxik

//s1 - площадь круга, s2 - площадь квадрата

//а - cторона квадрата, r - радиус круга

const pi = 3.14;

var s1,s2,a,r:real;

begin

write('введите а: ');

read(a);

write('введите r: ');

read(r);

s1:=pi*sqr(r);

s2:=sqr(a);

if s1 = s2 then writeln('площади равные')

else

if s1 > s2 then writeln('площадь квадрата: ',s2)

else

if s2 > s1 then writeln('площадь круга: ',s1);

end.

Лучшиевсеглавное: 555

Лучшиевсеглавное: Вместо 2(

LRSM: Насколько я помню, в древнем турбопаскале есть функция Pi, возвращающая число π. Как раз её @fenixslavik и использует. Однако, @fenixslavik не создаёт переменные для хранения площадей круга и квадрата, т.е. предпочитает высчитывать их значения каждый раз заново. Поэтому, предпочтительнее будет использовать именно этот ответ, если убрать строчку " const pi = 3.14; ".

asphyxik: чел ты капец умный я в шоке брат

Ответ дал: Аноним

Ответ:

var a,r:real;

begin

readln(r);

readln(a);

if (a*a)=(r*r*pi) then

writeln('Площади равны')

else

if (a*a)>(r*r*pi) then

writeln('Площадь круга меньше, она равна: ', r*r*pi)