Question

Помогите, пожалуйста, с написанием программы (в pascal abc) по нахождению периметра четырёхугольника с оператором "if". Нужно сделать так, чтобы если ты вводишь отрицательное число или ноль выдавало ошибку. После этого программа должна попросить написать положительное число. 30 б накину

Answer 1

Ответ:

var a,b,c,d, i:real;

begin

   while true do

       begin

           readln(a,b,c,d);

           

           if (a <= 0) or (b <= 0) or (c <= 0) or (d <= 0) then

           begin

               writeln('Пожалуйста, введите положительное число');

               continue;

           end

           

           else

               break;

           

       end;

           

   writeln(a+b+c+d);

end.

Объяснение:

Answer 2

Конечно, вот пример программы на языке PascalABC.NET, которая вычисляет периметр четырёхугольника с проверкой на отрицательные и нулевые значения:

pascalCopy code
program PerimeterCalculator;

var
  a, b, c, d, perimeter: real;

begin
  writeln('Введите длины сторон четырёхугольника:');
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  write('d = ');
  readln(d);

  if (a <= 0) or (b <= 0) or (c <= 0) or (d <= 0) then
  begin
    writeln('Ошибка! Введите положительные значения для всех сторон.');
  end
  else
  begin
    perimeter := a + b + c + d;
    writeln('Периметр четырёхугольника: ', perimeter);
  end;

  readln; // Чтобы программа не закрылась сразу после выполнения
end.

Эта программа сначала запрашивает длины всех четырёх сторон четырёхугольника и затем проверяет, что все введенные значения положительны. Если какое-либо из значений меньше или равно нулю, программа выводит сообщение об ошибке. В противном случае программа вычисляет и выводит периметр четырёхугольника.