Даны Три Действительных Числа Возвести В Квадрат Те Из Них Значения Которых Неотрицательны Делфи

Delphi - это мощный язык программирования, который позволяет выполнять множество операций с данными, таких как возводить числа в квадрат. Если даны три действительных числа, то можно возвести в квадрат те из них, значения которых неотрицательны.

Для того, чтобы возвести число в квадрат в Delphi, нужно воспользоваться функцией Sqr. Эта функция принимает в качестве аргумента целое или действительное число и возвращает его квадрат. Если число неотрицательное, то оно будет возведено в квадрат, если отрицательное - функция вернет 0.

var   num1, num2, num3: real; begin  num1 := 5;  num2 := -3;  num3 := 8;  if num1 >= 0 then num1 := Sqr(num1);  if num2 >= 0 then num2 := Sqr(num2);  if num3 >= 0 then num3 := Sqr(num3);end;

В данном примере мы задали три действительных числа - 5, -3 и 8. Далее мы проверяем каждое число на то, является ли оно неотрицательным, и если да, то возводим его в квадрат с помощью функции Sqr.

Таким образом, применение функции Sqr в Delphi позволяет возводить числа в квадрат и использовать эту операцию в различных алгоритмах и приложениях.