Question

помогите пожалуйста
Задание на языке Паскаль:
1)Найти площадь оставшейся фигуры, если из квадрата со стороной а вырезали круг с радиусом r.
2)Решить квадратное уравнение вида a*x2+b*x+c=0

Answer 1

Ответ:

Задача 1:

var a,r: double;

begin

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

readln(a);

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

readln(r);

writeln('Площадь фигуры: ',a*a-Pi*r*r);

end.

Задача 2:

var a, b, c, D, x1, x2: real;

begin

writeln('Введите A, B, C');

readln(a,b,c);

D:=b*b-4*a*c;

if D>=0 then

 begin

  if (sqrt(D)=0) then

   begin

    x1:=-b/(2*a);

    write('Один корень ',x1:0:2);

   end

  else

   begin

    x1:=(-b-sqrt(D))/(2*a);

    x2:=(-b+sqrt(D))/(2*a);

    write('Первый корень: ',x1:0:2,' Второй корень: ',x2:0:2);

   end

 end

else write('Корней нет');

end.