profile
Опубликовано 5 лет назад по предмету Информатика от heyyy00

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

  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.
    1. Ответ
      Ответ дан heyyy00
      спасибо большое.
    2. Ответ
      Ответ дан Аккаунт удален
      да. это не противоречит условию задачи. Только равенства никогда не будет, т.к. число pi иррациональное, его с клавиатуры не ввести из-за бесконечности количества знаков. А нужно a=pi и r=корень из pi
    3. Ответ
      Ответ дан srzontmp
      В машинном формате действительные числа представлены 8 байтами - число конечное.  Поэтому, при каком -то значении  а возможно равенство.
    4. Ответ
      Ответ дан Аккаунт удален
      это школьная задачка, никто не будет вводить такие длинные числа.  Даже паскаль "не переварит" их, сами проверьте: a=3.1415926535897932384626433832795, r=1,7724538509055160272981674833411