Question

Решите задачи по программированию в паскаль 1) Какое число баранов на d баранов больше чем 18 баранов? 2) Дана площадь S окружности. Найти ее радиус

Answer 1

1.

const

  quantity = 18;

var

  res, d: integer;

function sum(a, b: integer): integer;

begin

  sum := a + b;

end;

begin

  writeln('Введите число D: ');

  readln(d);

  res := sum(d, quantity);

  writeln(res);

end.

2.

const

  x = 1.0;

var

  square, radius, Pi_num: real;

function ArcTan(X: Real): Real;

begin

  ArcTan := (sin(x) / cos(x));

end;

function ray(square: real): real;

begin

  ray := sqrt(square / Pi_num);

end;

begin

  Pi_num := ArcTan(x) * 2;

  writeln('Введите площадь окружности: ');

  readln(square);

  radius := ray(square);

  writeln(radius);

end.

Answer 2

Конечно, я могу помочь с решением задач на программирование. Вот решения в Pascal для ваших задач:

1. Какое число баранов на d баранов больше, чем 18 баранов?

pascalCopy code
program NumberSheep;
var
  d, sheepNumber: Integer;
begin
  writeln('Введите число баранов больше 18:');
  readln(d);

  if d > 18 then
  begin
    sheepNumber := d - 18;
    writeln('Число баранов на ', d, ' баранов больше, чем 18 баранов: ', sheepNumber);
  end
  else
    writeln('Число баранов должно быть больше 18.');

  readln;
end.

2. Дана площадь S окружности. Найти ее радиус.

pascalCopy code
program CircleRadius;
const
  Pi = 3.14159;
var
  S, radius: Real;
begin
  writeln('Введите площадь окружности:');
  readln(S);

  if S >= 0 then
  begin
    radius := sqrt(S / Pi);
    writeln('Радиус окружности: ', radius:0:2);
  end
  else
    writeln('Площадь окружности должна быть неотрицательным числом.');

  readln;
end.

Надеюсь, это поможет вам решить задачи! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.