Ввести значения: а - длины стороны квадрата и r - радиуса окружности. Программа должна...

Question

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

Comments

Какой критерий равенства для действительных чисел?

---

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

---

дано так в презентации больше ничего не известно

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);<br>      if sr<=sa then writeln('Площадь круга меньше или равна площади квадрата. Длинна окружности = ',2*pi*r);<br>end.

Comments

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

---

А при равенстве что будет выведено?  Два сообщения?

---

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

---

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