Question

Составьте программу для определения,что больше площадь круга радиусом a или площадь квадрата со стороной a-значения числа a вводятся с клавиатуры(площадь круга вычисляется по формуле:S=ПиR^2)помогите пожалуйста:( паскаль

Answer 1

Так?

var a, R: integer; S:real;

begin

writeln('Введите радиус круга');

readln(R);

writeln('Введите сторону квадрата');

read(a);

S:=3.14*R*R;

a:=a*a;

If S>a then write('Площадь круга больше площади квадрата')

else write('Площадь квадрата больше площади круга');

end.

Answer 2

Показываю:

1) Вводишь переменную а

2) Добавляешь переменную для площади квадрата

3) Добавляешь переменную для площади круга

4) Выполняешь вычисление по формуле и присваиваешь его переменной для площади круга, т.е.  Sk=pi*r*r; (pi сразу задаешь значение - это пи)

5) Выполняешь вычисление по формуле и присваиваешь его переменной для площади квадрата, т.е. S=r*r;

6) Проверка:

если (Sk > Sv) {

вывести результат

} если нет {

вывести 2 результат

}

Удачи!