Question

Ввести значения: а - длины стороны квадрата и r - радиуса окружности. Программа должна рассчитать площадь фигур. Если площадь квадрата меньше либо равна площади круга, то - рассчитать периметр квадрата и вывести на печать. Если площадь круга меньше либо равна площади квадрата, то - рассчитать длину окружности и вывести полученное значение на печать.9 класс икт паскаль помогиитеее плиииз

Answer 1

var a,r,sa,sr:real;
begin
      write('Введите число a=');
      readln(a);
      write('Введите число r=');
      readln(r);
      sa:=sqr(a);
      sr:=pi*sqr(r);
      writeln('Площадь квадрата = ', sa, ', Площадь круга = ',sr);
      if sa<=sr then writeln('Площадь квадрата меньше или равна площади круга. Периметр квадрата = ',a*4);
      if sr<=sa then writeln('Площадь круга меньше или равна площади квадрата. Длинна окружности = ',2*pi*r);
end.

Answer 2

спасибо большое.

Answer 3

да. это не противоречит условию задачи. Только равенства никогда не будет, т.к. число pi иррациональное, его с клавиатуры не ввести из-за бесконечности количества знаков. А нужно a=pi и r=корень из pi

Answer 4

В машинном формате действительные числа представлены 8 байтами - число конечное.  Поэтому, при каком -то значении  а возможно равенство.

Answer 5

это школьная задачка, никто не будет вводить такие длинные числа.  Даже паскаль "не переварит" их, сами проверьте: a=3.1415926535897932384626433832795, r=1,7724538509055160272981674833411