33. Даны три действительных числа. Возвести в квадрат те из них, значения которых...

Question

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

Answer 1

Держи VBA-версию в Excel 2003.

Delphi у меня 7-й версии. будет чем проект открыть? Код модуля в файле Unit1.pas.

P.S. Что-то zip не грузится, код  - ниже:

procedure TForm1.Button1Click(Sender: TObject);
var
N1, N2, N3: Real;
begin
//Проверок на введённе значения для простоты не делаю
N1:=StrToFloat(Edit1.Text);
N2:=StrToFloat(Edit2.Text);
N3:=StrToFloat(Edit3.Text);

if N1<0 then N1:=N1*N1*N1*N1 else N1:=N1*N1;<br> if N2<0 then N2:=N2*N2*N2*N2 else N2:=N2*N2;<br> if N3<0 then N3:=N3*N3*N3*N3 else N3:=N3*N3;<br>
Edit4.Text:=FloatToStr(N1);
Edit5.Text:=FloatToStr(N2);
Edit6.Text:=FloatToStr(N3);
end;

---

Скачать вложение Excel (XLS)