Question

В приложении Pascal ABC напишите программу: – для вычисления по формуле A=пr'2, если даны два ненулевых числа.

Answer 1

Var
  r,p:real;
begin
  p:=3.1416;
  Write('r=');
  Readln(r);
  Writeln(p*r*r);
  Write('r=');
  Readln(r);
  Writeln(p*r*r);
end.

Answer 2

Для написания программы на языке Pascal ABC, вычисляющей значение формулы A = πr^2, если даны два ненулевых числа, выполним следующие шаги:

1. Запросим у пользователя ввод значений для числа π (пи) и радиуса r.
2. Вычислим значение A по формуле.
3. Выведем результат на экран.

pascalCopy code
program CalculateArea;

var
  piValue, r, area: real;

begin
  // Запрос числа π (пи) у пользователя
  writeln('Введите значение числа π (пи): ');
  readln(piValue);

  // Запрос радиуса у пользователя
  writeln('Введите значение радиуса (r): ');
  readln(r);

  // Проверка на ненулевые значения
  if (piValue <> 0) and (r <> 0) then
  begin
    // Вычисление площади по формуле A = πr^2
    area := piValue * r * r;

    // Вывод результата
    writeln('Площадь круга A = ', area);
  end
  else
  begin
    // В случае ввода нулевых значений
    writeln('Ошибка! Введены недопустимые значения (нули).');
  end;
end.

Программа запросит у пользователя ввести значения числа π (пи) и радиуса (r) и вычислит площадь круга по указанной формуле. Если введены нулевые значения для π или r, программа выдаст ошибку.