Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвёртую степень — отрицательные. Написать программу на VBA и Delphi.

Алгоритм: для каждого числа проверяем знак. Если число ≥ 0, возводим в квадрат, иначе — в четвёртую степень.

VBA:
Sub ProcessNumbers()
Dim a As Double, b As Double, c As Double
a = InputBox("Введите a")
b = InputBox("Введите b")
c = InputBox("Введите c")
If a >= 0 Then a = a ^ 2 Else a = a ^ 4
If b >= 0 Then b = b ^ 2 Else b = b ^ 4
If c >= 0 Then c = c ^ 2 Else c = c ^ 4
MsgBox "Результаты: " & a & ", " & b & ", " & c
End Sub

Delphi:
procedure ProcessNumbers(var a, b, c: Real);
begin
if a >= 0 then a := Sqr(a) else a := Sqr(Sqr(a));
if b >= 0 then b := Sqr(b) else b := Sqr(Sqr(b));
if c >= 0 then c := Sqr(c) else c := Sqr(Sqr(c));
end;

0 0 Пожаловаться