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.

Answer 2

Конечно, я помогу вам с обоими заданиями на языке Паскаль.

1. Найти площадь оставшейся фигуры, если из квадрата со стороной "а" вырезали круг с радиусом "r":

pascalCopy code
program SquareArea;

const
  Pi = 3.14159265359;

var
  a, r, squareArea, circleArea, remainingArea: real;

begin
  // Вводим значения стороны квадрата и радиуса круга
  writeln('Введите сторону квадрата (а): ');
  readln(a);
  writeln('Введите радиус круга (r): ');
  readln(r);

  // Вычисляем площадь квадрата и круга
  squareArea := a * a;
  circleArea := Pi * r * r;

  // Вычисляем оставшуюся площадь
  remainingArea := squareArea - circleArea;

  // Выводим результат
  writeln('Площадь оставшейся фигуры: ', remainingArea:0:2);
end.

2. Решить квадратное уравнение вида "ax^2 + bx + c = 0":

pascalCopy code
program QuadraticEquation;

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

begin
  // Вводим коэффициенты уравнения
  writeln('Введите коэффициент a: ');
  readln(a);
  writeln('Введите коэффициент b: ');
  readln(b);
  writeln('Введите коэффициент c: ');
  readln(c);

  // Вычисляем дискриминант
  discriminant := b * b - 4 * a * c;

  // Проверяем значение дискриминанта
  if discriminant > 0 then
  begin
    // Два действительных корня
    x1 := (-b + sqrt(discriminant)) / (2 * a);
    x2 := (-b - sqrt(discriminant)) / (2 * a);
    writeln('Два действительных корня:');
    writeln('x1 = ', x1:0:2);
    writeln('x2 = ', x2:0:2);
  end
  else if discriminant = 0 then
  begin
    // Один действительный корень
    x1 := -b / (2 * a);
    writeln('Один действительный корень:');
    writeln('x = ', x1:0:2);
  end
  else
  begin
    // Корней нет или они комплексные
    writeln('Корней нет или они комплексные.');
  end;
end.

Обратите внимание, что ввод данных в обоих случаях осуществляется пользователем. Вы можете запустить программу и ввести значения для стороны "a", радиуса "r" и коэффициентов "a", "b", "c" для решения задач.